お金を使わない日 - ふしはらかんのらーめん話

家計簿をつけはじめてから半月。GMailの「account book」ラベルには結構な数のメールがたまってきた。 で、半分経過したと言うことで途中経過を出してみることに。こんな感じのスクリプトで集計。 #!/usr/bin/perl use strict; use warnings; use Jcode; use Mail::Webmail::Gmail; my $gmail = Mail::Webmail::Gmail->new( username => 'kan.fushihara', password => 'xxxxxxxxxxxxx', ); my $messages = $gmail->get_messages( label => 'account book' ); my $total = 0; my $days = 0; foreach ( @{$messages} ) {

[otsune]

それCustomFeed::Scriptで

[d4-1977]

Mail::Webmail::Gmailの使い方例