I use ActivePerl v.5.14.1 on WinXP.
The version of File::Glob is 1.12
Update:
I changed the loop to:
for my $t (keys %address)
{
my $file = glob ("$address{$t}/Test*");
print "$t : $address{$t} : $file, \n###\n";
print "$t : $address{$t} : ", glob ("$address{$t}/Test*"), "\n---\
+n";
}
It prints:
A : U:/TEMP/TEMP/A : U:/TEMP/TEMP/A/Test01.txt,
###
A : U:/TEMP/TEMP/A : U:/TEMP/TEMP/A/Test01.txt
---
Use of uninitialized value $file in concatenation (.) or string at ...
+ line 17.
D : U:/TEMP/TEMP/D : ,
###
D : U:/TEMP/TEMP/D : U:/TEMP/TEMP/D/Test04.txt
---
C : U:/TEMP/TEMP/C : U:/TEMP/TEMP/C/Test03.txt,
###
C : U:/TEMP/TEMP/C : U:/TEMP/TEMP/C/Test03.txt
---
Use of uninitialized value $file in concatenation (.) or string at ...
+ line 17.
E : U:/TEMP/TEMP/E : ,
###
E : U:/TEMP/TEMP/E : U:/TEMP/TEMP/E/Test05.txt
---
B : U:/TEMP/TEMP/B : U:/TEMP/TEMP/B/Test02.txt,
###
B : U:/TEMP/TEMP/B : U:/TEMP/TEMP/B/Test02.txt
---
|