use LWP::Simple; # GET ARGV WILDCARDS use Win32::Wildcard 'unfold'; unfold; # Convert TO INTEGER use Data::Types qw(:all); $startpage = "http://cgi.ebay.com/ws/eBayISAPI.dll?ViewItem&rd=1&item=260622078967"; # ######### Grab page request $content = get($startpage); #book2 ## Then follow the link to see full description if ($content =~ /See full description/) { @contentsplit = split(/\n/, $content); foreach (@contentsplit) { if ($_ =~ /See full description/) {$contentline=$_;$itemfollowlink= "item=" .$itemnnumber;open (MYFILE3, '>TRY2.TXT');print MYFILE3 "Try-1\n $contentline \n"; @linksplit1 = split(/" rel="nofollow">See full description/, $contentline); print MYFILE3 "Try-2\n @linksplit1[0] \n"; @getauctionlink1 = split(/cgi.ebay.com/, @linksplit1[0]); print MYFILE3 "Try-3\n @getauctionlink1[2]\n"; $seefulldescriptionlink = "http://cgi.ebay.com" . @getauctionlink1[2]; # $seefulldescriptionlink =~ s/amp;//ig; print MYFILE3 "Try-4\n $seefulldescriptionlink\n";close MYFILE3; #### Try-1
Item number: 260622078967

Outliers by Malcolm Gladwell (2008, Hardcover), NEW

Item condition:Brand New
Ended:Dec 31, 201023:04:52 PST
Price:US $14.12 [ 40 sold ]
Shipping:
$3.99 Expedited Shipping
Seller:
  
Try-2
Item number: 260622078967

Outliers by Malcolm Gladwell (2008, Hardcover), NEW

Item condition:Brand New
Ended:Dec 31, 201023:04:52 PST
Price:US $14.12 [ 40 sold ]
Shipping:
$3.99 Expedited Shipping
Seller: