Dynamic Hashes

[Vaishak S]

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
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs