[Perl] Redireccionar Output...

[Salvador Ortiz Garcia]

On Mon, 2002-06-17 at 09:34, Alejandro G. Bedoya wrote:=20
> 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'.=20

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

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

As=ED que un simple:=20

  select(FOO) if($alarchivo);=20

antes de tu monton de prints hace lo que quieres.=20

Saludos.

Salvador Ortiz.