七行プログラミング

七行プログラミングat PHP

七行プログラミング - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

427:nobodyさん
 06/10/14 01:32:50 
私はPHPならなんとか作れそうだが、それ以前に2chの仕様を勉強しなくちゃだな。

428:nobodyさん
 06/10/14 01:42:28 
POST先はbbs.cgiだけどな

429:nobodyさん
 06/10/14 02:59:59 
>>428 
それすら知らなかった漏れは百回くらい正規表現の勉強でもしましょうか？

430:nobodyさん
 06/10/14 06:34:52 
>>420 
縮めた。 
 
#!/usr/bin/perl 
use LWP::Simple;use XML::RSS;$r=new XML::RSS;parse$r get$ENV{QUERY_STRING};use 
CGI":all";%c=%{$r->{channel}};put header,a({href,$c{link}},$c{title}),br,$c{$d= 
description},br,ul(li[map a({href,$_->{link}},$_->{title}).br.$_->{$d}.br,@{$r 
->{items}}]),end_html

431:nobodyさん
 06/10/14 14:05:08 
>>430 
sugeeeeeeeeeeeeeeeeeeeeee 
問題無く動いた

432:nobodyさん
 06/10/14 15:01:38 
>>430 からもうちょい縮めた上で HTML がまともになるよう追加。 
 
#!/usr/bin/perl 
use CGI":all";use LWP::Simple;use XML::RSS;$r=new XML::RSS;sub A{a{href,$_[0]-> 
{link}},$_[0]->{title}}charset$C="UTF-8";parse$r get pop;%c=%{$$r{channel}};put 
header,start_html(-encoding,$C,lang,ja),h1(A\%c),p($c{$d=description}),ul(li[ 
map A($_).br.$$_{$d},@{$$r{items}}]),end_html 
 
二行半も空いてるけど付け加える機能を思いつかず。

次ページ