[Perl] Redireccionar Output...

[Gunnar Wolf]

> Saludos!!!
>
>     Tengo un rutina que hace una p=E1gina HMTL medio complicada... y la c=
ual
> la manda al output normal, Browser. Hay forma de que en vez de que el pri=
nt
> mande al output, lo mande por ejemplo a un archivo???  Esto ser=EDa una
> condicional, a veces lo haria y otras no.

Ummm... Tal vez te convenga no modificar la subrutina, sino que usar
select para hacer que la salida vaya a otro lado:

open(OUT,'>/tmp/archivo.out');
funcionQueGeneraHTML('args');   # Sale hacia STDOUT -> navegador.
my $stdout =3D select(OUT);       # Selecciona a OUT en vez de STDOUT.
                                # Guarda el filehandle en $stdout.
funcionQueGeneraHTML('args');   # Sale hacia OUT -> /tmp/archivo.out
select($stdout);                # Sigues trabajando con tu STDOUT de siempr=
e
close(OUT);


--=20
Gunnar Wolf - gwolf@campus.iztacala.unam.mx - (+52-55)5623-1118
PGP key 1024D/8BB527AF 2001-10-23
Fingerprint: 0C79 D2D1 2C4E 9CE4 5973  F800 D80E F35A 8BB5 27AF