Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
close $fh or die "$! closing $filename";
printf "3) fileno = %s\n", $fh->fileno // 'undefined';
close $fh or die "$! closing $filename";

Select or download this

1) fileno = 3
2) fileno = undefined
Bad file descriptor closing tmp.11141789 at ./pm11141789.pl line 12.