Category: | Web Stuff |
Author/Contact Info | Andy Summers bladx |
Description: | Taken from a POD snippet within the code: This progam's use and reason for being created, is simply for anyone that wantsto be able to check the exchange rates for different types of money, such as fromother countries. Say one was going on a trip to Japan, and they live currently in the United States. They would need to find out how much money they should bring, in order to have a good amount, and there isn't an easier way (almost) than to just enter in the amount you want converted using CEG and telling it to convert from what type of money, to the other country's money. |
#!/usr/bin/perl -w use strict; use LWP::Simple; # Popular currencies are: USD, GBP, EUR, and JPY. my ($amount,$cf,$ct) = ($ARGV[0],$ARGV[1],$ARGV[2]); $_=get("http://www.oanda.com/converter/classic?value=$amount&exch=$cf& +expr=$ct"); s/^.*<!-- conversion result starts//s; s/<!-- conversion result ends.*$//s; s/<[^>]+>//g; s/[ \n]+/ /gs; print $_, "\n" =head1 NAME CEG - Currency Exchange Grabber =head1 SYNOPSIS perl ceg.pl 50 USD JPY =head1 DESCRIPTION Here is a rough break-down of what each of the ARGV's are needed, +and mean: perl ceg.pl ($amount) ($cf - convert from) ($ct - convert to) This progam's use and reason for being created, is simply for anyo +ne that wants to be able to check the exchange rates for different types of mone +y, such as from other countries. Say one was going on a trip to Japan, and they l +ive currently in the United States. They would need to find out how much money the +y should bring, in order to have a good amount, and there isn't an easier way (alm +ost) than to just enter in the amount you want converted using CEG and telling it to + convert from what type of money, to the other country's money. It is a very simple program, and is really the first time I have u +sed LWP to do something (useful,) so it could have a lot of new features to add +in the future, and possible bug fixes, or efficiency caveats that could be changed, a +nd so on. =head1 POPULAR CURRENCIES Here are a few popular currencies you can use: USD - US Dollars GBP - UK EUR - EURO JPY - Japanese Yen You can find more at: http://www.oanda.com =head1 HISTORY Derived from a snippet from mitd: http://www.perlmonks.org/index.pl?node_id=1553&lastnode_id=10799 +8 Developed by Andy summers on 28/08/2001 =cut |
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Currency Exchange Grabber
by myocom (Deacon) on Aug 29, 2001 at 03:22 UTC | |
Re: Currency Exchange Grabber
by robsv (Curate) on Aug 29, 2001 at 20:33 UTC | |
Re: Currency Exchange Grabber
by bladx (Chaplain) on Aug 29, 2001 at 21:55 UTC |
Back to
Code Catacombs