七行プログラミング

七行プログラミング ..

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

64:nobodyさん
 02/11/14 07:16 M/ZRCXHw
あげ

65:nobodyさん
 02/11/20 18:28 707UhyRv
7行Wikiくれ。

66:nobodyさん
 02/11/21 07:14 
---- 7wiki.cgi 
#!/usr/local/bin/perl -w 
use strict; use CGI qw/:standard/; use AnyDBM_File; use Fcntl; 
my$id=$ENV{'QUERY_STRING'}||'FrontPage';my$msg=param('msg')||''; 
my$url='./7wiki.cgi'; tie(my%DB,'AnyDBM_File','wiki',O_CREAT|O_RDWR,0666)or die; 
if ($msg){$DB{$id}=$msg} $msg=escapeHTML $DB{$id}; untie(%DB);print header; 
print qq(<form action="$url?$id" method="POST"><input type="submit"><b>$id</b> 
<br /><textarea name="msg" rows="6" cols="60">$msg</textarea></form><hr />); 
$msg=~s/\b([A-Z][a-z]+([A-Z][a-z]+)+)\b/<a href="$url?$1">$1<\/a>/g;print $msg;

67:nobodyさん
 02/11/21 19:40 
>>66 
 
#!/usr/local/bin/perl -w 
use strict;use CGI':standard';use AnyDBM_File;use Fcntl;tie(my%D,'AnyDBM_File', 
'7wiki',O_CREAT|O_RDWR,0666)||die;my$i=$ENV{QUERY_STRING}||'FrontPage';$_= 
escapeHTML($D{$i}=param('m')||$D{$i});untie%D;print header(),qq(<form 
action="7wiki.cgi?$i" method="post"><input type="submit" /><b>$i</b><br /> 
<textarea name="m" rows="6" cols="60">$_</textarea></form><hr />); 
s|\b([A-Z][a-z]+([A-Z][a-z]+)+)\b|<a href="7wiki.cgi?$1">$1</a>|g;print 
 
\b 要る?

次ページ