Re^2: -e " " returns true

ActivePerl Build 809
v5.8.3 built for MSWin32-x86-multi-thread

#!/usr/bin/perl

use strict;
use warnings;

my @files = (' ', ' . . ', ' .. ', '         ', ' .      ');

foreach (@files) {
    print "[$_] - ", -e $_ ? "yes\n" : "no\n";
}
__END__
[ ] - yes
[ . . ] - yes
[ .. ] - yes
[         ] - yes
[ .      ] - yes
[download]

______crazyinsomniac_____________________________
Of all the things I've lost, I miss my mind the most.
perl -e "$q=$_;map({chr unpack qq;H*;,$_}split(q;;,q*H*));print;$q/$q;"

Comment on Re^2: -e " " returns true Download Code

Replies are listed 'Best First'.
Re^3: -e " " returns true by PerlingTheUK (Hermit) on Jul 05, 2004 at 16:12 UTC
This is one of the times I really wish I was still on Linux. Thanks for trying as well and all those fast replies. Hans	[reply]
Re^4: -e " " returns true by perldeveloper (Scribe) on Jul 05, 2004 at 16:16 UTC
Hey PerlingTheUK, Here's a quick fix for you until you get around this problem. It produces correct results for those dotty filenames both under Windows XP (5.6.1 active perl) and Linux (RedHat 9, 5.6.1 as well). `my $f = ". ."; my $result = minuse ($f); print "[$result]\n"; sub minuse { -f $_[0] \|\| &minusd} sub minusd {local *D; opendir (D, shift) && (close (D) \|\| 1)}` [download]	[reply] [d/l]
Re^5: -e " " returns true by PerlingTheUK (Hermit) on Jul 05, 2004 at 16:47 UTC
Thank you very much, that works fine. I have installed Build 510 in the meantime and tested -e using that release. All dotty files exist in that build as well, but anyway, this fix is fine for now. Hans	[reply]


Your skill will accomplish what the force of many cannot
	PerlMonks