Liest alle Dateien in einem Verzeichnis in Perl

8

Im ersten Teil meines Codes lese ich eine Datei und speichere verschiedene Teile davon in verschiedenen Dateien in einem Verzeichnis. Im Folgenden möchte ich alle Dateien in diesem Verzeichnis lesen, die ich im ersten Teil des Codes erstellt habe :

%Vor%

aber mit diesem Code wird die letzte Zeile der letzten Datei nicht gelesen

    
Fatimah 13.04.2011, 15:22
quelle

3 Antworten

15

Da ich nicht weiß, was Sie in der Zeilenleseschleife tun und @ docs und @Dir nicht verstehen, zeige ich Code, der für mich funktioniert:

%Vor%

Ausgabe:

%Vor%

Vielleicht können Sie einen relevanten Unterschied zu Ihrem Skript erkennen.

    
Ekkehard.Horner 13.04.2011 16:14
quelle
4

Ich habe den Code leicht modifiziert, um nur die Grundidee in einem Verzeichnis zu testen, das meine Perl-Programme enthält, und es scheint zu funktionieren. Sie sollten jedoch @docs anstelle von @dir durchlaufen (und ich empfehle dringend, sowohl die strict- als auch die warnings-Pragmas zu verwenden).

%Vor%     
Cooper 13.04.2011 16:16
quelle
1

glob macht das, was Sie wollen, ohne das Öffnen / Schließen-Zeug. Und wenn Sie eine Gruppe von Dateien in @ARGV stecken, funktioniert der "Diamant" -Operator wie gewohnt.

%Vor%     
Axeman 13.04.2011 17:46
quelle

Tags und Links