Re: Glob strange bahavor

[Sidhekin]

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"))

[ikegami]

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";}
}

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