Cargando

Ir a contenido

X

Perl - imprimir a un archivo





  AUTOR PREGUNTA

Publicado 01 julio 2014 - 22: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
  • Volver arriba


 

Publicado 02 julio 2014 - 03:39
debes utilizar la palabra reservada OUT para ello.

 

Publicado 02 julio 2014 - 03: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 - 03:41
Tambien puedes ejecutar el script y redireccionar el output a un archivo:

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


   AUTOR PREGUNTA

Publicado 02 julio 2014 - 04:09
Gracias por la respuesta y las opciones ;)


X