Changeset 1955

Show
Ignore:
Timestamp:
09/14/06 17:01:51
Author:
miyagawa
Message:

added worlddate

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • misc/worlddate

    r1954 r1955  
    2929for my $tz (@tz) { 
    3030    $now->set_time_zone($tz); 
    31     my $date = $now->ymd('/') . ' ' . $now->hms(':'); 
    32     my $is_dst = $now->is_dst ? '*' : ''; 
    33     print "$date $tz$is_dst\n"; 
     31    print $now->ymd('/'), ' ', $now->hms(':'), " ", $tz, ($now->is_dst ? '*' : ''), "\n"; 
    3432} 
    3533