[Perl] Redireccionar Output...

[Jose Antonio Galicia]

On Mon, 17 Jun 2002, 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 otra para
> archivo...

 No olvides que 'perldoc' es tu amigo. Ve:

	$ perldoc open
	....
                   #!/usr/bin/perl
                   open(OLDOUT, ">&STDOUT");
                   open(OLDERR, ">&STDERR");

                   open(STDOUT, ">foo.out") || die "Can't redirect stdout=
";
                   open(STDERR, ">&STDOUT") || die "Can't dup stdout";

                   select(STDERR); $| =3D 1;     # make unbuffered
                   select(STDOUT); $| =3D 1;     # make unbuffered

                   print STDOUT "stdout 1\n";  # this works for
                   print STDERR "stderr 1\n";  # subprocesses too

                   close(STDOUT);
                   close(STDERR);

                   open(STDOUT, ">&OLDOUT");
                   open(STDERR, ">&OLDERR");

                   print STDOUT "stdout 2\n";
                   print STDERR "stderr 2\n";

 m=E1s f=E1cil no es posible.

 Saludos,
 To=F1o
---
Hey dol! merry dol! ring a dong dillo!
Ring a dong! hop along! fal lal the willow!
Tom Bom, jolly Tom, Tom Bombadillo!
		-- J. R. R. Tolkien