2010-06-17から1日間の記事一覧

printf で揃える

perl

#!/usr/bin/perl use strict; use warnings; my @host = ( { 'hostname' => "host1", 'size' => 613475, 'used' => 16551 }, { 'hostname' => "host2", 'size' => 613501, 'used' => 15214 }, ); printf "%-5s %8s %8s %8s %4s\n", "Host", "Size", "Used", …

mbox形式からメール本文と添付ファイルを抜く

perl

#!/usr/bin/perl use strict; use warnings; use Mail::MboxParser; use DateTime::Format::Mail; my $mbox = $ARGV[0]; die unless ($mbox); my $mb = Mail::MboxParser->new($mbox, decode => 'ALL', parseropts => { enable_cache => 1, cache_file_name …

日付文字列の変換

perl

DateTime::Format::Mail #!/usr/bin/perl use strict; use warnings; use DateTime::Format::Mail; my $date = "Thu, 17 Jun 2010 00:00:35 +0900"; my $dt = DateTime::Format::Mail->parse_datetime($date); print $dt->ymd(""), "\n"; $ ./rfc2822date.pl…