diff options
author | dakkar <user@asus.(none)> | 2008-11-08 17:06:17 +0000 |
---|---|---|
committer | dakkar <user@asus.(none)> | 2008-11-08 17:06:17 +0000 |
commit | 81f23035286c51a7d5ed231c40808150d25f57c5 (patch) | |
tree | 13830415cdf521094d60b0913c76c7070d515e3d /tabella.pl | |
parent | olcrist (diff) | |
download | inventario-81f23035286c51a7d5ed231c40808150d25f57c5.tar.gz inventario-81f23035286c51a7d5ed231c40808150d25f57c5.tar.bz2 inventario-81f23035286c51a7d5ed231c40808150d25f57c5.zip |
inventario di "tutti", script per tabellarlo (ha un po' di problemi), immagini
Diffstat (limited to 'tabella.pl')
-rw-r--r-- | tabella.pl | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/tabella.pl b/tabella.pl new file mode 100644 index 0000000..b30aac6 --- /dev/null +++ b/tabella.pl @@ -0,0 +1,30 @@ +#!/usr/bin/perl +use strict; +use warnings; + +my @lineterm=qw(& & \\\\); +my $state=0;my $mline=0; +while (my $line=<>) { + if ($state==0) { + if ($line=~/matrix/) {$state=1}; + } + if ($state==1) { + if ($line=~/{/) {$state=2}; + } + if ($state==2) { + $line=~s[}\s*(&|\\\\|)\s*(%.*)?$][} $lineterm[$mline%3] $2\n] + and ++$mline; + } + print $line; + if ($mline==18) { + $mline=0; + print <<'EOM'; +}; +\end{tikzpicture} + +\begin{tikzpicture} +\matrix +{ +EOM + } +} |