忍者ブログ
  • 2024.10
  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18
  • 19
  • 20
  • 21
  • 22
  • 23
  • 24
  • 25
  • 26
  • 27
  • 28
  • 29
  • 30
  • 2024.12
[PR]
×

[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。

【2024/11/23 07:50 】 |
サーバプログラムで使ったperl技

http



use 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
【2013/02/02 19:50 】 | サーバ | 有り難いご意見(0)
<<文字コード | ホーム | DB使う>>
有り難いご意見
貴重なご意見の投稿














<<前ページ | ホーム | 次ページ>>