Probleme mit Inkrementierung - #66373 (Allgemeines zu Perl)

nikster77

2006-05-21 15:21

User since
2006-02-08
26 Artikel
BenutzerIn
[default_avatar]

Ich wuerde aber gerne jede dieser Variablen wieder in ein eigenes Array schreiben...

Code: (dl )

my @temp = ();

open(TEXT, "/home/nikster/supertext") || die "Unable to read from supertext : $!";
while(<TEXT>)
{
 if ($_ =~ m/^hallo/ig) {
push @text, (split m/[:\[\]]/, $_);
}
}
close (TEXT);

Jetzt habe ich alle Textzeilen in einem Array und kann sie auch per $text[xy] aufrufen.

Aber wie schreibe ich jede Zeile in ein eigenes Array?

Code: (dl )

for ($i <= $#text) {
  $i += 1;
push @temp, ($text[$i]);
}

bringt nichts weil ich dann alles wieder in einem Array hab, bzw. eigentlich nur die letzte Zeile.
Ich muesste also ein eigenes Array fuer jede Zeile anlegen...
womit ich wieder beim hochzaehlen waere.\n\n