06/10/13 18:11:25 UA0b1MaA
6行RSSリーダー 設置して.cgi?以降にfeedのURLを入力
モジュールてんこ盛りなのでもっと短く書けるはず
use LWP::Simple;use CGI":all";use XML::RSS;$h = new CGI;$r = new XML::RSS;
$r->parse(get("$ENV{'QUERY_STRING'}"));%c = %{$r->{'channel'}};
print $h->header.'<a href="'.$c{'link'}.'">'.$c{'title'}.
"</a><br>$c{'description'}<br>";print "<ul>";for $item (@{$r->{'items'}}){
print '<a href="'.$item->{'link'}.'">'.$item->{'title'}.
"</a><br>$item->{'description'}<br>";}print "</ul>".$h->end_html;
421:sage
06/10/13 18:14:55
test
422:nobodyさん
06/10/13 18:17:21 yRLkeiwT
>>421
まさか7行で2chに書き込めるスクリプトを？！
423:nobodyさん
06/10/13 22:26:56
7行も要らんけどな
424:nobodyさん
06/10/13 23:51:02
書き込みのモジュールなんてあった？？<<Perl脳
425:nobodyさん
06/10/14 00:15:13
書き込みっつーかPOSTするだけだろ
426:nobodyさん
06/10/14 00:45:55
>>425
単にPOSTするだけって単にPOSTしただけじゃread.cgiに弾かれる
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
二行半も空いてるけど付け加える機能を思いつかず。
433:nobodyさん
06/10/14 15:13:56
>>432
未読管理機能なんかオススメ
二行半でやる方法は思い浮かばないorz
むしろ、どういう過程を経て効率的なソースが引けるようになったのかの方に興味あり苦笑
どこか参考にしたサイトとかあります？
434:nobodyさん
06/10/15 11:53:37
>>433
> 未読管理機能
ほい。新着タイトルを太字表示。
#!/usr/bin/perl
use CGI":all";use LWP::Simple;use XML::RSS;$r=new XML::RSS;dbmopen%n,"7rssrdr",
420;charset$C="UTF-8";sub A{($t,$l)=@$_{"title","link"};a{href,$l},$n{$l}++?$t:
b$t}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
> どこか参考にしたサイトとかあります？
駱駝本とか perldoc とか。冗談でも何でもなく。
この遊びのノウハウなら URLﾘﾝｸ(cm.xrea.cc) に。
435:nobodyさん
06/10/16 01:39:15
>>434
>駱駝本とか perldoc とか。
さもありなんというか結局質の高い基本が一番役にたつんだろうな
436:aaz
06/11/05 22:18:14
URLﾘﾝｸ(fitaly.com)