diff options
author | dakkar <dakkar@thenautilus.net> | 2011-10-23 13:06:04 +0100 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2011-10-23 13:06:04 +0100 |
commit | 0465d36acc48f9ecd0604ed23fce8b2ba2e4343b (patch) | |
tree | 6062544e622f77d621bca220b904017520624efd /tabella.pl | |
parent | script per creare fogli di incantesimi (diff) | |
download | inventario-0465d36acc48f9ecd0604ed23fce8b2ba2e4343b.tar.gz inventario-0465d36acc48f9ecd0604ed23fce8b2ba2e4343b.tar.bz2 inventario-0465d36acc48f9ecd0604ed23fce8b2ba2e4343b.zip |
spostiamo roba
Diffstat (limited to 'tabella.pl')
-rw-r--r-- | tabella.pl | 31 |
1 files changed, 0 insertions, 31 deletions
diff --git a/tabella.pl b/tabella.pl deleted file mode 100644 index 93c1123..0000000 --- a/tabella.pl +++ /dev/null @@ -1,31 +0,0 @@ -#!/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 ($line=~/\\end/) {$state=3} - 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 - } -} |