I have a subroutine that parses html and gets a commodity quote, however since I will extend this subroutine I want to assign each $aandeelquote to its own separate $aandeellist, gold needs to be in the goldlist and copper in the copperlist how can I make it happen? I am sorry I am so vague but I have no clue how to do this
sub comgetter {#platinum enzo werkt allemaal nog niet my @comquotes; $html = get("http://www.forexpros.nl/commodities/real-time-futures-not +eringen") or die "Couldn't fetch the commodities quotes"; foreach $aandeel (@_) { #printf "$aandeel "; @url = split(/title="$aandeel"/, $html); $geest = "</td><td"; #print "$url[1]"; @url1 = split(/$geest/, $url[1]); #print "$url1[1]"; @url2 = split(/>/, $url1[1]); #$html =~ m{basevalues['11754LastPrice'] = ([\d,]+) ;}; #printf $_; #printf $sales_rank #$html =~ m{ '11754LastPrice'] = (.*?);}i; # extract destination + of link #$url = $1; printf "$aandeel $url2[1]\n"; push (@quotes,$url2[-1]); } return @quotes }
In reply to list separation by robertw
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |