Hi All,
Do we have any way to get the Dynamic hash names used? I am able to create
the dynamic hashes, however only gets the dynamic has ref name when
calling
directly. Please see below the code..I wanted to compare the duplicates
records with the .txt files. Not sure if I am doing the right way.
---
@array = ("A.txt", "B.txt", "C.txt");
# these text files are in csv format
#servername,location,ipaddress from where app is accessed
foreach $code (@array){
open(FILE, "$code") || die "Cannot open $code for reading :$!";
while(<FILE>){
next if($_ =~ /ServerName/i);
$line=$_;
my($server,$location,$ip)=split/,/,$line;
$hash{code}{$server}=$line;
#print $hash{code}{$server};
print "\n";
undef $server,$location,$ip;
}
close(FILE);
}
print \%hash;
#foreach $keyname (keys %hash{"A.txt"}){
print;
}
Thanks
VSR
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
