time値で曜日の色を変えたいです

質問

初歩的な質問で恐縮ですがParlで
[4/2(Sat) 11:54:59]

上記の場合に土曜日はSatの文字を青色、日曜の時はSunの文字を赤色に変えたいのですがどうしたらよいのでしょうか？

回答No.1

BLUEPIXY · ベストアンサー

こんな感じ
$timeStr="4/2(Sat) 11:54:59";
$timeStr =~ s/(\(Sat\))/<span style="color:blue">$1<\/span>/;
$timeStr =~ s/(\(Sun\))/<span style="color:red">$1<\/span>/;

お礼

すみません、解決しました。
ありがとうございました

補足

試してみましたが、うまくいきませんでした。

sub set_date{
$time = time;
($sec,$min,$hour,$mday,$month,$year,$wday,$yday,$isdst) = localtime($time);
$min = "0$min" if($min<10);
$sec = "0$sec" if($sec<10);
$month++;
@wday_str = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
$date = "$month/$mday(@wday_str[$wday]) $hour:$min:$sec";
srand($time);
}
こんな感じで時間を出しています