Foro - Perl en Español

Tengo el siguiente codigo

Código: Seleccionar todo

#!C:\perl\bin\perl.exe -w

$line="<meta name='description' content='Perl en Español - Foros de perl en español, foro perl, foro de perl, tutoriales de perl, noticias de perl en español.'>";
$content=$line=~/content=\'(.*?)\'/i;
print $content;

lo que busco con este, es que me imprima lo que hay dentro del atributo content, pero al ejecutarlo me imprime un "1".

como lo puedo corregir para que me funcione correctamente?

Ya te respondí en forosdelweb pero bueno , la solución es colcar paréntesis

($content)=$line=~/content=\'(.*?)\'/i;

Sino asigna el numero de veces encontrado...

Saludos

monoswim escribiste:Ya te respondí en forosdelweb pero bueno , la solución es colcar paréntesis

($content)=$line=~/content=\'(.*?)\'/i;

Sino asigna el numero de veces encontrado...

Saludos

Umm, prefiero hacerlo de la siguiente manera:

Código: Seleccionar todo

$line =~ /content\=\'(.*?)\'/i;

my $content = $1;


SALUDOS