Re: compare text file and print occurrence of key and value

This is a quick example of the process that I had in mind as described in my previous post:

use strict;
use warnings;
use feature qw /say/;

my %hash = (a => 1, b => 2, c => 3, d => 2, e => 5, f => 3);
my %HoA;
for my $key (keys %hash) {
    my $value = $hash{$key};
    push @{$HoA{$value}}, $key;
}
for my $key2 (keys %HoA) {
    my @keys = @{$HoA{$key2}};
    say "Keys @keys have the same value: $key2 ";
}
[download]

Which produces the following output:

$ perl  reverse_hash.pl
Keys a have the same value: 1
Keys c f have the same value: 3
Keys b d have the same value: 2
Keys e have the same value: 5
[download]

The formatting is not exactly what you wanted, but you have the basic algorithm and the results seem correct, I leave it to you to format the output according to your needs. Don't hesitate to ask if you have any further difficulty.

Just in case you need it for better understanding, this is what the HoA looks like at the end of the first loop populating it:

0  HASH(0x60025cbb8)
   1 => ARRAY(0x60006f210)
      0  'a'
   2 => ARRAY(0x600462490)
      0  'b'
      1  'd'
   3 => ARRAY(0x60048d1b8)
      0  'c'
      1  'f'
   5 => ARRAY(0x600495808)
      0  'e'
[download]

Comment on Re: compare text file and print occurrence of key and value Select or Download Code

Replies are listed 'Best First'.
Re^2: compare text file and print occurrence of key and value by waytoperl (Beadle) on Sep 28, 2014 at 14:22 UTC
From hash table need to generate required output stored in text file. Do i need to define `"$key_x"` in another hash? Is there another way to generate `SOME-DATA.6227....` `SOME-DATA` is identical, replace `.1.3.5.7.9.1` with `SOME-DATA` `for my $key ( keys %hash ) { delete $hash{$key}; $hash{$key} = "$key_x"; }` [download] `__Content of hash__` $VAR1 = { '.1.3.5.7.9.1.6227.1.20.1.1.2.33.0.7.7' => 'number: 2', '.1.3.5.7.9.1.6227.1.20.1.4.8.88.6.3' => 'number: 2', '.1.3.5.7.9.1.6227.1.20.1.5.3.5.2' => 'number: 3', '.1.3.5.7.9.1.6227.1.20.1.6.2.88.2.3.30.4' => 'number: 3', '.1.3.5.7.9.1.6227.1.20.1.1.7.88.5.3' => 'number: 3', '.1.3.5.7.9.1.6227.1.20.1.1.6.22.2.3.30' => 'data: ', '.1.3.5.7.9.1.6227.1.20.1.2.9.88.2.3.30.4' => 'number: 3', '.1.3.5.7.9.1.6227.1.20.1.5.8.88.2.3.30.4' => '', '.1.3.5.7.9.1.6227.1.20.1.6.4.88.2.3.30.4' => 'number: 1', '.1.3.5.7.9.1.6227.1.20.1.7.3.88.2.3.30.4' => 'number: 2', '.1.3.5.7.9.1.6227.1.20.1.8.2.88.2.3.30.4' => 'number: 3', '.1.3.5.7.9.1.6227.1.20.1.9.1.88.2.3.30.4' => 'number: 4', '.1.3.5.7.9.1.6227.1.20.1.9.2.88.2.3.30.4' => 'number: 5', '.1.3.5.7.9.1.6227.1.20.1.3.3.88.2.3.30' => 'number: 6', '.1.3.5.7.9.1.6227.1.20.1.6.9.0' => 'number: 7', '.1.3.5.7.9.1.6227.1.20.1.7.1.88.2.3.30.4' => 'data: ', '.1.3.5.7.9.1.6227.1.20.1.8.1.88.2.3.30.4' => 'number: 8' }; [download] `__Required output__` SOME-DATA.6227.1.20.1.1.2.33.0.7.7' = 'number: 2', SOME-DATA.6227.1.20.1.4.8.88.6.3' = 'number: 2', SOME-DATA.6227.1.20.1.5.3.5.2' = 'number: 3', SOME-DATA.6227.1.20.1.6.2.88.2.3.30.4' = 'number: 3', SOME-DATA.6227.1.20.1.1.7.88.5.3' = 'number: 3', SOME-DATA.6227.1.20.1.1.6.22.2.3.30' = 'data: ', SOME-DATA.6227.1.20.1.2.9.88.2.3.30.4' = 'number: 3', SOME-DATA.6227.1.20.1.5.8.88.2.3.30.4' = '', SOME-DATA.6227.1.20.1.6.4.88.2.3.30.4' = 'number: 1', SOME-DATA.6227.1.20.1.7.3.88.2.3.30.4' = 'number: 2', SOME-DATA.6227.1.20.1.8.2.88.2.3.30.4' = 'number: 3', SOME-DATA.6227.1.20.1.9.1.88.2.3.30.4' = 'number: 4', SOME-DATA.6227.1.20.1.9.2.88.2.3.30.4' = 'number: 5', SOME-DATA.6227.1.20.1.3.3.88.2.3.30' = 'number: 6', SOME-DATA.6227.1.20.1.6.9.0' = 'number: 7', SOME-DATA.6227.1.20.1.7.1.88.2.3.30.4' = 'data: ', SOME-DATA.6227.1.20.1.8.1.88.2.3.30.4' = 'number: 8' [download]	[reply] [d/l] [select]
Re^3: compare text file and print occurrence of key and value by Laurent_R (Canon) on Sep 28, 2014 at 17:36 UTC
You could just do this: `my $substit = quotemeta (".1.3.5.7.9.1") for my $key (keys %hash) { my $value = $hash{$key); $key =~ s/^$substit/SOME_DATA/; print "$key = $value\n" }` [download]	[reply] [d/l]