$c  = $count{'KCEHC'}; #4
$c1 = $count{'CHECK'}; #7
[download]

Hi Expert,

I am executing unix command 'gunzip -c test.txt.gz |cut -f3 -d'|'|sort|uniq -c' and stroing the value in a variable, the zip file contains records as shown below:

ABC|123|CHECK|1|
DEF|456|CHECK|1|
GHI|789|CHECK|1|
ABC|123|CHECK|1|
DEF|456|CHECK|1|
GHI|789|CHECK|1|
ABC|123|CHECK|1|
DEF|456|KCEHC|1|
GHI|789|KCEHC|1|
JKL|101|KCEHC|2|
[download]

I have used the code as shown below, i am executing the unix commands and storing the value in a variable and from the results i am fetching only numeric value

#!/usr/bin/env perl

use warnings;
use strict;
use IO::Zlib;
 
my $fh = IO::Zlib->new('test.txt.gz', 'rb') or die "Zlib failed: $!";
my %count;
$count{$_}++ for map { (split /\|/)[2] } <$fh>;

foreach $key(%count){
$c = $count{$key};
$c1 = $count{$key};
}
[download]

gives me this output:

$c = 4
$c1 = 4
[download]

The output of dumper

$VAR1 = 'CHECK';
$VAR2 = 7;
$VAR3 = 'KCHEC';
$VAR4 = 4;
[download]

I also tired to grep the CHECK - $r = grep /CHECK/, $r, it returns a 1

i want store the value as CHECK= 7 and KCHEC = 4, separately

Experts any help on this, thanks,regards

Add another line at the end
print "c=$c c1=$c1\n";
and see what you get.
poj

Hi Experts,

I dont want to hard code the values like below, because the values may change CHECK, KCHEC to some other values like CHECK1 and KCHEC1, then this will not work, so how can we assign the values without hard coding

The output of dumper

$VAR1 = 'CHECK';
$VAR2 = 7;
$VAR3 = 'KCHEC';
$VAR4 = 4;
[download]

$c  = $count{'KCEHC'}; #4
$c1 = $count{'CHECK'}; #7
[download]

foreach $key(%count){
$c = $count{$key};
$c1 = $count{$key};
}
[download]

The above code, give the output as

$c = 4;
$c1= 4;
[download]

but i want out put as CHECK = 4 and KCHEC =7, how can i get this

KCHEC=4
CHECK=7
[download]

How can i get this, any suggestion on this