BOL: Perl script to count occurrence of a character !

X

BOL wishing you a very and Happy New year

Alternative content

BioScripts
Jit
Perl script to count occurrence of a character !

Perl script to count occurrence of a character !

By Jit 2138 days ago

#!/usr/bin/env perl
# -*- coding: utf-8 -*-

#!/usr/bin/perl

use strict; 
use warnings;

my %count_of;

while ( <> ) {
   my @val = split "\t", $_;
   #my ( $word) = m/(\w+)/;
   $count_of{$val[13]}++;
}

foreach my $word ( sort { $count_of{$a} <=> $count_of{$b} } keys %count_of ) {
    print "$word\t$count_of{$word}\n";
}