Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    
    ...
        push @a,openHandle();
        print "Handles in use: ",0+@a,"\n";
    }
    
  2. or download this
    // previous lines removed
    Handles in use: 1015
    ...
    Handles in use: 1020
    Handles in use: 1021
    Could not opendir: Too many open files at handles.pl line 8.
    
  3. or download this
    // previous lines removed
    Handles in use: 27781
    ...
    Terminating on signal SIGINT(2)
    
    H:\tmp>