他のサイトから必要なデータを取得する(例『株価』の動きを見る)
#!/usr/bin/perl $url = 'http://quote.yahoo.co.jp/q?s=5401.t&d=1d'; &get_others; exit(0); # ------------- PCのブラウザに表示するHTML部分------------ sub get_others { undef $lines; print "Content-type: text/html\n\n"; use IO::Socket qw(:DEFAULT :crlf); $/ = CRLF . CRLF; my $data; my ($host,$path) = $url =~m!^http://([^/]+)(/[^\#]*)!; my $socket = IO::Socket::INET->new(PeerAddr => $host, PeerPort => 'http(80)');
Google Search Cloud with Perl
The following Perl program parses an Apache HTTP server access_log in extended format and collects all referers [sic] which might be generated by a search action on Google. The query visitors used are extracted and grouped per web page and status code. Then the program generates a valid HTML 4.01 strict webpage that shows those queries as a cloud as used by some Web 2.0 websites to present tags. T
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
