[Perl] Uso de una función anónima

[Ing. Roberto Andrade Fonseca]

Hola:

Quiero hacer algo así:

        open (OUTFILE,">$path_file") || imprime un mensaje y actualiza una variable:

actualmente tengo:

        open (OUTFILE,">$path_file") || {$ok = 0, print "No puedo abrir para escritura $ok $path_file"};

Y parece que jala bien, pero no estoy seguro de que sea la mejor manera, pues si cambio la asignación a $ok al final, no jala.

Si separo con punto y coma (;) la fucnión anónima, tampoco jala.

¿Cuál es la manera adecuada de manejar esta situación?


Saludos,

Roberto Andrade Fonseca
randrade@abl.com.mx