Fråga : Using perl jag behöver att kontrollera, om alla sparar i en bestämd arkivstart med en bestämd teckensträng.

Förmiddag som I ser i $dir1, och alla, sparar behov att starta med försökt EDI322.
I få substrings av sparar using substr (@files, 0.6) och att använda en == för att matcha till en hård kodad variabel, men den är inte funktionsduglig, om inget sparar exist.
" klar "

Svar : Using perl jag behöver att kontrollera, om alla sparar i en bestämd arkivstart med en bestämd teckensträng.

kanske något något liknande detta därefter…,

mitt $found = 0;
foreach min $file (@files) {
    om, eq ”EDI322” (för substr ($file, 0, 6)) {
       tryck ”finns \ n”;
       $found++;
    }
}
om (! $found) {
   trycket ”tillverkad =======The sparar finns inte ========== \ n”;
   trycket LOGGAR ”tillverkad =======The sparar finns inte ========== \ n”;
   processaa för tryckComp_LOG ”NS LF nedladdning som missas \ n”;
   matris;
}


Därefter igen, om alla som du önskar att veta, om huruvida @files har inget sparar start med EDI322, försök detta:
om (! grep (/^EDI322/, @files)) {
   trycket ”tillverkad =======The sparar finns inte ========== \ n”;
   trycket LOGGAR ”tillverkad =======The sparar finns inte ========== \ n”;
   processaa för tryckComp_LOG ”NS LF nedladdning som missas \ n”;
   matris;
}

Bra lycka!