Changeset 11292 for lang/perl/autobox-Numeric-Time

Timestamp:

05/09/08 14:55:12 (5 years ago)

Author:

hirose31

Message:

also accept "N.unit" format

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

Files:

• lang/perl/autobox-Numeric-Time/trunk/sample/unitary (modified) (2 diffs)

lang/perl/autobox-Numeric-Time/trunk/sample/unitary

@@ -3 +3 @@
 use UNIVERSAL::require;
 die q{[usage]
-$ unitary '2->megabytes' '3->days'
+$ unitary '2->megabytes' '3.days'
 2097152
 259200
@@ -11 +11 @@
     push @modules, $m if $m->require;
 }
-print eval(join('; ', (map "use $_", @modules), $_))."\n" for @ARGV;
+my $use = join '', map {"use $_; "} @modules;
+for (@ARGV) {
+    s/^(\d+(?:\.\d+)?)\.([a-zA-Z]+)$/$1->$2/; # transform N.unit to N->unit
+    my $e = "$use $_";
+    # warn $e."\n";
+    print eval($e), "\n";
+}