perl 曜日を入れる

質問

perl初心者です。試行錯誤の連続です・・・
このように　↓　（ ）と曜日を追加するにはどうしたら良いでしょう？。
2008/07/05（土）
また、変なところもありましたら指摘してください <(_ _)>
#--------------------------------------
#　時間
$time = time();

#　範囲日
$day1 = day0($time + (86400 * 2));
$day2 = day0($time + (86400 * 3));
$day3 = day0($time + (86400 * 4));
### @weeeeek = ('$day1','$day2','$day3','$day4','$day5','$day6');

#　日計算
sub day0{
my $time = shift || time();
my $day0 = $time + (24 * 60 * 60);
my ($yyyy, $mm, $dd) = (localtime($day0))[5,4,3];
$yyyy += 1900;
$mm += 1;
return(
sprintf('%4d/%2d/%2d', $yyyy, $mm, $dd)
);
}
#--------------------------------------

### @list = ('（日）','（月）','火','水','木','金','土');
### ( "$mm/$dd + "（" + list + "）" );

回答No.1

mtaka2 · ベストアンサー

> my(@weekdayname) = ('日','月','火','水','木','金','土');
をどこかに追加

> my ($yyyy, $mm, $dd) = (localtime($day0))[5,4,3];
↓
> my ($yyyy, $mm, $dd, $w) = (localtime($day0))[5,4,3,6];

> sprintf('%4d/%2d/%2d', $yyyy, $mm, $dd)
↓
> sprintf('%4d/%2d/%2d(%s)', $yyyy, $mm, $dd, $weekdayname[$w])

お礼

すごい！出来ました　ありがとうございました。

でも新たに問題が・・・　時間があればお願いします<(_ _)>
http://oshiete1.goo.ne.jp/qa4142433.html