Changeset 2065

Show
Ignore:
Timestamp:
10/31/06 03:31:49
Author:
miyagawa
Message:

now you can say currency -f USD -t JPY 100

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • misc/currency

    r2063 r2065  
    77use Pod::Usage; 
    88 
     9my $from; 
    910my $to   = "JPY"; 
    10 GetOptions('help|?' => \my $help, '--to=s', \$to); 
     11GetOptions('help|?' => \my $help, '--to=s', \$to, '--from=s', \$from); 
    1112pod2usage(1) if $help; 
     13 
     14push @ARGV, $from if $from; # --from JPY 100 = 100 JPY 
    1215 
    1316no warnings 'uninitialized';