addup

        #!/usr/local/bin/perl -na
        BEGIN { $fieldno = shift }
        $total += defined($fieldno) ? (split(/\s+/))[$fieldno-1] : $_;

        END{print $total, "\n" }

• Some things to notice here

1. I forgot about -a and @F, and used split again

2. $fieldno-1 means that addup 1 adds up the first column

3. It doesn't work for negative arguments

4. The code is really sloppy

• In a 3-line program, who cares?

Next

Menu

Copyright © 2005 M. J. Dominus