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

# Usage: data2tex [-d=destination] oldfiles
#  Converts data files with ", " delimited columns to LaTeX-ready
#  tables.

if (!defined($d)) {
  $newfiledir="./";
} else {
  $newfiledir=$d;
}

foreach $file (@ARGV) {
  open(oldfile,$file);
  open(newfile,"> ".$newfiledir.$file);
  $_ = <oldfile>;
  $count = 0;
  while ($_ =~ s/\,\s/ & /) {
    $count++;
  }
  for (0..$count) { $greeting .= "c"; }
  $_ =~ s/$/ \\\\/;
  $_ =~ s/#//g;
  print newfile "$_";
  while($_ = <oldfile>){
    $_ =~ s/\,\s/ & /g;
    $_ =~ s/$/ \\\\/;
    $_ =~ s/\#//g;
    print newfile "$_";
  }
}