This will do the trick. I have only supplied the all important convert function. I leave to you to wrap what ever code you require around it.
use LWP::Simple; ... sub convert { $_=get("http://www.oanda.com/converter/ classic?value=$amount&exch=$fc&expr=$tc"); s/^.*<!-- conversion result starts//s; s/<!-- conversion result ends.*$//s; s/<[^>]+>//g; s/[ \n]+/ /gs; print $_, "\n"; }
mitd - Made in the dark.
In reply to Re: Currency Exchange Rate Programming
by mitd
in thread Currency Exchange Rate Programming
by bladx
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |