CGI Perl総合 (461ﾚｽ)
CGI Perl総合 http://mevius.5ch.net/test/read.cgi/hack/984669133/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
ﾚｽ栞
ﾘﾛｰﾄﾞ規制
です｡10分ほどで解除するので､
他のﾌﾞﾗｳｻﾞ
へ避難してください｡
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
11: 5-8 [sage ] 2001/03/16(金) 18:20 おれは1じゃないよ。 >>8 すまん ×>>2 ○>>3 >>9 おれ、UGの人じゃないんで（爆）、それしらない。 JAVAアプレット連携させるのかなあ。 それとも 擬似サーバー立てといて、そのポートに ftp://www.server:niseport/ とかでHTTPプロキシを外してアクセスさせるのかなあ。 >>10 つか1はどこに行った。。。 http://mevius.5ch.net/test/read.cgi/hack/984669133/11
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.024s