Perl - Expresion regular en variable

Hola a todos,

Tengo un problemilla, el código:

return 1 if ($i =~ /\/sbin\/ifconfig $iface \$\{IPADDR$device\} broadcast \$\{BROADCAST$device\} netmask $\{NETMASK$device\}/);

Esto me debuelve el 1 si problemas si $i coincide, pero en este otro caso:

$query = "\/sbin\/ifconfig $iface \$\{IPADDR$device\} broadcast \$\{BROADCAST$device\} netmask $\{NETMASK$device\}";
return 1 if ($i =~ /$query/);

No se ejecuta el return porque no se porque me dice que no aparece nunca esa expresion (por cierto, si aparece).

¿Donde estoy metiendo la pata?

Saludos, apg.

Mi estimado Alvaro, lo que la expresion regular esta haciendo al momento del return es determinar si $i tiene algun valor contenido dentro de la expresion regular para que esto te funcione debes teclear tu expresion regular de la siguiente manera

$query = 0;
$query = $i =~ /\/sbin\/ifconfig $iface \$\{IPADDR$device\} broadcast \$\{BROADCAST$device\} netmask $\{NETMASK$device\}/;
return 1 if $i;

Au revoir !!!