489. LaTeX技巧169：excel表格转为LaTex tabular的perl程序

QQ群：91940767/145316219/141877998/80300084/194770436
淘宝店：http://latexstudio.taobao.com
技巧续篇：http://latexstudio.net/
常见数学公式问题集下载

前文有讲到 LaTeX技巧6：Excel2LaTeX表格处理软件图解教程 如下为excel表格转为latex tabular的perl程序，仅供参考。

#!/usr/bin/perl -w
use strict;

open IN, "<", "data.txt"
or die "open data.txt error!($!)";

my @datum = <IN>;

my @titles = split /\s+/, $datum[0];
shift(@titles);

my $title = " ";
foreach (@titles)
{
$title .= "& $_ ";
}

my $fileColumn = "|" . ("c|" x @titles) . "c|";
print $fileColumn;

open OUT, ">", "table.txt" or die "table.txt";

print OUT "\\begin{tabular}{$fileColumn}\n";
print OUT " \\hline\n";
print OUT "$title\n";
print OUT " \\hline\n";

foreach (1..@datum-1)
{
my @numbers = split /\s+/, $datum[$_];
my $count = 1;
print OUT "$numbers[0]";
while ($count < @numbers)
{
print OUT " & $numbers[$count]";
$count++;
}
print OUT " \\\\\n";
print OUT " \\hline\n";
}

print OUT "\\end{tabular}";
close IN;
close OUT;

使用时将要生成表格的数据复制到一个文件夹下，命名为data.txt，将此perl脚本另存为**.pl的文件，放在同一文件夹下，双击运行会生成一个table.txt文件，就是Latex格式的tabular，当然得先装个perl解释器。

比如这样的数据需生成LaTex的tabular

数学 英语 语文 物理 化学 生物
张三 95 56 85 85 76 90
李四 80 90 70 80 97 80
周五 78 65 43 92 64 98
吴六 76 80 90 73 80 64
郑七 94 76 85 64 73 80
王八 68 76 80 89 67 77
运行后，生成table.txt如下：

\begin{tabular}{|c|c|c|c|c|c|c|}
\hline
& 数学 & 英语 & 语文 & 物理 & 化学 & 生物
\hline
张三 & 95 & 56 & 85 & 85 & 76 & 90 \\
\hline
李四 & 80 & 90 & 70 & 80 & 97 & 80 \\
\hline
周五 & 78 & 65 & 43 & 92 & 64 & 98 \\
\hline
吴六 & 76 & 80 & 90 & 73 & 80 & 64 \\
\hline
郑七 & 94 & 76 & 85 & 64 & 73 & 80 \\
\hline
王八 & 68 & 76 & 80 & 89 & 67 & 77 \\
\hline
\end{tabular}