[Perl] Redireccionar Output...

[Salvador Ortiz Garcia]

On Mon, 2002-06-17 at 09:34, Alejandro G. Bedoya wrote:
> No... La idea es que a veces si lo mande con print normal  y a veces con
> archivo... Para evitar tener que hacer dos rutinas, una para browser y ot=
ra
> para archivo...
>=20

Es que no existe algo como 'print normal'.

Cuando a print no le pones un FILEHANDLE, toma el de default,
normalmente STDOUT, pero seleccionable usando, pues, 'select'.

  open(FOO,">blabla");
  ...
  print "Hola"; # a STDOUT
  my $old =3D select(FOO);
  print "Hola"; # a FOO;
  print "......";
  select($old);  # Regreso al anterior
  print "Adios"; # Nuevamente a STDOUT

As=ED que un simple:

  select(FOO) if($alarchivo);

antes de tu monton de prints hace lo que quieres.