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

TheDHK

2007-01-20 11:10

User since
2007-01-19
37 Artikel
BenutzerIn
[default_avatar]

Hi,
sorry, vielleicht ist meine Frage ein wenig dumm, aber ich kenne mich mit Perl noch nicht ganz so gut aus. Ich möchte den gesamten Inhalt einer Datei in ein Array einlesen. Dazu hab ich folgendes Skript:

Code (perl): (dl )

#!/usr/bin/perl -w
use strict;
use warnings;

use Tk;

my @test = ("");

my $top = MainWindow -> new(-background => 'black', -height => '768', -width => '1024');
$top -> title('Scrutator');


my $rw = open(FILE,'E:\Eigene Dateien\Programme\Test\profiles.xml');
if(not defined($rw)) {
die "Fehler beim Öffnen der Datei: $!\n";
}
while(defined(my $i = <FILE>)) { $test[0] = $i; }
close(FILE);


MainLoop;

Wie ihr seht, wird dem Array $test[0] in der while-Schleife der Wert von $i zugewiesen. Wie kann ich nun auch außerhalb der Schleife auf das Array $test[0] zugreifen? Hab das schon probiert, aber $test[0] war dann leer.

Gruß

TheDHK