5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

七行プログラミング

841 :デフォルトの名無しさん:02/04/04 08:42
>>832 >>840
漏れもちょっとやってみた。データファイルはa。

#!/usr/bin/perl
$_=$ENV{QUERY_STRING};y/&=/\0\0/;s/%(..)/pack H2,$1/eg;s/\n/<br>/g;y/+/ /;s/</
</g;s/>/>/;s/&//g;print"Content-type:text/html\n\n<html><body>";open
O,'>>a';%h=split/\0/;print O"$h{a}\t$h{b}\n"if$_;close O;open I,a;while(<I>){s
/\t|$/<br>/g;s/^/$. 名前:/;print}print"<form>名前<input value='名無しさん'name=
a><br><textarea name=b></textarea><input type=submit></form><br></body></html>"


362 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)