Perl script to find particular field and sum it


 
Thread Tools Search this Thread
Top Forums Shell Programming and Scripting Perl script to find particular field and sum it
# 1  
Old 03-16-2010
Perl script to find particular field and sum it

Hi,
I have a file with format

a b c d e
1 1 2 2 2
1 2 2 2 3
1 1 1 1 2
1 1 1 1 4
1 1 1 1 6

in column e i want to find all similar fields ( with perl script )and sum it how many are there
for instance in format above.

2 - 2 times
4 - 1 time
6 - 1 time

what i use is
Code:
@a=<STDIN>;
foreach $i (@a){
   @element= $i;
   if (@element[4]=~/2/){
    $abc+=@element[4];
    
   }

this is not working

Allso my other question is, here in example that i gave i have only 2 or 3 different numbers so i can repeat this above if statement and get the result. but what if we need to find this from 5000 different words?

Thnaks
# 2  
Old 03-16-2010
Code:
 

 use strict;
use warnings;
use Data::Dumper;
open FH, "<new" or die "Can't Open $!";
my @array1;
my %hash;
<FH>;
while(<FH>)
{
  my @array=split(' ',$_);
  push(@array1,$array[4]);
}
foreach(@array1)
{
  $hash{$_}++;
}

foreach my $key (keys%hash) {
       print " $key => $hash{$key} times\n";
   }


Last edited by murugaperumal; 03-16-2010 at 05:09 AM..
# 3  
Old 03-16-2010
Use the following code
Code:
open FH, "<inp" or die "Can't open file : $!\n";
my @data=<FH>;
my @result;
my @count;
foreach (@data )
{
    push(@result,split);
}
for ( my $i=4; $i <= $#result; $i=$i+5 )
{
    push(@count,$result[$i]);
}

my %count_hash;
shift @count; #to remove the e from the array
foreach my $word (@count)
{
       $count_hash{$word}=$count_hash{$word}+1;
}

foreach my $word (keys %count_hash)
{
            print $word," Comes for ",$count_hash{$word}," times\n";
}

The output I am getting is follows

Code:
6 Comes for 1 times
4 Comes for 1 times
3 Comes for 1 times
2 Comes for 2 times


Last edited by thillai_selvan; 03-16-2010 at 05:09 AM..
# 4  
Old 03-16-2010
MySQL

try the following code:


Code:
                open FH,"sum" or die $!; //Open the file 'sum'.
                my %sum;
                my @lines;
                my $key;
                my $val;
                while(<FH>)//Read lines from the opened file.
                {
                      @lines=split(' ',$_);
                      $sum{$lines[4]}=$sum{$lines[4]}+1;//Forming Hash

                }
                while(($key,$val)=each(%sum))
                {
                    print "$key - $val times \n";//Printing the keys and values in hash
                }

Here 'sum' is a file which contains the following input data.

1 1 2 2 2
1 2 2 2 3
1 1 1 1 2
1 1 1 1 4
1 1 1 1 6

Last edited by kiruthika_sri; 03-16-2010 at 05:17 AM..
# 5  
Old 03-16-2010
Try:

Code:
perl -lane '$A{(split //)[-1]}++; END {while (($k,$v) = each(%A)) { print "$k $v times" if(int($k)); } }' file

# 6  
Old 03-16-2010
Quote:
Originally Posted by thillai_selvan
Use the following code
Code:
open FH, "<inp" or die "Can't open file : $!\n";
my @data=<FH>;
my @result;
my @count;
foreach (@data )
{
    push(@result,split);
}
for ( my $i=4; $i <= $#result; $i=$i+5 )
{
    push(@count,$result[$i]);
}

my %count_hash;
shift @count; #to remove the e from the array
foreach my $word (@count)
{
       $count_hash{$word}=$count_hash{$word}+1;
}

foreach my $word (keys %count_hash)
{
            print $word," Comes for ",$count_hash{$word}," times\n";
}

The output I am getting is follows

Code:
6 Comes for 1 times
4 Comes for 1 times
3 Comes for 1 times
2 Comes for 2 times

How you call this..This script is giving error
# 7  
Old 03-16-2010
What error you are getting?
Login or Register to Ask a Question

Previous Thread | Next Thread

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Script to find out the sum of output on the screen

Hi, I am new to scripting.I am using redhat linux 6.I am just finding a way to summing up the output displayed as below.It will help me a lot since we used to get this kind of output every now and then. I am pasting here the output .What is required is this o/p needs to be summed up and... (3 Replies)
Discussion started by: muraliinfy04
3 Replies

2. Homework & Coursework Questions

Calculate sum of the field

Hi All, I need to calculat the sum of the particular field in text file. And the datatype of the field in file is decimal(18,2). If the file is small, then I am facing any problem. But the file is huge, then the result is converted into exponential format. I tried using various command thr... (0 Replies)
Discussion started by: lathanandhini
0 Replies

3. Shell Programming and Scripting

Find repeated word and take sum of the second field to it ,for all the repeated words in awk

Hi below is the input file, i need to find repeated words and sum up the values of it which is second field from the repeated work.Im trying but getting no where close to it.Kindly give me a hint on how to go about it Input fruits,apple,20,fruits,mango,20,veg,carrot,12,veg,raddish,30... (11 Replies)
Discussion started by: 100bees
11 Replies

4. Shell Programming and Scripting

Shell script to find the sum of argument passed to the script

I want to make a script which takes the number of argument, add those argument and gives output to the user, but I am not getting through... Script that i am using is below : #!/bin/bash sum=0 for i in $@ do sum=$sum+$1 echo $sum shift done I am executing the script as... (3 Replies)
Discussion started by: mukulverma2408
3 Replies

5. Shell Programming and Scripting

To find sum & average of 8th field

Hi Friends, I have many files like below. total,0.7%,0.0%,0.2%,0.0%,0.2%,0.7%,98.0% total,1.9%,0.0%,0.4%,0.0%,0.0%,6.8%,90.6% total,0.9%,0.0%,0.4%,0.0%,0.0%,0.0%,98.5% total,1.4%,0.0%,0.7%,0.0%,0.2%,2.9%,94.5% total,0.7%,0.0%,0.4%,0.0%,0.0%,0.9%,97.7%... (13 Replies)
Discussion started by: SunilB2011
13 Replies

6. Shell Programming and Scripting

perl sum 2nd field in an array

Hi Everyone, ($total+=$_) for @record; assume @record=(1,2,3), so the result is 6. if @record=("1 3","2 3","3 3"), would like to sum up the 2nd field of this array, the result is 9. i tried " ($total+=$) for @record ", cannot, please advice. Thanks ---------- Post updated at 03:45... (1 Reply)
Discussion started by: jimmy_y
1 Replies

7. Homework & Coursework Questions

Help with shell script to find sum of first n numbers of Fibonacci series

Use and complete the template provided. The entire template must be completed. If you don't, your post may be deleted! 1. The problem statement, all variables and given/known data: Shell script to find sum of first n numbers of Fibonacci series 2. Relevant commands, code, scripts,... (0 Replies)
Discussion started by: Kshitija
0 Replies

8. Shell Programming and Scripting

Shell script to find the sum of first n Fibonacci numbers

pls give me the solution for this i need it for my exam pls pls pls Shell script to find the sum of first n Fibonacci numbers (1 Reply)
Discussion started by: Kshitija
1 Replies

9. Shell Programming and Scripting

How to sum particular field in text file?

how to sum particular field in text file i am having text file like 222|4000|abc 333|5000|xyz 444|6000|mno i want sum of second field i.e 4000+5000+6000 can u pls help (3 Replies)
Discussion started by: suryanarayana
3 Replies

10. Shell Programming and Scripting

Sum value from selected lines script (awk,perl)

Hello. I face this (2 side) problem. Some lines with this structure. ........... 12345678 4 12345989 13 12346356 205 12346644 74 12346819 22 ......... The first field (timestamp) is growing (or at least equal). 1)Sum the second fields if the first_field/500 are... (8 Replies)
Discussion started by: paolfili
8 Replies
Login or Register to Ask a Question

Featured Tech Videos