462コメント135KB

CGI Perl総合

1名無しさん

NGNG

ぁ事件の後落ちぶれきった
ｺﾉ板の栄華を取り戻すべく
少し賢げな話しようぜ　(ｵﾌﾟ

2名無しさん

NGNG

#どこがイタイのでしょうか？

open(OUT,"|$mailer $address") || die "送信できませんでした\n";

$cgi = new CGI;
:
die if($cgi->param("realname") eq "");

$Etitle = $form{'titlename'};
$Ename = $form{'realname'};
$emale = $form{'mailaddr'};
$comment = $form{'comm'};

print OUT "Mail From Web\n";
print OUT "$Etitle\n";
print OUT "氏名：$Ename\n";
print OUT "E-Mail：$emale\n";
print OUT "コメント：$comment\n";
print OUT "IPアドレス：$ENV{'REMOTE_ADDR'}\n";

close(OUT);

print "Content-type: text/html\n\n";

print "<HTML><HEAD><TITLE>index.htm</TITLE></HEAD>\n";
print "<BODY>\n";
print "<CENTER>\n";
print "<H3>メールは送られました。</H3>\n";
print "</CENTER>\n";
print "</BODY></HTML>\n";

3none

NGNG

あってますか？#!/usr/local/bin/perl

$cnt_file = 'cnt.dat';

open(fp,"$cnt_file");
$cnt = <fp>;
close(fp);
++$cnt;
$len = length $cnt;
if ($len < $n) {
$imgfile = "0";
} else {
$imgfile = substr($cnt, $len-$n, 1);
}
open(IN,"img/$imgfile.gif");
@lines = <IN>;
close(IN);
print "Content-type: image/gif\n\n";
print @lines;
if ($n == 1) {
open(fp,">$cnt_file.tmp");
print fp $cnt;
close(fp);
rename("$cnt_file.tmp", $cnt_file);
}
sub frmdec
{
$buffer = $ENV{'QUERY_STRING'};
@pairs = split(/&/,$buffer);
foreach $pair (@pairs)
{
local($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$form{$name} = $value;
}
}

スレをまとめに
5ch即うp → gzo.ai

新着レスの表示

レスを投稿する