Die Webseiten der Fachschaft Informatik am ERG Saalfeld

Textdatei einlesen und Zeilen nummerieren

Es soll eine Textdatei eingelesen werden, vor jede Zeile die Zeilennummer gesetzt werden und dann diese nummerierten Zeilen wieder ausgegeben werden.

einfaches Programm (nur für kleine Dateien)

use strict;
use warnings;

my $datei = $0;        # in der Spezialvariablen $0 steht der Name der Datei

open FILE, '<', $datei or die "konnte $datei nicht zum Lesen oeffnen. $!\n";
my @zeilen = <FILE>;        # wir lesen die Datei ein
close FILE;                      # wir schliessen das Dateihaendel

# fuer jede Zeile setzen wir die Zeilennummer davor und geben diese aus
my $nummer = 1;                  # Initialisieren
foreach my $zeile (@zeilen) {
  print $nummer . ': ' . $zeile; # Ausgabe
  $nummer++;                     # Zeilennummer incrementieren
}

__END__

Der Aufruf sah bei mir so aus:

Anmerkung: für große Textdateien wie z.B. Logfiles sollte man die Dateien mit einer while-Schleife einlesen. z.B. so:

my @zeilen = ();
open FILE, '<', $datei or die "konnte $datei nicht zum Lesen oeffnen. $!\n";
while (my $zeile = <FILE>) {
  push @zeilen, $zeile;
}
close FILE;

Aufgaben

Bringen Sie das Programm zum Laufen.
Ersetzen Sie das Einlesen durch die angegebene Variante mit der while-Schleife.
Zeichnen Sie zu diesem Programm ein Struktogramm
Verwenden Sie statt der Variablen $0 den Namen der Datei.
Provozieren Sie eine Fehlermeldung, indem Sie den Dateinamen bewußt falsch schreiben.
Informieren Sie sich über die Spezialvariable $0 und $! z.B. hier.
Leiten Sie die Ausgaben in eine Datei um.
Ergänzen Sie das Programm so, dass am Ende auch die Anzahl der Zeilen ausgegeben werden.

zurück