Zapisywanie wyniku split do tablicy w pętli.

0

Witam.
Otóż dopiero zacząłem swoją przygodę z Perlem i mam pewien problem. A mianowicie mam za zadanie czytać kolejne linie z pliku i zapisywać wyrazy odseparowane przecinkiem do tablicy. Zrobiłem to tak:

open($list, "<", $student_list) or die "Nie mozna otworzyc \"$student_list\": $!";

while ($linelist = <$list>)
{
   printf("$linelist");
   chomp $linelist;
   @tablist = split(',', $linelist);
}
close($list)

Plik który wczytuję wygląda przykładowo tak:

Andrzej, Kowalski, 23456
Jan, Nowak, 43512

I problem jest taki, że stworzona tablica ma zawsze 3 elementy. Przy każdym wykonaniu pętli while, zamiast dodać kolejne 3 elementy do tablicy, to trzy poprzednie zostają nadpisane. Ma ktoś pomysł jak to można rozwiązać?

dodanie znacznika <code class="none"> - @furious programming

1
@tablist = split(',', $linelist);

A czego oczekujesz po tym fragmencie?

To co jest Ci potrzebne znajdziesz jako poniższą linijkę

push(@tablist, split(',', $linelist));
0

Dziękuję bardzo! Już działa :)

1 użytkowników online, w tym zalogowanych: 0, gości: 1