Вопрос : Using perl, мне нужно проверить если все архивы в некоторой директории начинают с некоторой характерной чертой.

Я смотрю в $dir1, и всем архивам нужно начать с подстроками EDI322.
I судимый получая архивов using substr (@files, 0.6) и использование == сопрягать к крепко закодированной перемеююому но она не работает если никакие архивы exist.
class=

Ответ : Using perl, мне нужно проверить если все архивы в некоторой директории начинают с некоторой характерной чертой.

возможно что-нибудь подобное после этого…

мо $found = 0;
foreach мое $file (@files) {
    если (substr, то ($file, 0, 6) eq «EDI322») {
       печать «существуйте \ n»;
       $found++;
    }
}
если (! $found) {
   печать «выходной файл =======The не существует ========== \ n»;
   ЖУРНАЛ «выходной файл печати =======The не существует ========== \ n»;
   потерпело неудачу процесса загрузки Comp_LOG «NS LF печати \ n»;
   умрите;
}


После этого снова если все, котор вы хотите знать если не имеют ли @files никакие архивы начать с EDI322, то, попытайтесь это:
если (! grep (/^EDI322/, @files)) {
   печать «выходной файл =======The не существует ========== \ n»;
   ЖУРНАЛ «выходной файл печати =======The не существует ========== \ n»;
   потерпело неудачу процесса загрузки Comp_LOG «NS LF печати \ n»;
   умрите;
}

Удача!