Here's a perl script to do it:
Quote:
#!/usr/bin/perl
while(<STDIN>) # Read from stdin
{
chomp;
@columns=split(/\s/,$_);
$columns[3]-=3;
$string=join("\t",@columns); # separate with tab
print("$string\n");
}
|
Give it execute permissions, and run using:
[B]./kelvin.pl < datafile >outputfile