Perl question

How to you redirect stdout to a file? I want to do something like:

Code:

---

open(OUTPUT, ">outfile.txt");
setstdout(OUTPUT);
print "hello outfile.txt";
close(OUTPUT);

---

Are you sure you want to redirect stdout? You could just print to the file

Code:

---

open(OUTPUT, ">outfile.txt");
print OUTPUT "hello outfile.txt\n";
close(OUTPUT);

---

But if you want to redirect STDOUT, STDIN, or STDERR, just open the file and assign it to that handle

Code:

---

open(STDOUT, ">outfile.txt");
print "hello outfile.txt\n";

---

This works for me:

Code:

---

#! perl

open (STDOUT, ">stdout.txt");

print "what what!";

close (STDOUT);

---

The only thing is, I'm not 100% sure how to bring STDOUT to point back to itself originally.

edit: Maybe this might help; some more elegant solutions http://perlmonks.thepen.com/11007.html

edit2: And I agree, I have no idea why you would want to redirect STDOUT.