Foro - Perl en Español

Buenas.

Estoy intentando hacer un script que me procese una serie de archivos que tengan la peculiaridad de que éstos empiecen por un patrón. Por ejemplo, arcivos que empiecen por 'AA'.

Estoy intentándolo con un if() que me hace la siguiente expresión regular: if (-f $file && $file =~ /\^AA*/ ) {

Por alguna razón esa expresión que pongo no me funciona.

¿Alguien me podría decir cuál sería la expresión regular correcta para que este if() reconozca todos los archivos que empiecen por AA?

Muchas Gracias y un saludo.

Juan

Bienvenido a los foros de Perl en Español, erjuak.

Tu patrón es: /\^AA*/, que quiere decir: «busca por el carácter '^', seguido de una 'A' y seguido por cero o más veces del carácter 'A'».

Lo correcto sería /^AA.*/, que quiere decir: «busca por aquello que comienza (^) por 'AA' y es seguido por cero o más caracteres cualesquiera (.*)».

Otra forma de hacerlo, sin usar expresiones regulares:

my @archivos_que_empiezan_por_AA = <AA*>;

que también se puede escribir como

my @archivos_que_empiezan_por_AA = glob "AA*";