Zeilennummern einfügen - #114674 (Allgemeines zu Perl)

bytebrain

2008-09-15 19:17

User since
2008-07-21
20 Artikel
BenutzerIn
[default_avatar]

Was genau möchtest du tun?

Mach aus:
Zeile eins
Zeile zwei
Zeile drei

1. Zeile eins
2. Zeile zwei
3. Zeile drei

Meinst du sowas? Wenn ja:
lies die Datei ein ein Array. Danach schreibe den Inhalt des Arrays in einer Schleife zeilenweise in eine neue Datei. Hier kannst du dann die Zeilennummern hinzufügen.

Code (perl): (dl )

my $fh = open(FH, "/pfad/zur/datei.txt");
my $out = open(OUT, ">/pfad/zur/neuen_datei.txt");

my @lines = <FH>;
my $i = 0;
foreach(@lines) {
    print OUT "$i. $_\n";
    $i++;
}

In deiner neuen Datei hast du dann die Zeilen mit Zeilen-Nummer.

Gruß,
bytebrain