Posted By: znouza (- Armored Pilsener -) on 'CZTeX'
Title:     mala pomucka
Date:      Sun May 14 21:27:44 2000

bot v soucasne dobe predelavam a dodelavam text jednoho manualu z wordu do 
latexu, a mam tam dost tabulek, napsal jsem si jednoduchy script. Je nutne 
ten wordovsky dokument pretahnout do textu, tam budou tabulky ve formatu
sloupec 1
sloupec 2
sloupec 3
sloupec 1...

pak staci tu tabulku pastnout do nejakyho temp. fajlu a prohnat scriptem. 
nar. budu mit tahle tabulku o dvou sloupcich, tak to prozenu jako
cat temp | ./conv.pl 2
..
tady je ten script

#!/usr/bin/perl
$sloupcu=$ARGV[0];
$count=1;
foreach(<STDIN>) {
 s/_/\_/; # prevedeme _ na _
 if (chop $_) {
  if ($count % $sloupcu!=0) {$_=$ARGV[1]."n".$_}
  print $_;
  if ($count % $sloupcu==0) {print " \\ n"} else {print " & "}
 }
 $count++;
} 

enjoy.

     _  _    /--------                      znouza
   ( o)(o ) /__________
      ||        | |
      ||        |_|           "The game of life is hard to play..."
      **      __|                              3T