#!perl -pal my%h;/\D+/,$h{$&}+=$'||1for@F;$_=join$",map$_.$h{$_},grep$h{$_},qw(m kg s A K mol cd);s/1//g
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page