- 808 名前：デフォルトの名無しさん [2009/01/24(土) 12:19:41 ]
- ここまでくるとスレタイ通り全部作った方がいいのかな？不毛なやりとりだからもう下のやつコピーして終了にすればいいよ
ファイル名はtext.cgi。実行権限を付ける。
=====ここからコピー=====
#!/usr/bin/perl -T
use strict;;
use warnings;
use CGI;
my $q = CGI->new;
print $q->header( -type => "text/html");
my $body = $q->param( 'body' );
$body =~ s/\x0D\x0A|\x0D|\x0A/\n/g;
my $li;
for my $word (split "\n", $body) {
$li .= "<li>$word</li>";
}
print <<"HTML"
<form method="post" action="">
<textarea name="body">
</textarea>
<input type="submit" />
$li</form>
HTML
__END__
=====ここまでコピー=====
|
 |
