Re^2: Storing the log file name as key/value in hash

Hi, I approached with your suggestions, but facing some issues after appending some identical data for a key.

my %HoA;
print "Input Data parsed into 3 columns:";

while (my $line = <DATA>) {
    my ($col1,$restcol) = split /:\s*/, $line ,2;
    my @restColumns = split '', $restcol;
    $HoA{$col1} = [@restColumns];
}

print "Dumping Output \n";
for my $dataKey (keys %HoA) {
    print "$dataKey: ", join("\t\t", @{$HoA{$dataKey}}), \n";
}

__DATA__
ULTRIX              :       CW18.72.0.3          IP-HOST1.log
DEC_DECSTATION      :       CW180.72.0.3         IP_HOST_AL.log
DEC_DECSTATION_ADDR :       CW180.72.0.3         IP_HOST_al2.log
FOR_VISITORS23_HOST :       HL617.253.1101.2     IP_HOST_hostinfo.log
FOR_VISITORS24_HOST :       HL617.253.1101.2     IP_HOST_hostinfo2.log
FOR_VISITORS25_HOST :       HL617.253.1101.2     IP_HOST_webform3.log
FOR_VISITORS25_HOST :       HL617.253.1101.2     IP_HOST_webform4.log
FOR_VISITORS25_HOST :       HL617.253.1201.2     IP_HOST_webform4.log
[download]

I get the output as below:

FOR_VISITORS25_HOST       HL617.253.1201.2     IP_HOST_webform4.log
DEC_DECSTATION            CW180.72.0.3         IP_HOST_AL.log
FOR_VISITORS23_HOST       HL617.253.1101.2     IP_HOST_hostinfo.log
DEC_DECSTATION_ADDR       CW180.72.0.3         IP_HOST_al2.log
ULTRIX                    CW18.72.0.3          IP-HOST1.log
FOR_VISITORS24_HOST       HL617.253.1101.2     IP_HOST_hostinfo2.log
[download]

As shown DATA contains two rows for key FOR_VISITORS25_HOST. But in output is considered only once(As keys are unique to hash).

FOR_VISITORS25_HOST       HL617.253.1101.2     IP_HOST_webform3.log
FOR_VISITORS25_HOST       HL617.253.1101.2     IP_HOST_webform4.log
[download]

I understand every entry for the same key overwrites previous one and keeps the last value encountered for the key. Tried swapping key and values but no luck!!!

Another approach is, Now I can have data in below format

FOR_VISITORS25_HOST       HL617.253.1101.2 :     IP_HOST_webform3.log
FOR_VISITORS25_HOST       HL617.253.1101.2 :     IP_HOST_webform4.log
[download]

Where I can consider key as <FOR_VISITORS25_HOST HL617.253.1101.2> and values are IP_HOST_webform3.log & IP_HOST_webform4.log

But yet, Is there a way out I can prepare a output as below or I am thinking wrong?

FOR_VISITORS25_HOST       HL617.253.1101.2     IP_HOST_webform3.log 
                                               IP_HOST_webform4.log
                                               ......
                                               ...... <more values for
+ same key>
[download]

Thanks.

Comment on Re^2: Storing the log file name as key/value in hash Select or Download Code

