Probleme mit Tie::File - #117781 (Fragen zu Perl-Modulen)

Vermillion

2009-01-09 12:44

User since
2008-07-18
24 Artikel
BenutzerIn
[default_avatar]

Hab mir grad ein kleines Programm geschrieben, dass Satzteile aus 4 Dateien holt und daraus einen "Satz" bzw. einen Ausdruck machen soll. Hab dazu Tie::File benutzt. Ich führe das Programm im Moment unter Windows aus. Bekomme folgende Fehlermeldung:

Code: (dl )

1
2

Scalar Value @first better written as $second
use of uninitalized value within @first in print

(Die Fehlermeldung bekomme ich für alle Arrays)

Wenn ich aus @first einen Skalar mache funktioniert Tie::File nichtmehr. @first müsste ja eigentlich beim einlesen der Datei mit Tie::File initialisiert werden. Schliesslich bekomme ich ja keine Meldung, dass die Datei nicht geöffnet werden konnte. Was habe ich falsch gemacht?

Hier der Code:

Code (perl): (dl )

use strict;
use warnings;
use List::Util 'shuffle';
use Tie::File;

my @first;
my @second;
my @third;
my @fourth;

tie @first, 'Tie::File', "first.txt" or die "Can not open file 1!";
@first=shuffle(@first);

tie @second, 'Tie::File', "second.txt" or die "Can not open file 2!";
@second=shuffle(@second);

tie @third, 'Tie::File', "third.txt" or die "Can not open file 3!";
@third=shuffle(@third);

tie @fourth, 'Tie::File', "first.txt" or die "Can not open file 4!";
@fourth=shuffle(@fourth);

print @first[0];
print " ";
print @second[0];
print " ";
print @third[0];
print " ";
print @fourth[0];