*99の指定したCGIを*00が作るスレ (327ﾚｽ)
上
下
前
次
1-
新
310
:
perlお勉強中
03/07/12 16:37 ID:???
AA×
>>299
外部ﾘﾝｸ:www.who.int
外部ﾘﾝｸ:www.who.int
[240|
320
|
480
|
600
|
100%
|
JPG
|
べ
|
ﾚｽ栞
|
ﾚｽ消
]
310: perlお勉強中 [sage] 03/07/12 16:37 ID:??? >>299のネタ #/usr/local/bin/perl use Socket; use FileHandle; # 最新のURLを探索 $list_url = 'http://www.who.int/csr/sars/country/en/'; $key = 'Full text'; &http_connect; while (<SOCKET>) { last if(/$key/); } close(SOCKET); # SARS情報を取得 $list_url="http://www.who.int".$&."/" if(m!(/[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)!); $list_url =~ s/entity\///; $key = 'Total'; &http_connect; while (<SOCKET>) { last if(/$key/); } # 行数決め打ちで死亡者数を切り出し for($i=0;$i<24;$i++) {$number=<SOCKET>;} $number =~ m/\d+/; $number = $&; #結果表示 print "Content-type: text/html\n\n"; print "<html lang=\"jp\"><body>"; print "SARSによる死者数は$number人です\n<br>"; print "ソ\ース：$list_url\n</body></html>\n"; close(SOCKET); exit; http://medaka.5ch.io/test/read.cgi/php/1037501017/310
のネタ 最新のを探索 情報を取得 行数決め打ちで死亡者数を切り出し 結果表示 による死者数は人です ソース
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 17 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
ぬこの手
ぬこTOP
0.077s