This is not a problem unique to DOS, all operating systems are prone to this problem. What is worse, if the file has leading spaces, Perl will silently strip those spaces out, causing the call to fail.
If you don't believe this, try running the following commands (under Unix).
% echo foo >' leading space';
% perl -le 'open I, " leading space" or print "bletch: $!"'
This outputs bletch: No such file or directory.
This is due to the way Perl looks for < and > meta-characters to determine what mode to use (input or output). The most reasonable portable and documented method to work around this bug is to use sysopen in the place of open. In any event, you will need to use the Fcntl module to get this working correctly (part of the core distribution).
Here are the most common cases to get you started:
mode | open | sysopen |
input |
open IN, 'a file.txt' |
sysopen IN, 'a file.txt', O_RDONLY |
output |
open OUT, '>a file.txt' |
sysopen OUT, 'a file.txt', O_WRONLY |
output append |
open OUT, '>>a file.txt' |
sysopen OUT, 'a file.txt', O_WRONLY|O_APPEND |
Just slap a use Fcntl at the top of your program, and drop in the sysopen replacements for each open statement, remembering of course to test the truth (success) of the statement and printing the contents of $! when things go awry.
See also Two-arg open() considered dangerous. | [reply] [d/l] [select] |
Just quote it and everything will be fine:
open (SPACEY, "this file has spaces.txt") || die;
| [reply] [d/l] |
Thanks a lot, i also dealt with issue for several hours and could not find a solution in any of my manuals. Wish I knew how to use the search feature a little better when i wrote this code.
| [reply] |
my $filename = "this file has spaces.txt"
open (SPACEY, "$filename") || die;
Hardcoded filenames are unwise.
Shouldn't the above work also? Didn't seem to. | [reply] [d/l] |
Just looking for a sample which does not have the filename hardcoded.
eg.
my $filename = "this file has spaces.txt";
sysopen IN, $filename, O_RDONLY;
Didn't do much for me.
Originally posted as a Categorized Answer. | [reply] [d/l] |