Show
Ignore:
Timestamp:
05/09/08 14:55:17 (6 years ago)
Author:
hirose31
Message:

also accept "N.unit" format

2->daysに加えて、2.daysも受け付けるようにした。
">"がシェルでリダイレクトとして解釈されてうざいので。

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/autobox-Numeric-Bytes/trunk/sample/unitary

    r11280 r11293  
    33use UNIVERSAL::require; 
    44die q{[usage] 
    5 $ unitary '2->megabytes' '3->days' 
     5$ unitary '2->megabytes' '3.days' 
    662097152 
    77259200 
     
    1111    push @modules, $m if $m->require; 
    1212} 
    13 print eval(join('; ', (map "use $_", @modules), $_))."\n" for @ARGV; 
     13my $use = join '', map {"use $_; "} @modules; 
     14for (@ARGV) { 
     15    s/^(\d+(?:\.\d+)?)\.([a-zA-Z]+)$/$1->$2/; # transform N.unit to N->unit 
     16    my $e = "$use $_"; 
     17    # warn $e."\n"; 
     18    print eval($e), "\n"; 
     19}