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:
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";