Changeset 2105

Show
Ignore:
Timestamp:
11/19/06 17:18:50
Author:
miyagawa
Message:

add coloring

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • misc/worlddate

    r1960 r2105  
    44use DateTime; 
    55use DateTime::TimeZone; 
     6use Term::ANSIColor; 
    67 
    78my @tz = ( 
    89    'UTC', 
    910    'Pacific/Honolulu', 
    10     'America/Los_Angeles'
     11    [ 'America/Los_Angeles' ]
    1112    'America/Chicago', 
    1213    'America/New_York', 
     
    2122    'Asia/Shanghai', 
    2223    'Asia/Hong_Kong', 
    23     'Asia/Tokyo'
     24    [ 'Asia/Tokyo' ]
    2425    'Australia/Sydney', 
    2526    'Pacific/Auckland', 
     
    2829my $dt = DateTime->now; 
    2930for my $tz (@tz) { 
     31    my $color; 
     32    if (ref $tz) { 
     33        $tz = $tz->[0]; 
     34        $color = 1; 
     35    } 
    3036    $dt->set_time_zone($tz); 
     37    print color 'yellow' if $color; 
    3138    print $dt->strftime("%Y/%m/%d (%a) %H:%M:%S "), $dt->time_zone->name, ($dt->is_dst ? '*' : ''), "\n"; 
     39    print color 'reset' if $color; 
    3240}