csvファイルをTeXのtabularに

Programming Perl

表計算ソフトの結果とかをTeXのtabular環境下にぶちこみたい。手書き？ 勘弁してくれ。

#!/usr/bin/perl

foreach(@ARGV){
  $file = $_;
  open(IN, $file);
  @buf = <IN>;
  close(IN);
  foreach(@buf){
    s/,/ & /g;
    s/\n/ \\\\\n/g;
    s/([^,]+)/\$ \1 \$/g;
    s/([0-9]+\.[0-9]{4}[0-9]*)/\1 \\cdots /g;
  }
  if(0){
  open(OUT, ">$file");
  print OUT @buf;
  close(OUT);
  } 
  else {print @buf};
}

csvを適当にtabularの中身っぽく変換するPerlスクリプト。引数で与えられたファイルの内容を適当に置換して書き換えます。ifに1とか書いたら書きかえるよ。このままだと0だから置換した内容は標準出力に出すのでファイルは書き換えません。
UNIXはかーな人ならてきとうにコマンドをほげほげ組み合わせるだけで意図することができそうだけど。

test