CGI Perl総合 (461ﾚｽ)
CGI Perl総合 http://mevius.5ch.net/test/read.cgi/hack/984669133/
上
下
前
次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
1: 名無しさん [] 2001/03/16(金) 00:12 ぁ事件の後落ちぶれきった ｺﾉ板の栄華を取り戻すべく 少し賢げな話しようぜ (ｵﾌﾟ http://mevius.5ch.net/test/read.cgi/hack/984669133/1
2: 名無しさん [sage ] 2001/03/16(金) 00:42 #どこがイタイのでしょうか？ 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"; http://mevius.5ch.net/test/read.cgi/hack/984669133/2
3: none [sage ] 2001/03/16(金) 00:44 あってますか？#!/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; } } http://mevius.5ch.net/test/read.cgi/hack/984669133/3
4: obj [sage ] 2001/03/16(金) 00:46 データファイルを読み込んで@LINESという配列に入れたとします。 配列の中身は '23<>a<>0','26<>b<>5','14<>c<>3','30<>d<>9' だったとして、$xxという変数にa〜dのいずれかの文字が入ります。 例えば$xxにcが入ったらcという要素を含む3要素目の'14<>c<>3' の3を1増減、4にして '23<>a<>0','26<>b<>5','14<>c<>4','30<>d<>9' になった配列をデータファイルに上書き保存したいのですが どのように組めばよいのでしょうか？ open (IN,"hoge.txt") || &error('オープンエラー','指定された書込みファイルが開けません。'); @LINES = <IN>; close (IN); $i = "0"; foreach (@LINES){ ($t1,$t2,$t3)=split(/<>/,$_); if ($xx =~ /\Q$t2/) { last; } $i++; } $t3++; $all = $t1; $all .= '<>'; $all .= $t2; $all .= '<>'; $all .= $t3; $all .= '\n'; $LINES[$i] = $all; open (OUT,">$hoge.txt") || &error('オープンエラー','指定された書込みファイルが開けません。'); print OUT (@LINES); close (OUT); こんな感じで組んだんですが、全然ダメで。。。 どなたか教えてください。 http://mevius.5ch.net/test/read.cgi/hack/984669133/4
5: 名無しさん [] 2001/03/16(金) 01:08 >>4 何がしたいのかさっぱりわからん。 これで良いのか？ open (IN,"hoge.txt") || &error('オープンエラー','指定された書込みファイルが開けません。'); @LINES = <IN>; close (IN); $xx = "c"; foreach (@LINES) { my ($t1, $t2, $t3) = split /<>/; next unless $t2 eq $xx; $t3++; $_ = join ("<>",$t1,$t2,$t3); last; } open (OUT,">$hoge.txt") || &error('オープンエラー','指定された書込みファイルが開けません。'); print OUT (@LINES); close (OUT); http://mevius.5ch.net/test/read.cgi/hack/984669133/5
ﾒﾓ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 456 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.007s