CGI Perl総合 (462ﾚｽ)
上下前次1-新

---

1(17): 名無しさん 2001/03/16(金)00:12 AAS
ぁ事件の後落ちぶれきった
ｺﾉ板の栄華を取り戻すべく
少し賢げな話しようぜ　(ｵﾌﾟ

---

2(3): 名無しさん [sage ] 2001/03/16(金)00:42 AAS
#どこがイタイのでしょうか？

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";
省13

---

3(2): none [sage ] 2001/03/16(金)00:44 AAS
あってますか？#!/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 {
省25

---

上下前次1-新書関写板覧索設栞歴

---

あと 459 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.017s