I have been using Finance::Quote for about a month to update currency rates on our intranet... however, it seems Yahoo! have changed something so it no longer works.. Can someone verify this?
Many thanks,
Trev
If you would like to refer to this comment somewhere else in this project, copy and paste the following link:
Anonymous
-
2002-04-16
I'm having the same problem.
If you would like to refer to this comment somewhere else in this project, copy and paste the following link:
Anonymous
-
2002-04-16
Found it.
Somewhere around line 237 in Quote.pm (sorry I edited and lost exact lines, should be accurate between one or two lines)
Look for:
my ($exchange_rate) = $data =~ m#$from$to=X</a></td><td>1</td><td(?: nowrap)?>[^<]+</td><td>(\d+\.\d+)</td>#;
and change to:
my ($exchange_rate) = $data =~ m#$from$to=X</a></th><th>1</th><th(?: nowrap)?>[^<]+</th><td>(\d+\.\d+)</td>#;
looks like they change the td into th.
If you would like to refer to this comment somewhere else in this project, copy and paste the following link:
Hi,
I have been using Finance::Quote for about a month to update currency rates on our intranet... however, it seems Yahoo! have changed something so it no longer works.. Can someone verify this?
Many thanks,
Trev
I'm having the same problem.
Found it.
Somewhere around line 237 in Quote.pm (sorry I edited and lost exact lines, should be accurate between one or two lines)
Look for:
my ($exchange_rate) = $data =~ m#$from$to=X</a></td><td>1</td><td(?: nowrap)?>[^<]+</td><td>(\d+\.\d+)</td>#;
and change to:
my ($exchange_rate) = $data =~ m#$from$to=X</a></th><th>1</th><th(?: nowrap)?>[^<]+</th><td>(\d+\.\d+)</td>#;
looks like they change the td into th.
Thanks Sean. Patch works a treat. Going into the official source to be released today. :)
Thanks Sean!! :)))