Re: Glob strange bahavor

if(defined (my $filename=(glob("$path*$_*.pkl"))))

Based on those extra parentheses, it looks like you're trying to call glob in list context (which would make more sense, too). But parentheses on the right hand side of assignment do not a list assignment make. Put them on the left hand side instead.

Also, an empty list assignment in scalar context is actually defined (zero, to be precise), so you likely want this:

if(my ($filename)=glob("$path*$_*.pkl"))
[download]

print "Just another Perl ${\(trickster and hacker)},"
The Sidhekin proves Sidhe did it!

Comment on Re: Glob strange bahavor Select or Download Code

Replies are listed 'Best First'.
Re^2: Glob strange bahavor by ikegami (Patriarch) on Aug 21, 2006 at 14:52 UTC
He's checking if a file exists, so a simpler fix would be to use the command designed to check just that: `-e` (or `-f`). `#!/usr/bin/perl use strict; use warnings; my $path='C:/dataset/'; my @sign_arr=('A1', 'A2', 'A3','A4', 'A5', 'A6', 'A7', 'A8', 'A9'); foreach (@sign_arr) { my $filename = "$path$_.pkl"; if (-e $filename) {print "$filename $_\n"} else {print "not found $_\n";} }` [download] Update: Ack, nevermind, I didn't notice his use of `*`. First post of the morning, sorry.	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: Glob strange bahavor
by ikegami (Patriarch) on Aug 21, 2006 at 14:52 UTC

-e

-f

#!/usr/bin/perl

use strict;
use warnings;

my $path='C:/dataset/';

my @sign_arr=('A1', 'A2', 'A3','A4', 'A5', 'A6', 'A7', 'A8', 'A9'); 

foreach (@sign_arr)
{
    my $filename = "$path*$_*.pkl";
    if (-e $filename)
    {print "$filename $_\n"}
    else
    {print "not found $_\n";}
}
[download]

Update: Ack, nevermind, I didn't notice his use of *. First post of the morning, sorry.

[reply]
[d/l]
[select]