Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 5 lines (3 sloc) 113 Bytes
#!/usr/bin/env perl -lap
BEGIN { $field = @ARGV ? shift(@ARGV) : die "Usage: $0 fieldnumber" }
$_ = $F[$field];