Next Welcome to my ~/bin 11

f

        #!/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;
        }
        ls -l | grep 'May 22' | f -1


Next Menu Copyright © 2005 M. J. Dominus