Como extraer nombres de imagenes de un archivo ?

[caliche]

Hola a todos

tengo un archivo con la siguiente informacion, pueden ser mas de 200 filas (lineas)

<a href="zalez.jpg">zalez.jpg</a>
<a href="zalo86.jpg">zalo86.jpg</a>
<a href="zambra.jpg">zambra.jpg</a>
<a href="zapata.jpg">zapata.jpg</a>
<a href="zapata7030.jpg">zapata7030.jpg</a>
.
.
.

yo necesito hacer un programa en perl que cree una variable llamada
@imagenes abriendo el archivo y leyendo linea a linea
y que al final me quede en ese arreglo el nombre de las imagenes en orden ejemplo

$imagenes[0] igual a "zalez.jpg"
$imagenes[1] igual a "zaloe86.jpg"
$imagenes[2] igual a "zambra.jpg"
$imagenes[3] igual a "zapata.jpg"
$imagenes[4] igual a "zapata7030.jpg"
.
.
.
Como pudiera hacerlo,
muchas gracias por la ayuda

[monoswim]

#Primero abrimos el archivo y guardamos cada línea en un array

open(FILE, "imagenes.txt");
my @lineas = <FILE>;
close(FILE);


# Creamos tu array
my @imagenes;

#le cargamos la info que necesitas
foreach my $linea (@lineas){
my $name = $linea =~ m/href="(.*?)\.jpg/;
push(@imagenes, $name);
}

print "$imagenes[0]";

Esa sería más o menos la sintaxis, es bien fácil hacerlo, solo necesitas aprender un poco de expresiones regulares (my $name = $linea =~ m/href="(.*?)\.jpg/;)

Saludos

[caliche]

gracias monoswin

ensayare lo que propones y te cuento como me fue luego.

caliche