SelectSaver − save and restore selected file handle
use SelectSaver;
{
my $saver = SelectSaver−>new(FILEHANDLE);
# FILEHANDLE is selected
}
# previous handle is selected
{
my $saver = SelectSaver−>new;
# new handle may be selected, or not
}
# previous handle is selected
A "SelectSaver" object contains a reference to the file handle that was selected when it was created. If its "new" method gets an extra parameter, then that parameter is selected; otherwise, the selected file handle remains unchanged.
When a "SelectSaver" is destroyed, it re-selects the file handle that was selected when it was created.