comment on

In awk(1) + sort(1) (environment) ...

#!/bin/sh
# Source: https://perlmonks.org/index.pl?node_id=11148773
#
# This is one shell implementation based on the problem specification 
+...
#
#   Rosetta Code: Long List is Long, 20221130,
#   by eyepopslikeamosquito
#   https://perlmonks.org/?node_id=11148465


case $# in
   0 )
      printf "Give a list of files to sort.\n" >&2
      exit 1
      ;;
esac

start=$( date '+%s' )

# Takes ~135 s.
awk '  \
   { cat_count[ $1 ] += $2 }  \
   END  \
   { for ( cat in cat_count )   \
      { printf "%s\t%s\n", cat, cat_count[ cat ] }  \
   }  \
   ' $@  \
| sort -k2,2rn -k1,1

end=$( date '+%s' )
printf "total time: %d s\n" $(( end - start )) >&2
[download]

In reply to Re: Rosetta Code: Long List is Long :awk(1)+sort(1) by parv
in thread Rosetta Code: Long List is Long by eyepopslikeamosquito

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


Perl: the Markov chain saw
	PerlMonks