This gives an error that states that I split an unintialized value, why? I declared all variables and i just gave split a string to parse. I am not familiar with these errors so far since I am trying to script with warnings and strict from now on to become a better programmer. I am sorry for asking question so regularly however I am not have a huge trouble figuring these things error. Thank you so much in advance.
use LWP::Simple; use List::Util 'max'; use strict; use warnings; stockquotegetter(); sub stockquotegetter { my (@quotes,$html,@aandelen,@url,@url1,@url2,$aandeel,%stockhash1); $html = get("http://www.iex.nl/Koersen/Aandelen.aspx") or die "Couldn't fetch the stock quotes"; @aandelen = qw(Aegon Air Ahold Aperam Akzo ASML ArcelorMittal ING Bosk +alis Corio DSM Fugro Heineken KPN Philips PostNL Randstad Reed Royal + SBM TNT TomTom Wolters Unilever); foreach $aandeel (@aandelen) { print "$aandeel"; @url = split(/Realtime koers $aandeel/, $html); @url1 = split(/LastPrice"><span>/, $url[1]); @url2 = split(/</, $url1[1]); printf "$aandeel $url2[0]\n"; push (@quotes,$url2[0]); $stockhash1{ $aandeel } = $url2[0]; #eval for hourly } #print @quotes; return %stockhash1; #print %stockhash1; }
In reply to why does this perl routine error? by robertw
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |