Help for this page

Select Code to Download

Select or download this

>perl -Mstrict -w -E 'my @h; for my $i (1..5000) { open $h[$i],"<","/d
+ev/null" or die "$i $!"; }'
1022 Too many open files at -e line 1.

Select or download this

C:\>perl -Mstrict -w -E "my @h; for my $i (1..5000) { open $h[$i],'<',
+'nul' or die qq[$i $!]; }"
2046 Too many open files at -e line 1.