1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
#!/usr/bin/perl -w
use strict;
use lib '../lib';
use Finance::Quote;
# This script demonstrates how currencies can be converted using
# Finance::Quote.
# Example usage: currency-lookup.pl USD AUD
# (Converts from US Dollars to Australian Dollars)
die "Usage: $0 FROM TO\n" unless defined($ARGV[1]);
my $q = Finance::Quote->new();
my $exchange_rate = $q->currency($ARGV[0],$ARGV[1]);
die "Urgh! Nothing back\n" unless $exchange_rate;
print $ARGV[0]."->".$ARGV[1]." = ".$exchange_rate."\n";
|
