Subversion Repositories main

#!/usr/bin/perl

use strict;

# To speed up my typing - when I want to use awk to
# print a column I will use | pcol 2 instead of | awk '{print $2}'

my $column=$ARGV[0];

while (<STDIN>) {
    my @cols = split;
    print "$cols[$column-1]\n";
}