[Perl] SEEK in "strict subs" ???

[SNOWMAN]

Hi, ich hab ein Script welches Dateien nach einer bestimmten Artieklnummer durchsucht, die steht nun in einer Zeile, jetzt möchte ich in die Zeile die danach kommt.

Wie mach ich das?

Ich habe es mit "SEEK( FILE, 50 , SEEK_CUR)" versucht aber es dann kommt folgender Fehler:

Bareword "SEEK_CUR" not allowed while "strict subs" in use at E:\bin\Segment-Catch.pl line 163.

Execution of E:\bin\Segment-Catch.pl aborted due to compilation errors.

Was hab ich noch für möglichkeiten in die nächste zeile zu gelangen???

[dummabua]

hallo,

ich selber hatte diesen fehler noch nicht, aber mein perl buch meint zu diesem fehler folgendes:

Ist "strict subs" aktiv, ist ein Bareword nur als Subroutinen-Identifier, in geschweiften Klammern stehend oder links von => stehend erlaubt. Vielleicht haben Sie vergessen, eine Subroutine vorzudeklarieren?

Hoff mal, das hilft dir dabei ?!

[alligator]

Hallo,

$flag=0;

open(LESEN,"demo.dat") or die "Fehler beim Öffnen von 'demo.dat': $!\n";

while(defined($i = <LESEN>))

{

if ($flag==1)

{

do something;

$flag=0

}

if ($i == 12345)

{$flag=1}

}

Hiermal ne Quickhacklösung. Es wird ein Flag gesetzt wenn deine Art-Nummer erreicht ist und geht dann mit der nächsten Zeile in die if-Anweisung.

cya

alligator