in reply to if (-d$_) failes because of white space

In bash i do:
export ril=~/.mozilla/firefox/profiledirectory/Read-It-Later\ Offline/
+f
echo $ril
/home/usrname/.mozilla/firefox/profiledirectory/Read-It-Later Offline/

I call the script like this:
myscript.pl "$ril"

this is the script:
#!/usr/bin/perl -w

$dir = shift or die("Use directory as argument.\n");
print $dir,"\n";
opendir DIR,$dir or die "Can't open directory.\n";
@dir = readdir DIR;
closedir DIR;

foreach(@dir) {
    if (-d$_) {print $_," is a directory.\n";}
    elsif (-f$_) {print $_," is a file.\n";}
    else {print $_," is not a file or a directory!\n";}
    
}

this is the out put of the script:
/home/usrname/.mozilla/firefox/profiledirectory/Read-It-Later Offline/
. is a directory.
.. is a directory.
RIL 533_files is not a file or a directory!
list_of_reports.html is a file.
RIL 533.html is not a file or a directory!
RIL 1178.html is not a file or a directory!
RIL 1178_files is not a file or a directory!

[download]

Replies are listed 'Best First'.
Re^2: if (-d$_) failes because of white space
by almut (Canon) on May 13, 2009 at 19:05 UTC 
    opendir DIR,$dir or die "Can't open directory.\n";
@dir = readdir DIR;
...
foreach(@dir) {
    if (-d$_) {print $_," is a directory.\n";}
    elsif (-f$_) {print $_," is a file.\n";}
    else {print $_," is not a file or a directory!\n";}
    
}

    [download]

    readdir() gives you directory entries without the path component. So you have to either chdir() into the directory before your foreach loop, or write 

    foreach(@dir) {
    my $path = "$dir/$_";  # prepend dir
    if (-d $path) {print $path," is a directory.\n";}
    elsif (-f $path) {print $path," is a file.\n";}
    else {print $path," is not a file or a directory!\n";}
}

    [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom