Help for this page

Select Code to Download


  1. or download this
    $ echo '
james     yes
...
dave    2
jon     4
ken     1
  2. or download this
    perl -nE 'my ($name, $val) = (split)[0,4]; $hash{$name} ++ if $val eq 
+"yes"; END{ say "$_\t$hash{$_}" for keys %hash}'