Pergunta : Using o Perl, eu preciso de verific se todas as limas em um determinado diretório começam com uma determinada corda de caráter.

Eu estou olhando em $dir1, e todas as limas precisam de começar com o EDI322.
I tentado começ substrings das limas using o substr (@files, 0.6) e usando um == para combinar a uma variável duramente codificada mas não está trabalhando se nenhumas limas exist.
class= do

Resposta : Using o Perl, eu preciso de verific se todas as limas em um determinado diretório começam com uma determinada corda de caráter.

talvez qualquer outra coisa semelhante então…

meu $found = 0;
foreach meu $file (@files) {
    se (eq “EDI322” do substr ($file, 0, 6)) {
       cópia “existem \ n”;
       $found++;
    }
}
se (! $found) {
   a cópia do “lima de saída =======The não existe o ========== \ n”;
   o REGISTRO do “lima da cópia de saída =======The não existe o ========== \ n”;
   falhou do processo de transferência de Comp_LOG “NS LF da cópia \ n”;
   morrer;
}


Então outra vez se tudo que você quer saber se se os @files não têm nenhuma lima começar com EDI322, tentar isto:
se (! grep (/^EDI322/, @files)) {
   a cópia do “lima de saída =======The não existe o ========== \ n”;
   o REGISTRO do “lima da cópia de saída =======The não existe o ========== \ n”;
   falhou do processo de transferência de Comp_LOG “NS LF da cópia \ n”;
   morrer;
}

Boa sorte!