#!/usr/bin/perl use strict; use warnings; use Mail::POP3Client; use Mail::MboxParser::Mail; my $user = "username"; my $pass = "password"; my $host = "example.jp"; my $ssl = 1; my $pop = new Mail::POP3Client( USER => $user, PASSWORD => $pas…

#!/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", …

#!/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 …

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…

#!/bin/sh # 毎日の統計をsubversionリポジトリにコミットする date=`date '+%Y%m%d'` cd /home/turbo/log /home/turbo/stat.pl > stat.txt svn ci -m "update $date" svn up で、cronに仕込むと。 $ crontab -e 0 2 * * * /home/turbo/stat.sh