Questione : Using il Perl, devo controllare se tutte le lime in un determinato indice cominciano con una determinata serie di caratteri.

Sto osservando in $dir1 e tutte le lime devono cominciare con EDI322.
I provato ottenendo le sottostringhe delle lime using il substr (@files, 0.6) ed usando un == per abbinare ad una variabile duro codificata ma non sta funzionando se nessun lime exist.
class= del

Risposta : Using il Perl, devo controllare se tutte le lime in un determinato indice cominciano con una determinata serie di caratteri.

forse qualcosa di simile allora…

mio $found = 0;
foreach il mio $file (@files) {
    se (substr ($file, 0, 6) eq “EDI322„) {
       stampa “esistono \ n„;
       $found++;
    }
}
se (! $found) {
   la stampa “archivio di uscita del =======The non esiste ========== \ n„;
   il CEPPO “archivio di uscita della stampa del =======The non esiste ========== \ n„;
   stampa Comp_LOG “è venuto a mancare \ n di processo di trasferimento dal sistema centrale verso i satelliti di NS LF„;
   morire;
}


Allora ancora se tutti che vogliate sapere se se i @files non abbia lime cominciare con EDI322, provare questo:
se (! grep (/^EDI322/, @files)) {
   la stampa “archivio di uscita del =======The non esiste ========== \ n„;
   il CEPPO “archivio di uscita della stampa del =======The non esiste ========== \ n„;
   stampa Comp_LOG “è venuto a mancare \ n di processo di trasferimento dal sistema centrale verso i satelliti di NS LF„;
   morire;
}

Buona fortuna!