Next Welcome to my ~/bin 10

f

        awk '{print $7}'

        f 7
        #!/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