SriniShoo provided a great start, but seems to have missed the requirement to sort the output on each line from highest count to lowest count. Here is a slight modification of SriniShoo's code that provides the requested sort order:
producing the output:
when given the sample input shown in message #1 in this thread.
This User Gave Thanks to Don Cragun For This Post:
Hello,
I have a text file with n lines in the following format (9 column fields):
Example:
contig00012 149606 G C 49 68 60 18 c$cccccacccccccccc^c
I need to count the number of lower-case and upper-case occurences in column 9, respectively, of the... (3 Replies)
Guys,
I am trying the following:
i have a log file of a webbap which logs in the following pattern:
2011-08-14 21:10:04,535 blablabla ERROR blablabla
bla
bla
bla
bla
2011-08-14 21:10:04,535 blablabla ERROR blablabla
bla
bla
bla
... (6 Replies)
Hello Is there a way to calculate how many times a particular symbol appeared in a string before a particular word.
Desktop/Myfiles/pet/dog/puppy
So, I want to count number of occurence of"/" in this directory before the word dog lets say.
Cheers,
Bob (3 Replies)
Hello All,
I got a requirement when I was working with a file. Say the file has unloads of data from a table in the form
1|121|asda|434|thesi|2012|05|24|
1|343|unit|09|best|2012|11|5|
I was put into a scenario where I need the field count in all the lines in that file. It was simply... (6 Replies)
Hi all,
If i would like to process a file input as below:
col1 col2 col3 ...col100
1 A C E A ...
3 D E G A
5 T T A A
6 D C A G
how can i perform a for loop to count the occurences of letters in each column? (just like uniq -c ) in every column.
on top of that, i would also like... (8 Replies)
Hello,
I have a table that looks like what is shown below:
AA
BB
CC
XY
PQ
RS
AA
BB
CC
XY
RS
I would like the total counts depending on the set they belong to:
if search pattern is in {AA, BB, CC} --> count them as Type1 | wc -l (3 Replies)
I am trying to confirm the counts from another code and tried the below awk, but the syntax is incorrect. Basically, outputting the counts of each condition in $8. Thank you :)
awk '$8==/TYPE=snp/ /TYPE=ins/ /TYPE=del/ {count++} END{print count}'... (6 Replies)
Hi all,
I am looking for to filter out based on 7th character and list the number of occurrence based on the 7th character if p , d , o or m
1. if 7th character is p , Output should be: p_hosts = N
2. if 7th character is d , Output should be: d_hosts = N
3. if 7th character is o , Output... (10 Replies)
Discussion started by: rveri
10 Replies
LEARN ABOUT DEBIAN
mojo::collection
Mojo::Collection(3pm) User Contributed Perl Documentation Mojo::Collection(3pm)NAME
Mojo::Collection - Collection
SYNOPSIS
# Manipulate collections
use Mojo::Collection;
my $collection = Mojo::Collection->new(qw(just works));
unshift @$collection, 'it';
$collection->map(sub { ucfirst })->each(sub {
my ($word, $count) = @_;
say "$count: $word";
});
# Use the alternative constructor
use Mojo::Collection 'c';
c(qw(a b c))->join('/')->url_escape->say;
DESCRIPTION
Mojo::Collection is a container for collections.
FUNCTIONS
Mojo::Collection implements the following functions.
"c"
my $collection = c(1, 2, 3);
Construct a new Mojo::Collection object.
METHODS
Mojo::Collection implements the following methods.
"new"
my $collection = Mojo::Collection->new(1, 2, 3);
Construct a new Mojo::Collection object.
"each"
my @elements = $collection->each;
$collection = $collection->each(sub {...});
Evaluate closure for each element in collection.
$collection->each(sub {
my ($e, $count) = @_;
say "$count: $e";
});
"first"
my $first = $collection->first;
my $first = $collection->first(sub {...});
Evaluate closure for each element in collection and return the first one for which the closure returns true.
my $five = $collection->first(sub { $_ == 5 });
"grep"
my $new = $collection->grep(sub {...});
Evaluate closure for each element in collection and create a new collection with all elements for which the closure returned true.
my $interesting = $collection->grep(sub { /mojo/i });
"join"
my $stream = $collection->join("
");
Turn collection into Mojo::ByteStream.
$collection->join("
")->say;
"map"
my $new = $collection->map(sub {...});
Evaluate closure for each element in collection and create a new collection from the results.
my $doubled = $collection->map(sub { $_ * 2 });
"reverse"
my $new = $collection->reverse;
Create a new collection with all elements in reverse order.
"slice"
my $new = $collection->slice(4 .. 7);
Create a new collection with all selected elements.
"shuffle"
my $new = $collection->shuffle;
Create a new collection with all elements in random order.
"size"
my $size = $collection->size;
Number of elements in collection.
"sort"
my $new = $collection->sort;
my $new = $collection->sort(sub {...});
Sort elements based on return value of closure and create a new collection from the results.
my $insensitive = $collection->sort(sub { uc(shift) cmp uc(shift) });
SEE ALSO
Mojolicious, Mojolicious::Guides, <http://mojolicio.us>.
perl v5.14.2 2012-09-05 Mojo::Collection(3pm)