#!/usr/local/bin/perl -s

if ((!defined($c)) || (!defined($m)))
  { die "Usage : convertfile -c=column -m=multiplier file1, file2, file3\n"; }
# This program assumes the input files are comma delimited data
# files and multiplies the specified column by the specified
# multiplier.  The converted data is written to a file with the name
# of the original file, with ".con" appended, unless the -o (overwrite)
# option is specified.

foreach $file (@ARGV) {

  @inlist=();
  @outlist=();
  open (FILE, "$file");
  while ($line = <FILE>) {
    push(@inlist, $line);
  }
  close(FILE);

  foreach $line (@inlist) {
    if (($line !~ /#/) && ($line !~ /;/)) {
      chop($line);
      @items = split(/,/, $line);
      $items[$c-1] = $items[$c-1]*$m;
      $line = join(', ', @items)."\n";
    }
    push(@outlist, $line);
  }

  if (defined($o)) {
    open(FILE, ">$file");
  } else {
    open(FILE, ">$file.con");
  }
  print FILE @outlist;
  close(FILE);
}