For anyone too lazy to view source on the page, here's his original post with code tags:
#!/perl/me -w
use strict;
use FileHandle;
my $i = 0;
# Get the current Process Id
my $proc = getpgrp(0);
# Create 10 files..
while ($i < 10) {
# Get a new File Handle
my $fh = new FileHandle();
# Count the File Handle for this process...
system ("ls -l /proc/$proc/fd/ | wc -l");
# Open a new File
sysopen ($fh, "/tmp/$i", O_RDWR) or die "$!";
# Write something to the file
print $fh "stuff \n";
#increment counter, to create a newer file.
$i++;
## NO CLOSE...
}
/tmp> ./perl junk2.pl
5
5
5
5
5
5
5
5
5
5
I was expecting it to go UP by 1 each time in the loop, but it stayed at 5. Why?