Mega Code Archive

 

Categories / Perl / File

 

The select Function

#! /usr/bin/perl open (FILEOUT,">newfile")  || die "Can't open newfile: $!\n"; select(FILEOUT);       open (DB, "<datebook") || die "Can't open datebook: $!\n"; while(<DB>) {    print ;             } select(STDOUT);        print "Good-bye.\n";