Sziasztok!
Elakadtam ennel a temanal:
Csimalok egy tobbdimenzios tombot:
#ez itt nem lenyeg, csak egy ciklus, ami erteket ad a @rec-nek
for (my $i=0;$i<$end;$i++)
{
@rec = $database->get_record;
if ( ($rec[9] eq "new")||($rec[9] eq "act"))
{
#a @lista lenne a tomb, amibe raknam a @rec tombot, imigyen:
@rec=split;
push ]);
#innentol megint nem lenyeg
}
$database->go_next;
}
#itt megnezem a tombelemek szamat:
$hossz= @lista;
print "\$hossz=$hossz";
#annyi, amennyinek kellene lennie
#itt olvasnam vissza:
for $sor )
{
print "$sor<br>";
}
Viszont csak egy rakas Array..-t kapok eredmenyul.
Az egesz a MacMillan Perl konyv alapjan keszult, de meglehetosen szuxavu
ebben a temaban, es mashol sem talaltam ra a megoldasra.
Tud valaki segiteni?
egy CC-t kulon +koszonnek.
Udv:
Bicsi
|