jrockway · June 13, 2009 19:52
diff --git a/redirect-to-filehandle.pl b/redirect-to-filehandle.pl
 #!/usr/bin/env perl

 use strict;
 use warnings;
 use feature ':5.10';

 open my $fh, '>', 'test.txt' or die $!;

 my $reopen = sub() {
    open $_[0], $_[1]. '&='. fileno($_[2]) or die "failed to reopen: $!";
 };

 $reopen->(*STDOUT,  '>', $fh);

 system 'date';
 print "This also goes to the file.\n";
	#!/usr/bin/env perl

	use strict;
	use warnings;
	use feature ':5.10';

	open my $fh, '>', 'test.txt' or die $!;

	my $reopen = sub() {
	open $_[0], $_[1]. '&='. fileno($_[2]) or die "failed to reopen: $!";
	};

	$reopen->(*STDOUT, '>', $fh);

	system 'date';
	print "This also goes to the file.\n";