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

if ((!defined($c)) || (!defined($m)))
  { die "Usage : convert -c=column -m=multiplier file\n"; }

# This program assumes the input file is a comma delimited data
# file and multiplies the specified column by the specified
# multiplier.

if ($#ARGV>=0) {
  open (FILE, "$ARGV[0]");
  while ($line = <FILE>) {
    if (($line !~ /#/) && ($line !~ /;/)) {
      chop($line);
      @items = split(/,/, $line);
      $items[$c-1] = $items[$c-1]*$m;
      $line = join(', ', @items)."\n";
    }
    print $line;
  }
  close(FILE);
}