#! /usr/bin/perl
#colex.pl
#4/14/2000 created

#Author: Mafuyu Kitahara
#Purpose: extract columns from psylexN or alike.
#Input: psylexN
#Output: psylexN.m-n

print "file? = ";
chop($file = <STDIN>);

print "initial column (counting from zero) = \n";
chop($m = <STDIN>);

print "final column = \n";
chop($n = <STDIN>);

open (DATA, "$file");
open (OUT, ">$file.$m-$n");

#print loop

while (<DATA>) {
  chomp;
  @a = split;
  print OUT "@a[$m..$n]\n";  
}