pricecharts

track prices of consumer electronics
Log | Files | Refs | README

commit 419ceaa1cfbfaf2ce3fb8951fe24aedc59e6eb48
parent 48c38bc09923a8b187f34f4f62ff984f15b58685
Author: Kyle R W Milz <kyle@getaddrinfo.net>
Date:   Wed, 13 Aug 2014 01:17:46 -0600

price_scraper: sort vendor keys

Diffstat:
Mprice_scraper.pl | 8++++----
1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/price_scraper.pl b/price_scraper.pl @@ -80,8 +80,8 @@ my $ua = LWP::UserAgent->new(agent => 'Mozilla/5.0'); # some sites need this (amazon I think?) $ua->default_header('Accept' => '*/*'); -while (my ($name, $vendor) = each ($cfg->{vendors})) { - +for (sort keys $cfg->{vendors}) { + my $vendor = $cfg->{vendors}{$_}; my $dom = get_dom("$vendor->{search_uri}$part_no", $ua); next if (!defined $dom); @@ -112,8 +112,8 @@ while (my ($name, $vendor) = each ($cfg->{vendors})) { ($price) = ($price =~ m/(\d[\d,]+)/); $price =~ s/,//; - print substr($name, 0, 1); - $prices{"\"$name\""} = $price; + print substr($_, 0, 1); + $prices{"\"$_\""} = $price; } print '] (' . (time - $time_start) . " s)\n";