You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
13 lines
184 B
Perl
13 lines
184 B
Perl
5 years ago
|
|
||
|
close(filehandle);
|
||
|
|
||
|
#!/usr/bin/perl -w
|
||
|
|
||
|
# Test of open and die with $!.
|
||
|
|
||
|
$filename = "nofile";
|
||
|
|
||
|
open(TMP, $filename)
|
||
|
or die "Can't open \"$filename\" due to $! ";
|
||
|
|
||
|
|