Count Items In Column 2 1

[beaster]

I have an input file called bsc_cells.txt that I need to count how many times
the items in column 2 appear.

The example input is below:

RXOTX-99-0 VA0449C ALL GSM1900 ALPHAC 45
RXOTX-99-1 VA0449C ALL GSM1900 ALPHAC 45
RXOTX-99-2 VA0449C ALL GSM1900 ALPHAC 45
RXOTX-99-3 VA0449C ALL GSM1900 ALPHAC 45
RXOTX-102-0 VA0465A ALL GSM1900 ALPHAA 45
RXOTX-102-1 VA0465A ALL GSM1900 ALPHAA 45
RXOTX-102-4 VA0465B ALL GSM1900 ALPHAB 45
RXOTX-102-5 VA0465B ALL GSM1900 ALPHAB 45
RXOTX-102-8 VA0465C ALL GSM1900 ALPHAC 45
RXOTX-102-9 VA0465C ALL GSM1900 ALPHAC 45
RXOTX-133-8 VA0475C ALL GSM1900 ALPHAC 45
RXOTX-133-9 VA0475C ALL GSM1900 ALPHAC 45
RXOTX-133-7 VA0475C ALL GSM1900 ALPHAC 45


The example output is below:

VA0449C 4
VA0465A 2
VA0465B 2
VA0465C 2
VA0475C 3

 

[LKBrwnDBA]

And what is the question? -- this is an extremely basic SQL statement to code.

Have you tried coding anything yet?



----------------------------------------------------------------------------
The person who says it can't be done should not interrupt the person doing it. -- Chinese proverb

 

[LKBrwnDBA]

Ooops, Unix forum -- sorry.

But still, you could maybe use awk to do it.

Have you coded anything?



----------------------------------------------------------------------------
The person who says it can't be done should not interrupt the person doing it. -- Chinese proverb

 

[duncdude]

[b]#!/usr/bin/perl[/b]

open (IN, "< beaster.txt");
chomp (@data = <IN>);
close IN;

foreach (@data) {
  @array = split(/ +/);
  $col2{"$array[1]"}++;
}

while (($key, $value) = each %col2) {
  print "$key\t$value\n";
}

Kind Regards
Duncan

 

[PHV]

Another way:
awk '{++a[$2]}END{for(i in a)print i,a}' bsc_cells.txt

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[duncdude]

I just knew PHV would do that! ;-}

PHV - why does this not work in Perl using backticks?


Kind Regards
Duncan

 

[PHV]

why does this not work in Perl
Sorry, I don't know Perl.

 

[SamBones]

This command...

cut -b19-25 bsc_cells.txt | sort | uniq -c

...gives this output...

   4 VA0449C
   2 VA0465A
   2 VA0465B
   2 VA0465C
   3 VA0475C

Hope this helps.

 

[feherke]

Hi

why does this not work in Perl using backticks?

Backticks ugly.

perl -ane'$a{$F[1]}++;END{foreach(keys%a){print"$_ $a{$_}\n"}}' bcs_bells.txt

Feherke.

http://rootshell.be/~feherke/

 

[duncdude]

That is very nice feherke

Strangely enough i just keep overlooking the fact that Perl command-line solutions can be implemented!?

A * for you!

Please can you walk me through it

perl -ane

' [blue]start of [i]encapsulation[/i][/blue]

$a{$F[1]}++; [red]what is $F[1] ?[/red]

END {

[b]foreach (keys %a) {
  print"$_ $a{$_}\n"
}[/b]

} [red]# end of 'END' block[/red]

' [blue]end of [i]encapsulation[/i][/blue]

input_file.txt

Kind Regards
Duncan

 

[feherke]

Hi

A little trick : [tt]Perl[/tt] man pages are enormous. The [tt]perl --help[/tt] is more simple.

-a autosplit mode with -n or -p (splits $_ into @F)
-n assume 'while (<>) { ... }' loop around program

With this two switches explained I hope the code is clear.

Feherke.

http://rootshell.be/~feherke/

 

[duncdude]

Wicked!

Thanks feherke

* for that interesting solution


Kind Regards
Duncan