#! /usr/local/bin/perl
$home=$ENV{'HOME'};
$n=0;
open(LIST,"$home/.mail.address");
while(<LIST>){
chop;
($address,$name)=split(/,/);
%meibo=(%meibo,"$address","$name");
}
close(LIST);
%tuki=("Jan","01","Feb","02","Mar","03","Apr","04",
"May","05","Jun","06","Jul","07","Aug","08",
"Sep","09","Oct","10","Nov","11","Dec","12");
%youbi=("Mon","月","Tue","火","Wed","水","Thu","木","Fri",
"金","Sat","土","Sun","","日");
open(FROM,"from|");
print "☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆\n";
while(<FROM>){
++$n;
chop;
($gomi,$from,$day,$month,$hi,$time,$jst,$year)=split(/ /);
$from=$meibo{"$from"}||$from;
$month=$tuki{"$month"}||$month;
$day=$youbi{"$day"}||$day;
$hour=substr($time,0,2);
$min=substr($time,3,2);
&output;
}
if($n==0){print "\t\t 読んでないメールは一個もないぞ〜。\n";}
print "☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆\n";
if($n!=0) {print "$n通の新着メールでした。\n";}
close(FROM);
sub output{
format STDOUT=
【@|||||||||||||||||】から@|||年@|月@|日@|曜日@|時@|分に届きました。
$from,$year,$month,$hi,$day,$hour,$min
.
write STDOUT;
}