Missing right curly or square bracket at..

[René]

Hallo,

mein Problem ist zwar nicht Webspezifisch, aber zumindest Perlspezifisch: Ich habe ein kleines Perlscript geschrieben, welches immer die Fehlermeldung bringt:
Missing right curly or square bracket at /home/rene/bin/ausgabe line 21, at end of line
syntax error at /home/rene/bin/ausgabe line 21, at EOF
Execution of /home/rene/bin/ausgabe aborted due to compilation errors.

Ich habe die Syntax immer wieder und wieder geprüft und kann keinen Fehler finden. Zeile 21 ist das Ende des Scripts. Hier das ganze kurze Script:
#! /usr/bin/perl

use strict;

#Deklarationen
my $dateiname="datei.pl";
my $daten=0;
my @zeilen=();
my $anzeige=0;

Einlesen

open (Datei, "<$dateiname");
while($daten=<Datei>) {
chomp($daten);
push(@zeilen,$daten);
close (Datei);

Ausgeben

foreach (@zeilen) {
print "$_\n";
};

Kann mir jemand helfen?

[$xNeTworKx]

Hola,

#! /usr/bin/perl

#!/usr/bin/perl -w

use strict;

sehr gut

#Deklarationen
my $dateiname="datei.pl";

my $dateiname = 'datei.pl';

my $daten=0;
my @zeilen=();
my $anzeige=0;

Einlesen

open (Datei, "<$dateiname");

open (DATEI, $dateiname) or die "Kann $dateiname nicht oeffnen, weil: $!\n";

while($daten=<Datei>) {
chomp($daten);
push(@zeilen,$daten);
close (Datei);

Ausgeben

foreach (@zeilen) {
print "$_\n";

};

Hier gehört kein ;

Ich würde das überhaupt anders machen:
local $/;
$daten = <DATEI>;
close DATEI;

print $datei;

Kann mir jemand helfen?

Du hast ein abschließendes } vergessen, wie die Fehlermeldung schon sagt, oder machst du die while Schleife nicht zu?

$xNeTworKx.

[René]

Hallo,

mein Problem ist zwar nicht Webspezifisch, aber zumindest Perlspezifisch: Ich habe ein

Sorry ich habe Tomaten auf den Augen, vergeßt es bitte einfach, alles klar.

Gruß
René