Datei-Erstellung nach String-Erkennung - #147227 (Allgemeines zu Perl)

bianca

2011-03-31 14:04

User since
2009-09-13
7016 Artikel
BenutzerIn

user image

Welchen Zeilenumbruch hat denn die Datei?
Evtl. mal vor dem open ein $/ = "\n";

Und dein Dateihandel sieht auch nicht schön aus. Besser:

Code (perl): (dl )

1
2
3

open (my $in,'<',$liste) or die "Fehler: $!\n";
  @jet_macs = <$in>;
close $in;

10 print "Hallo"
20 goto 10