Perl Learning: 5.10. Reopening a Standard Filehandle

 

5.10. Reopening a Standard Filehandle We mentioned earlier that if you were to reopen a filehandle (that is,if you were to open a filehandle FRED when you've got an open filehandle named FRED),the old one would be closed for you automatically. And we said that you shouldn't reuse one of the six standard filehandle names unless you intended to get its special features. And we also said that the messages from die and warn,along with Perl's internally generated complaints,go automatically to STDERR. If you put those three pieces of @R_748_4045@ion together,you will have an idea about how you Could send error messages to a file rather than to your program's standard error stream:[*] [*] Don't do this without a reason. It's nearly always better to let the user set up redirection when launching your program rather than have redirection hardcoded. But this is handy in cases where your program is being run automatically by another program (say,by a web server or a scheduling utility like cron or at). Another reason might be that your program is going to start another process (probably with system or exec,which we'll see in Chapter 14),and you need that process to have different I/O connections. # Send errors to my private error log if ( ! open STDERR,">>/home/barney/.error_log") { die "Can't open error log for append: $!"; } After reopening STDERR,any error messages from Perl will go into the new file. What happens if the die is executedwhere will that message go if the new file Couldn't be opened to accept the messages? The answer is that if one of the three system filehandlesSTDIN,STDOUT,or STDERRfails to reopen,Perl kindly restores the original one.[ ] That is,Perl closes the original one (of those three) only when it sees that opening the new connection is successful. Thus,this technique Could be used to redirect any (or all) of those three system filehandles from inside your program,[ ] almost as if the program had been run with that I/O redirection from the shell in the first place. [ ] At least,this is true if you haven't changed Perl's special $^F variable,which tells Perl that only those three are special like this. But you'd never change that. [ ] But don't open STDIN for output or the others for input. Just thinking about that makes our heads hurt.