
strandmoran
New User
Nov 10, 2011, 8:15 AM
Post #3 of 3
(6303 views)
|
Re: [FishMonger] string compare find match data
[In reply to]
|
Can't Post
|
|
SOLVED BY STRANDMORAN : $buffer='&vv0=3002+++%24+4.1+Q%3A+2&vv3=3007+++%24+8.3+Q%3A+7&vv42=3007+++%24+8.3+Q%3A+7&'; $buffer =~ tr/+/ /; $buffer =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; $buffer =~ s/<!--(.|\n)*-->/ /g; $buffer =~ tr/\\|[|]|<|!|"|$|{|}|*|#|'|>|||;|%/ /; @pairs = split(/&/,$buffer); foreach $pair(@pairs){ ($key,$value)=split(/=/,$pair); $formdata{$key}.="$value"; } for($ii = 0; $ii < 50; $ii++ ){ $dd[$ii]='vv' . $ii; } $jj=0; $nrp=0; while (($ky, $val) = each (%formdata)){ $val = $formdata{$ky}; print " ($ky) <==> $val ($dd[$jj]) \n"; for($ii = 0; $ii < 50; $ii++ ){ if( $ky eq $dd[$ii] ) { print "YES, I FIND: dd= $dd[$ii] > ky= $ky <==> val= $val \n"; $prx[$nrp]=$ky; $prn[$nrp]=$val; $nrp++; } } $jj++; } for($ii = 0; $ii < $nrp; $ii++ ){ print "RESULT: $prx[$ii] ----- $prn[$ii] \n"; } ---- print out html code ------------ for($ii = 0; $ii < $nrp; $ii++ ){ print OUTF "<tr> \n"; print OUTF "<td> $prx[$ii]: </td>\n"; print OUTF "<td> $prn[$ii] </td>\n"; print OUTF "</tr>\n"; }
|