Wie kann ein Perl-Skript (idiomatisch) am besten fehlgeschlagen (mit -n / -p ausgeführt) werden, wenn die Eingabedatei nicht gefunden wird?

11

$ perl -pe 1 foo && echo ok
Can't open foo: No such file or directory.
ok

Ich möchte wirklich, dass das Perl-Skript fehlschlägt, wenn die Datei nicht vorhanden ist. Was ist der "richtige" Weg, um -p oder -n zum Fehlschlagen zu bringen, wenn die Eingabedatei nicht vorhanden ist?

perl

— William Pursell
quelle

6

Der Schalter -p ist nur eine Verknüpfung zum Umschließen Ihres Codes (das Argument nach -e) in diese Schleife:

LINE:
  while (<>) {
      ...             # your program goes here
  } continue {
      print or die "-p destination: $!\n";
  }

(-n ist das gleiche, jedoch ohne den Continue-Block.)

Der <>leere Operator entspricht readline *ARGV, und das öffnet jedes Argument nacheinander als Datei zum Lesen. Es gibt keine Möglichkeit, die Fehlerbehandlung dieses impliziten Öffnens zu beeinflussen, aber Sie können die Warnung, die es ausgibt, schwerwiegend machen (beachten Sie, dass dies auch mehrere Warnungen betrifft, die sich auf den Schalter -i beziehen):

perl -Mwarnings=FATAL,inplace -pe 1 foo && echo ok

— Grinnz
quelle

@MarkReed inplace ist die Warnungskategorie, an der wir interessiert sind. Es gibt keinen Grund, andere Warnungen zu beeinflussen.

— Grinnz

Aus Warnungen :

The presence of the word "FATAL" in the category list will escalate warnings in those categories into fatal errors in that lexical scope.

— Grinnz

Richtig, inplaceist die Kategorie; ohne es -Mwarnings=FATALbedeutet FATAL => all, was wir nicht wollen. verstanden.

— Mark Reed

4

Setzen Sie ein Flag im Hauptteil der Schleife und überprüfen Sie das Flag im END-Block am Ende des Oneliner.

perl -pe '$found = 1; ... ;END {die "No file found" unless $found}' -- file1 file2

Beachten Sie, dass dies nur fehlschlägt, wenn keine Datei verarbeitet wurde.

Um das Problem zu melden, wenn nicht alle Dateien gefunden wurden, können Sie Folgendes verwenden

perl -pe 'BEGIN{ $files = @ARGV} $found++ if eof; ... ;END {die "Some files not found" unless $files == $found}'

— Choroba
quelle

1

Wenn Ihr Skript Dateien als Argumente verwenden soll, anstatt sie von stdin zu lesen, wäre eine leichtere Alternative zu dieser Lösung BEGIN{die "File not found" unless -f $ARGV[0]}. (Ich sage leichter, weil es nicht darum geht, eine Flagge zu setzen und 2 Codes hinzuzufügen)

— Dada

Es wird auch davon ausgegangen, dass alle Dateien eine Länge ungleich Null haben.

— Tanktalus