#!/usr/bin/perl require HTTP::Request; require HTTP::Headers; require LWP::UserAgent; $ua = LWP::UserAgent->new; while () { next if ! (($quantity, $partnumber) = /^\s*(\d)+\s+(\S+)\s*$/); $part{$partnumber} = $quantity; } open (OUTFILE, ">misb.html"); print OUTFILE q(); foreach $i (sort {$a <=> $b} keys part) { print OUTFILE $i, "
\n"; $request = HTTP::Request->new(GET => 'http://guide.lugnet.com/set/$i'); $response = $ua->request($request); print "http://guide.lugnet.com/set/$i :", $response->header('Title'), "\n"; } print OUTFILE q(); close OUTFILE;