Referenz beim Einlesen einer Datei? - #73370 (Allgemeines zu Perl)

topeg

2007-01-20 11:58

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Nun Perl ließt von "natur aus" jede Zeile einzeln ein (das ist in $/ festgelegt was ein Zeilentrenner sein soll)
wenn du allso das machst:

Code (perl): (dl )

while(defined(my $i = <FILE>)) { $test[0] = $i; }

wird in "$test[0]" immer die letzte Zeile der Datei eingelesen, da perl mit der ersten Zeile beginnt und mit der letzten aufhört.
willst du eine ganze datei in ein Array einlesen geht das so:

Code (perl): (dl )

while(defined(my $i = <FILE>)) { push(@test,$i); }

oder so:

Code (perl): (dl )

@test=<FILE>;

wenn du die gesammte datei in einen Arrayeintrag haben willst mußt du es so machen:

Code (perl): (dl )

$test[0]=join('',<FILE>);

oder so:

Code (perl): (dl )

{
  local $/='';
  $test[0]=<FILE>;
}