ﾚｽ書き込み

ｽﾚへ戻る 写 ﾚｽ栞 ﾚｽ消

---

CGI Perl総合

PC,ｽﾏﾎ,PHSは 公式(ｽﾏﾎ) 公式(PC) で書き込んでください｡

名前
ﾒｰﾙ
引用切替：ﾚｽｱﾝｶｰのみ
>>3 > あってますか？#!/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; > } > } > > >
ﾛｰｶﾙﾙｰﾙ SETTING.TXT

---

他の携帯ﾌﾞﾗｳｻﾞのﾚｽ書き込みﾌｫｰﾑはこちら｡書き込み設定で書き込みｻｲﾄの設定ができます｡
・公式(ｽﾏﾎ)
・公式(PC)[PC,ｽﾏﾎ,PHS可]

---

書き込み設定(板別)で板別の名前とﾒｰﾙを設定できます｡

---

ﾒﾓ帳

(0/65535文字)

---

上下板覧索設栞歴

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.006s