Dear my friends...
I want to take all the strings between "<a .... class=l>" and "</a>" and put it
into array.
I do this way but it does not work properly:
$kontenurl=eksekusi->baru();
$_=$kontenurl->gogeturl("$assprm{'kwnya'}", "$urlnya", "$nohal");
print "$_";
print "<hr>";
print "<table border=1>";
$i=0;
while (<>){
@result[$i]=substr($_, index($_,"<a. class=l>"), index($_, "</a>"));
print "<tr><td>";
print "@result[$i]";
print "</td></tr>";
$i++;
}
print @result;
print "</table>";
Please tell me where my mistake.
--
Patrik Hasibuan <[EMAIL PROTECTED]>
Junior Programmer
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
