Question : Using le Perl, je dois vérifier si tous les dossiers dans un certain annuaire commencent par une certaine chaîne de caractères.

Je regarde dans $dir1, et tous les dossiers doivent commencer par EDI322.
I essayé obtenant des sous-chaînes des dossiers using le substr (@files, 0.6) et employant un == pour assortir à une variable dur codée mais cela ne fonctionne pas si aucuns dossiers exist.
class= de

Réponse : Using le Perl, je dois vérifier si tous les dossiers dans un certain annuaire commencent par une certaine chaîne de caractères.

peut-être n'importe quoi de pareil puis…

mon $found = 0 ;
foreach mon $file (@files) {
    si (substr ($file, 0, 6) eq « EDI322 ») {
       copie « existent \ n » ;
       $found++ ;
    }
}
si (! $found) {
   la copie « dossier de rendement de =======The n'existe pas le ========== \ n » ;
   la NOTATION « dossier d'impression de rendement de =======The n'existe pas le ========== \ n » ;
   copie Comp_LOG « a échoué de processus de téléchargement de NS LF \ n » ;
   mourir ;
}


De l'autre côté si tous que vous voulez savoir si si les @files n'a aucun dossier commencer par EDI322, essayer ceci :
si (! grep (/^EDI322/, @files)) {
   la copie « dossier de rendement de =======The n'existe pas le ========== \ n » ;
   la NOTATION « dossier d'impression de rendement de =======The n'existe pas le ========== \ n » ;
   copie Comp_LOG « a échoué de processus de téléchargement de NS LF \ n » ;
   mourir ;
}

Bonne chance !