Perl Programming | ||
---|---|---|
File Checks | ||
my $filename = "pie_recipe"; if (-r $filename) { open INPUT, "> $filename" or die "Can't open $filename: $!"; } else { print "The file $filename is not readable.\n"; } |
||
Previous | http://stuff.mit.edu/iap/perl/ | Next |