Unnecessary Shell Calls

        @name=`route | awk '/ppp/ { print $8 }' | sort -u`;

• You almost always want to get rid of awk:

        for (`route`) {
          next unless /ppp/;
          $name{(split)[7]}++;
        }
        @name = sort keys %name;

• Not all shell calls are unnecessary; note route here

Next

Copyright © 2006 M. J. Dominus