f

• My favorite tool this year is called f

• The cost-benefit ratio was enormous

• I wrote it because I got tired of typing

        awk '{print $7}'

• Now I use this instead:

        f 7

• Here's the complete code:

        #!/usr/bin/perl

        my $field = shift or usage();
        $field -= 1 if $field > 0;

        while (<>) {
                chomp;
                my @f = split;
                print $f[$field], "\n";
        }

        sub usage {
                print STDERR "$0 fieldnumber\n"; 
                exit 1;
        }

Next

Menu

Copyright © 2005 M. J. Dominus