Dynamic Hashes

--===============0430952170==
Content-Type: multipart/alternative; boundary=20cf307cfe96fe23b504abb271bd

--20cf307cfe96fe23b504abb271bd
Content-Type: text/plain; charset=ISO-8859-1

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(){
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

--20cf307cfe96fe23b504abb271bd
Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable

Hi All,

Re: Dynamic Hashes

On 8/29/2011 10:40 PM, Vaishak S wrote:
> 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.

You'll need a better explanation of what you're trying to do to
give a proper response.

This modified version would create a hash of unique servernames
using the first encountered loc/ip and tossing dups (I have no
idea if that's what your trying to do).

use strict;
use warnings;
use Data::Dumper; $Data::Dumper::Indent=1; $Data::Dumper::Sortkeys=1;

my $debug = 0;

# these text files are in csv format
# servername,location,ipaddress from where app is accessed

my @array = ('A.txt', 'B.txt');

my %hash = ();
foreach my $file (@array) {

open IN, "data/$file" or die "open $file: $! ($^E)";
while () {
chomp;
next if /^\s*#/; # skip header line
my ($server, $location, $ip) = split /\s*,\s*/;
if (exists $hash{$server}) {
print "Skipping dup server $server in file $file\n";
next;
}
$hash{$server}{location} = $location;
$hash{$server}{ip} = $ip;
}
close IN;
}
# see how your hash looks by setting debug on
print (Data::Dumper->Dump([\%hash], [qw(%hash)])) if $debug;

foreach (sort keys %hash) {
printf "%s => location='%s', ip='%s'\n", $_,
$hash{$_}{location}, $hash{$_}{ip};
}

__END__

A.txt:
# ServerName, location, ipaddress from where app is accessed
server1, location1, 1.2.3.4
server2, location2, 1.2.3.5
server3, location3, 1.2.3.6
server4, location4, 1.2.3.7
B.txt:
# ServerName, location, ipaddress from where app is accessed
server1, location1, 1.2.3.4
server5, location5, 1.2.3.8
server3, location3, 1.2.3.6
server6, location6, 1.2.3.9
_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Re: Dynamic Hashes

--===============1682447961==
Content-Type: multipart/alternative; boundary=20cf307ca394cdb6a304abd4a36a

--20cf307ca394cdb6a304abd4a36a
Content-Type: text/plain; charset=ISO-8859-1

Hi Luebkert and Martin,


In the code I wanted to have the hash names to be used as the files names in
the array... , the challenge here is for loading the text file data to
different hashes.

the hash name should be hash_A.txt for the A.txt file and hash_B.txt for the
B.txt file
Also I need to call these hash_A.txt file afterwards.
Not sure if this is possible.

foreach $file (@array){
open IN, "data/$file" or die "open $file: $! ($^E)";
while () {
chomp;
next if /^\s*#/; # skip header line
my ($server, $location, $ip) = split /\s*,\s*/;
$hash{$server}{location} = $location; # the hash name should
be hash_A.txt for the A.txt file and hash_B.txt for the B.txt file
$hash{$server}{ip} = $ip; # the hash name should be
hash_A.txt for the A.txt file and hash_B.txt for the B.txt file
}
close IN;
}


Thanks
VSR.

On Tue, Aug 30, 2011 at 2:08 AM, Bill Luebkert wrote:

> On 8/29/2011 10:40 PM, Vaishak S wrote:
>
>> 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.
>>
>
> You'll need a better explanation of what you're trying to do to
> give a proper response.
>
> This modified version would create a hash of unique servernames
> using the first encountered loc/ip and tossing dups (I have no
> idea if that's what your trying to do).
>
> use strict;
> use warnings;
> use Data::Dumper; $Data::Dumper::Indent=1; $Data::Dumper::Sortkeys=1;
>
> my $debug = 0;
>
>
> # these text files are in csv format
> # servername,location,ipaddress from where app is accessed
>
> my @array = ('A.txt', 'B.txt');
>
> my %hash = ();
> foreach my $file (@array) {
>
> open IN, "data/$file" or die "open $file: $! ($^E)";
> while () {
> chomp;
> next if /^\s*#/; # skip header line
> my ($server, $location, $ip) = split /\s*,\s*/;
> if (exists $hash{$server}) {
> print "Skipping dup server $server in file $file\n";
> next;
> }
> $hash{$server}{location} = $location;
> $hash{$server}{ip} = $ip;
> }
> close IN;
> }
> # see how your hash looks by setting debug on
> print (Data::Dumper->Dump([\%hash], [qw(%hash)])) if $debug;
>
> foreach (sort keys %hash) {
> printf "%s => location='%s', ip='%s'\n", $_,
> $hash{$_}{location}, $hash{$_}{ip};
> }
>
> __END__
>
> A.txt:
> # ServerName, location, ipaddress from where app is accessed
> server1, location1, 1.2.3.4
> server2, location2, 1.2.3.5
> server3, location3, 1.2.3.6
> server4, location4, 1.2.3.7
> B.txt:
> # ServerName, location, ipaddress from where app is accessed
> server1, location1, 1.2.3.4
> server5, location5, 1.2.3.8
> server3, location3, 1.2.3.6
> server6, location6, 1.2.3.9
>

--20cf307ca394cdb6a304abd4a36a
Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable

Re: Dynamic Hashes

On 8/31/2011 3:27 PM, Vaishak S wrote:
> Hi Luebkert and Martin,
>
>
> In the code I wanted to have the hash names to be used as the files names in the array... , the challenge here is for loading the text file data to different hashes.
>
> the hash name should be hash_A.txt for the A.txt file and hash_B.txt for the B.txt file
> Also I need to call these hash_A.txt file afterwards.
> Not sure if this is possible.

> $hash{$server}{location} = $location; # the hash name should be hash_A.txt for the A.txt file and hash_B.txt for the B.txt file
> $hash{$server}{ip} = $ip; # the hash name should be hash_A.txt for the A.txt file and hash_B.txt for the B.txt file

hash_A.txt is not a legal symbol/name for a hash. I have no idea
why you're trying to do what you are doing - why not explain why
you're doing or what you want to accomplish rather than insisting
on using dynamic naming of hashes.

You could try something like this instead:

use strict;
use warnings;
use Data::Dumper; $Data::Dumper::Indent=1; $Data::Dumper::Sortkeys=1;

# these text files are in csv format
# servername,location,ipaddress from where app is accessed
# my @array = ("A.txt", "B.txt", "C.txt");
my @array = ('A', 'B', 'C');

my %hash_A = (); # hash for group A
my %hash_B = ();
my %hash_C = ();
my $href; # href will point to one of above group hashes at a time

foreach my $file (@array) {

eval "\$href = \\%hash_$file"; # point to right hash
# open the corresponding file (I have them in data dir below me)
open IN, "data/$file.txt" or die "open $file.txt: $! ($^E)";
while () {
chomp;
next if /\s*#/;
my ($server, $location, $ip) = split /\s*,\s*/;
if (exists $href->{$server}) {
print "Skipping dup server $server in file $file\n";
next;
}
$href->{$server}{location} = $location;
$href->{$server}{ip} = $ip;
}
close IN;
}
# print (Data::Dumper->Dump([\%hash_A], [qw(%hash_A)])); # see how your hash looks
# print (Data::Dumper->Dump([\%hash_B], [qw(%hash_B)]));
# print (Data::Dumper->Dump([\%hash_C], [qw(%hash_C)]));

# print out hash for 'A' group
foreach (sort keys %hash_A) {
printf "%s => location='%s', ip='%s'\n", $_,
$hash_A{$_}{location}, $hash_A{$_}{ip};
}

# ...

__END__

output:
server1 => location='location1', ip='1.2.3.4'
server2 => location='location2', ip='1.2.3.5'
server3 => location='location3', ip='1.2.3.6'
server4 => location='location4', ip='1.2.3.7'
_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs