next anstelle von die beim Datei öffnen (gelöst) - #158507 (Allgemeines zu Perl)

Linuxer

2012-05-23 10:57

User since
2006-01-27
3890 Artikel
HausmeisterIn

user image

Leg in Deinen Array eine Datei, die nicht existiert.

Und/Oder bau Dir ein Testskript mit dem interessanten Code und führe das mal aus; z.B.:

Code (perl): (dl )

#! /usr/bin/perl
use strict;
use warnings;


my @files = (
    $0,                      # dieses Skript
    'nicht.da.txt',          # nicht existent
    $0,                      # dieses Skript
);


for my $file ( @files ) {

    open my $infh, '<', $file or do { warn "open($file,ro) failed: $!\n"; next; };

    # ...

    print "file is open: $file: ", ref( $infh ), $/;
}

Resultat:

Code: (dl )

1
2
3

file is open: a3.pl: GLOB
open(nicht.da.txt,ro) failed: No such file or directory
file is open: a3.pl: GLOB

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!