| 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 |