Perl - Globales Symbol $ DIR erfordert explizite Paketnamen (warum kann ich die Ausgabe drucken?)

Question

#!/db/pub/infra/CPAN/perl/5.8.8/bin/perl 

use lib '/db/pub/eq/arina/global/perl/lib'; 
use lib '/db/pub/infra/CPAN/perl/5.8.8/lib/site_perl/5.8.8'; 

use DBI; 
use strict; 

sub main { 

    my $dir = "/data/dbxpc2_archive/BookingManager/2017-01-12/data/PC1/millennium.ignore.ftp.noencrypt.DB_USD"; 

    my @files = glob "${DIR}/*.csv"; 

    print @files; 
} 

main(); 

Answer 1

Sie den Fehler erhalten, weil Sie eine Variable verwenden ($DIR) Sie nie erklärt. Sie haben eine Variable mit dem Namen $dir deklariert, die anscheinend die zu verwendende Variable ist.

glob "${dir}/*.csv" 
glob "$dir/*.csv" 
glob $dir."/*.csv" 

Ihr Code mishandles Pfade mit Leerzeichen, *, ? usw. Befestigen Sie die Injektion Fehler

glob "\Q${dir}\E/*.csv" 
glob "\Q$dir\E/*.csv" 
glob quotemeta($dir)."/*.csv"