Cuestión : Usar el Perl, necesito comprobar si todos los archivos en cierto directorio comienzan con cierta serie de caracteres.

Estoy mirando en $dir1, y todos los archivos necesitan comenzar con EDI322.
I intentado consiguiendo las subsecuencias de los archivos usar el substr (@files, 0.6) y con un == para emparejar a una variable difícilmente cifrada pero no está trabajando si ningunos archivos exist.
class= del

Respuesta : Usar el Perl, necesito comprobar si todos los archivos en cierto directorio comienzan con cierta serie de caracteres.

quizá algo similar entonces…

mi $found = 0;
foreach mi $file (@files) {
    si (substr ($file, 0, 6) eq “EDI322”) {
       impresión “existen \ n”;
       $found++;
    }
}
¡si (! $found) {
   la impresión “archivo de salida del =======The no existe el ========== \ n”;
   el REGISTRO “archivo de la impresión de salida del =======The no existe el ========== \ n”;
   falló \ n del proceso de la transferencia directa de Comp_LOG “NS LF” de la impresión;
   morir;
}


Entonces otra vez si todos lo que usted quiere saber si si los @files no tienen ningún archivo el comenzar con EDI322, intentar esto:
¡si (! grep (/^EDI322/, @files)) {
   la impresión “archivo de salida del =======The no existe el ========== \ n”;
   el REGISTRO “archivo de la impresión de salida del =======The no existe el ========== \ n”;
   falló \ n del proceso de la transferencia directa de Comp_LOG “NS LF” de la impresión;
   morir;
}

¡Buena suerte!