Re: -e " " returns true

That's not what I'm seeing.

$ cat test.pl
#!/usr/bin/perl
  
use strict;
use warnings;
 
my @files = (' ', ' . . ', ' .. ', '         ', ' .      ');
 
foreach (@files) {
  print "[$_] - ", -e $_ ? "yes\n" : "no\n";
}
$ ./test.pl
[ ] - no
[ . . ] - no
[ .. ] - no
[         ] - no
[ .      ] - no
$ perl -v
 
This is perl, v5.8.3 built for i386-linux-thread-multi
[download]

--
<http://www.dave.org.uk>

"The first rule of Perl club is you do not talk about Perl club."
-- Chip Salzenberg

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

Replies are listed 'Best First'.

Re^2: -e " " returns true
by crazyinsomniac (Prior) on Jul 05, 2004 at 16:00 UTC

#!/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;"

[reply]
[d/l]

Re^3: -e " " returns true

by PerlingTheUK (Hermit) on Jul 05, 2004 at 16:12 UTC

[reply]

Re^4: -e " " returns true

by perldeveloper (Scribe) on Jul 05, 2004 at 16:16 UTC

PerlingTheUK

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

Re^2: -e " " returns true
by simonm (Vicar) on Jul 05, 2004 at 15:56 UTC

This is perl, v5.6.0 built for darwin

Can we get a Windows ActivePerl user to run this as well?

[reply]

Re^3: -e " " returns true

by wfsp (Abbot) on Jul 05, 2004 at 16:04 UTC

[reply]


Problems? Is your data what you think it is?
	PerlMonks