sub writeOutput { my $outScalarRef = shift; my $OUT; my $date = localtime(); $date =~ s/ /_/g; open ($OUT,">$$outScalarRef") or open ($OUT,">$$outScalarRef-$date") or die "Cannot open file $$outScalarRef : $!\n"; print $OUT @stuff; close $OUT; chmod 0444, $OUT; }
In reply to Why doesn't chmod work on this lexical filehandle? by williff
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |