# --- <the program> ---- my $fname = '/volumes/hd/home/kevin/file_test '; # note file ends with a space character print "Exists: <$fname>\n" if (-e $fname); print "Is a file: <$fname>\n" if (-f $fname); open(FH, $fname) or die "Can't open '$fname': $!"; close(FH) or die "Can't close '$fname': $!";
# --- <the output> --- Processing file: file_test Exists: <file_test > Is a file: <file_test > Can't open 'file_test ': No such file or directory at testopen.pl line 42. # -- <the question> --- Is this a known bug in Perl 5.8.6? -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
