Help for this page

Select Code to Download


  1. or download this
    perl -E"say(),open $fh[$_], '>', qq[file$_] or die $! for 1 .. 1e5"
1
...
2045
2046
Too many open files at -e line 1.
  2. or download this
    open $fh, .... or die ...;
close $fh;
  3. or download this
    open $fh, ... and printf( LOG "%s(%u) opening %u\n", __FILE__, __LINE_
+_, fileno( $fh ) ) or die ...;
printf( LOG "%s(%u) closing %u\n", __FILE__, __LINE__, fileno( $fh ) )
+ and close $fh;