Help for this page

Select Code to Download


  1. or download this
    open(NULL,"> /dev/null")
      or die "Couldn't open /dev/null: $!\n";
    my $oldsel = select(NULL);
    # Do validation
    select($oldsel);
    
  2. or download this
    open(SAVE,">&STDOUT")
      or die "Couldn't save STDOUT: $!\n";
    ...
    # Do validation
    open(STDOUT,">&SAVE")
      or die "Couldn't restore STDOUT: $!\n";