pricecharts

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