Perl - imprimir a un archivo



   AUTOR PREGUNTA

Publicado 01 julio 2014 - 23:09

Tengo el siguiente código en perl, que me imprime por pantalla de manera normal:

#!/usr/bin/perl
@miListaNombres = ('uno', 'dos', 'tres' , 'A' , 'B' , 'C' , 'D' , 'E');
foreach (@miListaNombres) { print "$_\n"; }

Me gustaría saber como puedo usar algo similar para imprimir a un archivo, gracias de antemano.


¿Tienes la misma pregunta? Yo también

 

Publicado 02 julio 2014 - 04:39

debes utilizar la palabra reservada OUT para ello.

 

Publicado 02 julio 2014 - 04:40

Te dejo como sería en base a tu código:

@miListaNombres = ('uno', 'dos', 'tres' , 'A' , 'B' , 'C' , 'D' , 'E');
open(OUT,">","/var/tmp/archivo") or die "No se pudo abrir archivo: $!"; 
foreach (@miListaNombres) { print OUT "$_\n"; } close(OUT);

Publicado 02 julio 2014 - 04:41

Tambien puedes ejecutar el script y redireccionar el output a un archivo:

$ ./miscript.pl > /var/tmp/archivo

   AUTOR PREGUNTA

Publicado 02 julio 2014 - 05:09

Gracias por la respuesta y las opciones