× [PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。 |
httpuse LWP::Simple; my $data = get('http://www.xxx.com'); なんとこの2行だけで取れてしまう。簡単過ぎ。 POSTで取りたいとか、タイムアウト設定したいとかなら use LWP::UserAgent; my $ua = LWP::UserAgent->new; $ua->agent('xxx'); $ua->timeout(5); my $data = $ua->post('http://www.xxx.com'); if ($data->is_success) { print $data->content; } となる 文字コードuse utf8; と書くと、plファイル内がutf8と仮定されるらしい。 文字列をutf8にエンコードしたいなら、 use Encode (encode_utf8); $utf8_str = encode_utf8(src_str); とする。 日付use Time::Piece; 日付文字列の解析 $t = Time::Piece->strptime($date_str, '%Y-%m-%dT%H:%M:%S+09:00'); みたいにすると取れる。あとは $t->year $t->mon $t->epoch(1970年1月1日からの秒数) とかご自由に。 PR |
|