perl+tablice

Question

Mam taki oto skrypt:

#!/usr/bin/perl -w

#print $ARGV[0]."<br>" . "<hr>";

open( PLIK, "/home/szukaj/index/" . $ARGV[0] . ".index" );

while ($line = <PLIK>) {

@tb = split('|', $line);

print '<div style="border: 3px solid red;">';
print @tb[0];
print '</div>';

}

close PLIK;

W jaki sposób moŋę odwołać się do elementu tablicy po splicie, gdzie delimiterem jest znak: "|" ?

Answer 1

Problem rozwiązany

split(/\|/, $zm);