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

---

3(2): none [sage ] 2001/03/16(金)00:44 AA×


[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]
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
あってますか？

---

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

---

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

---

ぬこの手 ぬこTOP 0.024s