Replies are listed 'Best First'.
Re^3: Storing the log file name as key/value in hash by huck (Prior) on Jun 07, 2017 at 04:09 UTC
use strict; use warnings; my %HoA; while (my $line = <DATA>) { chomp $line; my ($col1,$restcol) = split /:\s*/, $line ,2; my ($col2,$col3) = split ' ', $restcol,2; push @{$HoA{$col1}{$col2}},$col3; } print "Dumping Output \n"; for my $col1 (sort keys %HoA) { my $c1txt=$col1; for my $col2 (sort keys %{$HoA{$col1}}) { my $c2txt=$col2; for my $col3 (@{$HoA{$col1}{$col2}}) { printf "%-22s %-22s %-22s \n",$c1txt,$c2txt,$col3; $c1txt=''; $c2txt=''; } } } __DATA__ ULTRIX : CW18.72.0.3 IP-HOST1.log DEC_DECSTATION : CW180.72.0.3 IP_HOST_AL.log DEC_DECSTATION_ADDR : CW180.72.0.3 IP_HOST_al2.log FOR_VISITORS23_HOST : HL617.253.1101.2 IP_HOST_hostinfo.log FOR_VISITORS24_HOST : HL617.253.1101.2 IP_HOST_hostinfo2.log FOR_VISITORS25_HOST : HL617.253.1101.2 IP_HOST_webform3.log FOR_VISITORS25_HOST : HL617.253.1101.2 IP_HOST_webform4.log FOR_VISITORS25_HOST : HL617.253.1201.2 IP_HOST_webform4.log [download] `Dumping Output DEC_DECSTATION CW180.72.0.3 IP_HOST_AL.log DEC_DECSTATION_ADDR CW180.72.0.3 IP_HOST_al2.log FOR_VISITORS23_HOST HL617.253.1101.2 IP_HOST_hostinfo.log FOR_VISITORS24_HOST HL617.253.1101.2 IP_HOST_hostinfo2.log FOR_VISITORS25_HOST HL617.253.1101.2 IP_HOST_webform3.log IP_HOST_webform4.log HL617.253.1201.2 IP_HOST_webform4.log ULTRIX CW18.72.0.3 IP-HOST1.log` [download]	[reply] [d/l] [select]
Re^3: Storing the log file name as key/value in hash by Marshall (Canon) on Jun 07, 2017 at 07:10 UTC
I am not quite sure about the requirements. If all that this needed is to put blanks for cols 1 and 2 when they are the same as the previous line, then..perhaps..??? #!/usr/bin/perl use strict; use warnings; my $prev_line = <DATA>; $prev_line =~ tr/:/ /; # BTW, tr/// is really fast print $prev_line; while (my $this_line = <DATA>) { $this_line =~ tr/:/ /; my ($prev_cols ,$prev_file_name) = $prev_line =~ /^\s(.?)(\S+)\s* +$/; my ($this_cols, $this_file_name) = $this_line =~ /^\s(.?)(\S+)\s* +$/; if ($prev_cols eq $this_cols) { $this_cols =~ s/\S/ /g; } print $this_cols, $this_file_name,"\n"; $prev_line = $this_line; } =Prints ULTRIX CW18.72.0.3 IP-HOST1.log DEC_DECSTATION CW180.72.0.3 IP_HOST_AL.log DEC_DECSTATION_ADDR CW180.72.0.3 IP_HOST_al2.log FOR_VISITORS23_HOST HL617.253.1101.2 IP_HOST_hostinfo.log FOR_VISITORS24_HOST HL617.253.1101.2 IP_HOST_hostinfo2.log FOR_VISITORS25_HOST HL617.253.1101.2 IP_HOST_webform3.log IP_HOST_webform4.log FOR_VISITORS25_HOST HL617.253.1201.2 IP_HOST_webform4.log =cut __DATA__ ULTRIX : CW18.72.0.3 IP-HOST1.log DEC_DECSTATION : CW180.72.0.3 IP_HOST_AL.log DEC_DECSTATION_ADDR : CW180.72.0.3 IP_HOST_al2.log FOR_VISITORS23_HOST : HL617.253.1101.2 IP_HOST_hostinfo.log FOR_VISITORS24_HOST : HL617.253.1101.2 IP_HOST_hostinfo2.log FOR_VISITORS25_HOST : HL617.253.1101.2 IP_HOST_webform3.log FOR_VISITORS25_HOST : HL617.253.1101.2 IP_HOST_webform4.log FOR_VISITORS25_HOST : HL617.253.1201.2 IP_HOST_webform4.log [download]	[reply] [d/l]