Como extraer nombres de imagenes de un archivo ?

[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