Ver Tema - Consulta sobre || y or

pablgonz · 2012-01-17 11:23 @516

Estimados amigos del foro: he escrito un script basado en otro que ya conocía bastante bien y sabía cómo funcionaba. Al modificar y eliminar líneas me percaté de que habían varios || y no recuerdo si lo leí en el foro en algún tutorial en la red, que era preferible usar «or» en su lugar.

¿Es correcto esto?

Gracias por todo
Pablo

explorer · 2012-01-17 11:43 @529

La diferencia entre los dos es solo su precedencia.

Eso quiere decir que en esta situación:

EXPRESIÓN op EXPRESIÓN || EXPRESIÓN op EXPRESIÓN

se ejecutará así:

EXPRESIÓN op (EXPRESIÓN || EXPRESIÓN) op EXPRESIÓN

mientras que con

EXPRESIÓN op EXPRESIÓN or EXPRESIÓN op EXPRESIÓN

se ejecutará así:

(EXPRESIÓN op EXPRESIÓN) or (EXPRESIÓN op EXPRESIÓN)

Bueno, esto está explicado de forma un poco burda, porque también depende de la precedencia de 'op' (otro operador).

Tienes la lista de precedencia al principio del documento perlop.

Es preferible usar 'or', porque tiene una precedencia muy baja, así que sabemos que será de los últimos operadores que se ejecuten en la sentencia. Así, podemos escribir cosas como esta sin tener que poner paréntesis:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

if ($linea == 23  or  $linea == 24) {

pablgonz · 2012-01-17 11:58 @540

Gracias por la aclaración, supongo que en situaciones como esta también es valido (y preferible) cambiar

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

mkdir("$imageDir", 0744) || die "cannot mkdir $imageDir: $!";

por

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

mkdir("$imageDir", 0744) or die "cannot mkdir $imageDir: $!";

explorer · 2012-01-17 12:06 @546

Pues sí, por seguridad (en el sentido de que no sabemos si esa línea la vamos a cambiar en el futuro, y al hacer ese cambio, el '||' hará de las suyas).

En el caso concreto que pones, además, lo más moderno es ni siquiera poner el die(). Como se trata de una operación con ficheros, es mejor que lo gestione autodie:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

use autodie;               # "Es mejor morir que regresar con deshonor --Proverbio Kinglon"
 
mkdir $imageDir, 0744;

Queda mucho más corto, ¿verdad?

Ejemplo:

Syntax: [ Download ] [ Hide ]

Using bash Syntax Highlighting

explorer@casa:~/Documentos/Desarrollo> perl -E 'use autodie; mkdir "/kkk", 0755;'
Can't mkdir('/kkk', '493'): Permiso denegado at -e line 1
 

pablgonz · 2012-01-17 12:22 @557

Tienes toda la razón, no conocía autodie. El tema es que tengo dentro del script varias veces "or die", te muestro el código:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' && eval 'exec perl -S $0 $argv:q'
  if 0;
 
use strict;                             # to be sure, that all is safe ... :-)
 
# $Id: tikz2pdf.pl 2012-01-17 08:41:35Z Pablo $
# v. 0.1                                Extract tikzpicture, based on pst2pdf by Herbert Voss
# 2012-01-17      (c) Pablo González Luengo 
# Thanks to Giuseppe Matarazzo.
# Couple to have the complete operation of the script, you need some software (Linux and Windows)
# xpdf (needed to create EPS / PPM)
# gnuplot (not necessary if not called from TiKZ)
# pdftk (not necessary with the-pdftk)
# ImageMagick (required if you want to create JPG / PNG or other format)
#       
use File::Path;  
use File::Copy;  
use File::Basename;     
use IO::File;       
use Getopt::Long;               
#----------------------- User part begin ------------------------
my $imageDir = "images";        
my $Iext = ".pdf";                      # leave empty, if not a special one
my $tempDir = ".";                      # temporary directory
my $verbose = 1;                          # 0 or 1, logfile  
my $clear = 0;                            # 0 or 1, clears all temporary files
my $DPI = 75;                               # very low value for the png's
my $Iscale = 1;                           # for \includegraphics
my $noImages = 0;                         # 1->create no images
my $force = 0;                  # 1->force create images
my $ppm = 0;                            # 1->create .ppm files
my $norun = 0;                          # 1->runs pdflatex
my $miktex = 0;                         # 1->runs pdlatex for miktex
my $eps = 0;                            # 1->create .eps files
my $ifiles = 0;                         # 1->create image files .tex 
my $all = 0;                            # 1->create all images and files for type
my $nopdftk = 0;                                # 1->create all images and files for type in force mode
#----------------------- User part end ---------------------------
#----------------------- program identification, options and help
my $program = "tikz2pdf";
my $ident = '$Id: tikz2pdf.pl 2012-01-17 pablo $';
my $copyright = <<END_COPYRIGHT ;
Copyright 2012-01-17 (c) Pablo Gonzalez L <pablgonz\@yahoo.com> 
END_COPYRIGHT
my $licensetxt= <<END_LICENSE ;
    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.
 
    This program is distributed in the hope that it will be useful, but 
    WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU 
    General Public License for more details.
 
    You should have received a copy of the GNU General Public License
    along with this program; if not, write to the Free Software
    Foundation, Inc., 59 Temple Place, Suite 330, Boston, 
    MA  02111-1307  USA
END_LICENSE
my $title = "$program $ident\n";
my $usage = <<"END_OF_USAGE";
${title}Usage: $program <texfile.tex>  [Options]
tikz2pdf run a TeX source, and extract all TiKZ-related part as 
        single images  (pdf or eps or ppm, default pdf) 
        and then runs pdflatex. See tikz2pdf documentation for more info
Options:
  --help          - display this help and exit
  --version       - display version information and exit
  --license       - display license information and exit
  --imageDir      - the dir for the created images (default images) 
  --DPI=<int>     - the dots per inch for a cretaed ppm files (default 75)
  --ppm           - create .ppm files
  --eps           - create .eps files   
  --Iscale=<real> - the value for [scale=] in \\includegraphics 
  --noImages      - generate files without compile (need -norun)
  --verbose       - creates long log
  --clear         - delete all temp files
  --norun         - create file-pdf.tex, but, no run pdflatex
  --miktex        - for miktex users -enable-write18
  --ifiles        - create images files (.tex) for all TiKZ enviroment  
  --force         - create images whitout pdftk.
  --all           - create all image type and images.tex        
  --nopdftk          - create all image type and images.tex in force mode
Examples:
* $program test.tex --all
* produce test-pdf.tex and ppm,eps,tex and pdf for TiKZ-enviroment in image dir
END_OF_USAGE
#
my $result=GetOptions (
                        "help",
                        "version",
                        "license",
                        "DPI=i"      => \$DPI,          # numeric
                        "Iscale=f"   => \$Iscale,       # real
                        "imageDir=s" => \$imageDir,     # string
                        "tempDir=s"  => \$tempDir,      # string
                        "Iext=s"     => \$Iext,         # string
                        "clear"      => \$clear,        # flag
                        "noImages"   => \$noImages,     # flag
                        "force"      => \$force,        # flag
                        "ppm"        => \$ppm,         # flag
                        "norun"      => \$norun,       # flag
                        "miktex"     => \$miktex,      # flag
                        "eps"        => \$eps,          # flag
                        "ifiles"        => \$ifiles,            # flag
                        "all"        => \$all,          # flag
                        "nopdftk"        => \$nopdftk,          # flag
                        "verbose"    => \$verbose,
) or die $usage;
# help functions
sub errorUsage { die "Error: @_ (try --help for more information)\n"; }
# options for command line
if ($::opt_help) {
  print $usage;
  exit (0);
}
if ($::opt_version) {
  print $title;
  print $copyright;
  exit (0);
}
if ($::opt_license) {
  print $licensetxt;
  exit (0);
}
# open file 
my $InputFilename = "";
  @ARGV > 0 or errorUsage "Input filename missing";
  @ARGV < 2 or errorUsage "Unknown option or too many input files";
  $InputFilename = $ARGV[0];
# end open file
my @SuffixList = (".tex","",".ltx");            # possible extensions
my ($name,$path,$ext) = fileparse($ARGV[0],@SuffixList);
if ($ext eq "") { $ext = ".tex"; }                      # me need the extension as well
my $TeXfile = "$path$name$ext";
my $Logfile = "$tempDir/$name.plog";            # our own log file
open (LOGfile,">$Logfile") or die "cannot open $Logfile!";
LOG ("Parameters:"); 
LOG ("==> imageDir = $imageDir"); 
LOG ("==> Iext     = $Iext"); 
LOG ("==> DPI      = $DPI"); 
LOG ("==> Iscale   = $Iscale"); 
LOG ("==> tempDir  = $tempDir"); 
LOG ("==> verbose  = $verbose"); 
LOG ("==> clear    = $clear"); 
LOG ("==> noImages = $noImages"); 
LOG ("==> force    = $force"); 
LOG ("==> ppm      = $ppm"); 
LOG ("==> norun    = $norun"); 
LOG ("==> miktex   = $miktex");
LOG ("==> eps      = $eps");  
LOG ("==> ifiles   = $ifiles"); 
# General options
if ($ppm) {
  LOG ("Generate .ppm files ...");
  $ppm = 1;
}
if ($norun) {
  LOG ("no compile file-pdf.tex");
  $norun = 1;
}
if ($miktex) {
  LOG ("enable write 18 ...");
  $miktex = 1;
}
if ($eps) {
  LOG ("Generate .eps files ...");
  $eps = 1;
}
if ($ifiles) {
  LOG ("Generate .tex images files ...");
  $ifiles=1;
}
if ($all) {
  LOG ("Generate all images files ...");
   $ifiles=$eps = $ppm = $clear = 1;
}
if ($nopdftk) {
  LOG ("Forced generate all images files ...");
  $force=$ifiles=$eps = $ppm = $clear = 1;
}
# Internal counter
my $imgNo = 1;          
# force mode , compile separte files
if ($force) {
LOG ("Running on [$path][$name][$ext]"); 
open (FILE, "<$TeXfile") or die "cannot open source file $TeXfile!";
LOG ("force generate images...");
if (-d $imageDir) { LOG ("$imageDir exists") }
else { mkdir("$imageDir", 0744) or die "cannot mkdir $imageDir: $!";}
savePreamble($name);
runFile($name);
close FILE;                             
close LOGfile;
}
else{
LOG ("Running on [$path][$name][$ext]"); 
open (FILE, "<$TeXfile") or die "cannot open source file $TeXfile!";    
if (!$noImages ) {
if (-d $imageDir) { LOG ("$imageDir exists") }
else { 
mkdir("$imageDir", 0744) or die "cannot mkdir $imageDir: $!";
LOG ("Imagedir created"); }
LOG ("go to savePreamble ... "); 
runBurst($tempDir);
savePreamble($name);
runFile($name);
LOG ("done!\n go to runFile ..."); 
LOG ("done!"); 
close FILE;                                     
close LOGfile;
}
}
#------------ Create filename-pics.pdf, split and generate .ppm
sub runBurst{
if ($force){ print "Force mode";}
else{
# Append preview
my $entrada="$TeXfile";
my $salida ="$name-pics.tex";
open (ENTRADA,"<$entrada");
open (SALIDA,">$salida") ;
 print SALIDA "\\AtBeginDocument\{\n";
 print SALIDA "\\RequirePackage\[active,tightpage\]\{preview\}\n";
 print SALIDA "\\renewcommand\\PreviewBbAdjust\{-600pt -600pt 600pt 600pt\}\n";
 print SALIDA "\\PreviewEnvironment\{tikzpicture\}\}\n";
 while (my $linea=<ENTRADA>)
  {
        print SALIDA $linea;
  }
close (ENTRADA);
close (SALIDA);
# close preview
 
if ($miktex){system("pdflatex -enable-write18 -interaction=batchmode $name");}
else{
system("pdflatex -shell-escape -interaction=batchmode $tempDir/$name-pics.tex");
system("pdfcrop $tempDir/$name-pics.pdf $tempDir/$name-pics.pdf");
system("pdftk $name-pics.pdf burst output $imageDir/$name-tikz-\%1d.pdf");
}
if ($ppm){
system("pdftoppm -r  $DPI $name-pics.pdf $imageDir/$name-tikz");
}
}
}
#------------ end pdftk burst
LOG ("runpdfTeX ... "); 
runpdfTeX("$path$name",$name);
LOG ("all finished ... :-)"); 
if ( $clear ) {
unlink "$path$name.txt";
unlink "$path$name.log";
unlink "$path$name.plog";
unlink "$path$name.preamble";
unlink "$path$name.pdf";
 }
# Save preable
sub savePreamble {                              
  my $filename = pop;
  LOG ("----- Start Preamble -----"); 
  open (FILEp, ">$tempDir/$filename.preamble") 
    or die "cannot open preamble file $tempDir/$filename.preamble!";
  while (<FILE>) {              
    my $i = index($_,"begin{document}");
    if ($i > 0) { 
      if ($i > 1) { print FILEp substr($_,0,--$i); }    
                        if ($force) {
                        print FILEp "\\pagestyle{empty}\n";
                        }
      close(FILEp); 
      LOG ("----- Close Preamble ------"); 
      return; 
    } else { 
      print FILEp "$_"; 
      LOG ("$_"); 
    }
  }
  close(FILEp);
  if ( $verbose ) { LOG("<-----Preamble<----"); }
  return;
}
 
sub searchTiKZ {                                        
  my @TikZ = ();                                        
  my @TIKZtotal = ();                   
  my $depth = -1;                                       
  my $type = -1;                                        
  my $EndDocument = 0;          
  my $iVerb = 0;                                        
  while (<FILE>) {                              
    if (!$EndDocument) {
    chomp;                                                        
    my $line = $_;                              
    if ( !$iVerb ) { 
      $iVerb = ((index($line,"begin{verbatim}") > 0) or (index($line,"begin{lstlisting}") > 0)); 
    }           
    if ( !$iVerb ) {
      my $iTIKZ = index($line,"begin{tikzpicture}");
       if ( $type < 0 ) {                       
      if ($iTIKZ > 0) {                         
          $type = 2;                    
          $line = substr($line,$iTIKZ-1);       
          LOG("TiKZ-line: $line");
        }                               
       }
 
if ($type > 0) {
        LOG ("searchTiKZ: set \$type=$type"); 
        $iTIKZ = index($line,"end{tikzpicture}");       
        if ($iTIKZ > 0) {               
          LOG ("searchTiKZ: $line"); 
                                $type = -1;
          push @TikZ,substr($line,0,$iTIKZ+16); 
          LOG ("searchTiKZ: set \$type=$type"); 
          push @TIKZtotal,[@TikZ];                      
          LOG ("---->TiKZ---->\n@TikZ\n<----TikZ<----"); 
          @TikZ =();                    
        } else { push @TikZ,$line; }    # add line
      }
      my $i = index($line,"end{document}");
      if ($i > 0) { $EndDocument++; LOG("EndDocument in searchTiKZ"); }
    }                   
    if (( index($line,"end{verbatim}") > 0 ) or ( index($line,"end{lstlisting}") > 0 )) { $iVerb = 0; }
  }}
  if ( $verbose ) { 
    LOG("---->TIKZtotal---->");
    for my $aref ( @TIKZtotal ) { 
      my @a = @$aref;
      my $i = 1;
                        foreach ( @a ) { LOG ($a[$i]); $i=$i+1; }
    }
    LOG ("<----TIKZtotal<----"); 
  }
  close(FILE);
  return @TIKZtotal;    
}
# Creating ifile.tex and eps, pdf and ppm for images
if ($force){
sub runFORCE{
my $filename = pop;
if ($miktex){system("pdflatex -enable-write18 -interaction=batchmode $tempDir/$filename-tikz");}
else{system("pdflatex -interaction=batchmode $tempDir/$filename-tikz");}
if ($ifiles){
copy("$filename-tikz.tex", "$imageDir/$filename-tikz-$imgNo.tex") or die "Cannot copy Source file!";
}
system("pdfcrop $tempDir/$filename-tikz.pdf $imageDir/$filename-tikz-$imgNo.pdf");  
if ($eps) {system("pdftops -level3 -eps $imageDir/$filename-tikz-$imgNo.pdf $imageDir/$filename-tikz-$imgNo.eps");}
if ($ppm) {system("pdftoppm -r $DPI $imageDir/$filename-tikz-$imgNo.pdf $imageDir/$filename-tikz-$imgNo");}
    $imgNo=$imgNo+1;
        }
}
else{
# Creating ifiles.tex and .eps for images
sub runTeX{
my $filename = pop;
if ($eps){
                        system("pdftops -level3 -eps $imageDir/$filename-$imgNo.pdf $imageDir/$filename-$imgNo.eps");
                   }
if ($ifiles){
copy("$filename.tex", "$imageDir/$filename-$imgNo.tex") or die "Cannot copy Source file!";
}
$imgNo=$imgNo+1;
}
}
sub runFile {
  my $filename = pop;
  my @TIKZarray = searchTiKZ();
  if ( $verbose ) { 
    LOG("---->TIKZarray---->");
    for my $aref ( @TIKZarray ) { 
      my @a = @$aref;
      my $i = 1;
      foreach ( @a ) { print LOG $a[$i]."\n"; $i=$i+1; }
    }
    LOG("<----TIKZarray<----"); 
    my $no = @TIKZarray;
    LOG("TiKZ: ".$no." TiKZ sequence(s)"); 
  }
  for my $aref ( @TIKZarray ) {
    my @TikZ = @$aref;
    open (FILEp,"<$tempDir/$filename.preamble") or die "cannot open $tempDir/$filename.preamble!";
    open (FILEsub,">$tempDir/$filename-tikz.tex") or die "cannot open $tempDir/$filename-tikz.tex!";
    while (<FILEp>) {print FILEsub $_; }
                print FILEsub "\\begin{document}\n";
                if ( $verbose ) { LOG("\@TikZ: $_"); }
    foreach ( @TikZ ) { print FILEsub "$_\n"; }
    print FILEsub "\\end{document}";
    close (FILEsub);
    close (FILEp);
                if ($force) {
                runFORCE("$name");
                }
                else{
    runTeX("$tempDir/$name-tikz");
  }
}
}
# Renaming ppm need for correct name
my $dren = "$tempDir/$imageDir";
my $fichero = '';
my $ppmren = '';
my $renNo = 1;
if(opendir(DIR,$dren)){
foreach (readdir DIR){
       $fichero = $_;
                        if ( $fichero =~ /($name-tikz-)(\d+|\d+[-]\d+).ppm/) {
        my $renNo   = int($2);
        my $newname="$1$renNo.ppm";
        $ppmren = rename("$dren/$fichero","$dren/$newname");
        }
        }
}
closedir DIR;
# end renaming
# Replace files
sub runpdfTeX() {
  my ($name,$pdfname) = @_;
  open (PDF, ">$tempDir/$pdfname-pdf.tex") or die "cannot open $tempDir/$pdfname-pdf.tex!";
  open (FILE, "<$name.tex") or die "cannot open $name!";
        print PDF "\\RequirePackage{grfext}\n";
        print PDF "\\PrependGraphicsExtensions*{$Iext}\n";
        print PDF "\\RequirePackage{graphicx}\n";
        print PDF "\\graphicspath{{$imageDir/}}\n";
  my $ignore = 0;
  my $IMGno = 1;
  my $depth = -1;
  my $type = -1;
  my $EndDocument = 0;
  my $iVerb = 0;
  while (<FILE>) {
    if ( !$iVerb ) { 
      $iVerb = ((index($_,"begin{verbatim}") > 0) or (index($_,"begin{lstlisting}") > 0)); 
    } 
    if ( !$iVerb ) {
      my $i = index($_,"end{document}");
      if ($i > 0) { print PDF $_; $EndDocument++; LOG("EndDocument in runpdfTeX"); }
      if ( !$EndDocument ) {
        my $iTIKZ = index($_,"begin{tikzpicture}");
        if ( $iTIKZ > 0 ) { 
          $type = 2; 
          $ignore = 1; 
          if ($iTIKZ > 1) { print PDF substr($_,0,--$iTIKZ); }  
        print PDF "\\includegraphics[scale=$Iscale]{$pdfname-tikz-$IMGno}"; 
          $IMGno=$IMGno+1;
        }               
        if ( !$ignore ) { print PDF "$_"; }     
        if ( $type == 2 ) {     
                                        my $iTIKZ = index($_,"end{tikzpicture}");
          if ($iTIKZ > 0) {
            print PDF substr($_,$iTIKZ+16);             
            $ignore = 0; 
            $type=-1;
          }                                                                     
        }                               
      }
    } else { print PDF $_; } 
 if (( index($_,"end{verbatim}") > 0 ) or ( index($_,"end{lstlisting}") > 0 )) { $iVerb = 0; }
  } 
  close (FILE);
  close (PDF);
        
if ($norun){print "Done\n";}
else {
system("pdflatex -interaction=batchmode $pdfname-pdf"); 
if ($ppm){
print "If you need to create JPG/PNG type cd $imageDir and run\n";
print "mogrify -format jpg *.ppm\n";
}
print "Done\n";
}
if ( $clear ) {
        unlink "$name.txt";
        unlink "$tempDir/$name.aux";
        unlink "$tempDir/$pdfname-pdf.log";
        unlink "$tempDir/$pdfname-pdf.aux";
        unlink "$tempDir/$pdfname-pdf-autopp.txt";
        unlink "$tempDir/$pdfname-pics.pdf";
        unlink "$tempDir/doc_data.txt";
        unlink "$tempDir/$pdfname-tikz.tex";
        unlink "$tempDir/$name-tikz.pdf";
        unlink "$tempDir/$name-tikz.dvi";
        unlink "$tempDir/$name-tikz.ps";
        unlink "$tempDir/$name-tikz.aux";
        unlink "$tempDir/$name-tikz.log";
        unlink "$tempDir/$name.ps";
        unlink "$tempDir/$name.dvi";
        unlink "$tempDir/$name-pics.pdf";
        unlink "$tempDir/$name-pics.tex";
        unlink "$tempDir/$name-pics.aux";
        unlink "$tempDir/$name-pics.log";
 
        }
}
sub LOG() { 
  if ( $verbose ) { print LOGfile "@_\n"; } 
}
__END__

lo que quiero decir, es que a veces lo utilizo para abrir/crear archivos y otras para abrir y crear directorios, ¿cómo cambio la línea 138 usando autodie?

PD: La linea 250 no corresponde a la original, perltidy la convirtio en

Syntax: [ Download ] [ Hide ]

LOG ("all finished ... <img src="http://perlenespanol.com/foro/images/smilies/icon_smile.gif" alt=":-)" title="Smile" />");

pero deberia ser

Syntax: [ Download ] [ Hide ]

LOG ("all finished ... :-)");

explorer · 2012-01-17 12:49 @575

Lo que hace autodie es un die() en todas las operaciones que tengan que ver con archivos y directorios (y algunas más. Consulta la página de manual para ver la lista completa).

Entonces, eso significa que podemos quitar todos los "or die ..." de nuestros programas.

La línea que indicas

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

open (LOGfile,">$Logfile") or die "cannot open $Logfile!";

yo la escribiría como:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

open my $LOGFILE, '>', $Logfile;

más en detalle:

Usamos una variable $LOGFILE, para guardar el controlador de archivo. Así es más fácil pasarlo a subrutinas. Y escrito en mayúsculas indica que, en cierta manera, es una constante a lo largo del programa
El open() está escrito de forma moderna: con tres argumentos, siendo el segundo la forma de apertura del archivo
No hay die(), porque ya puse 'use autodie;' al principio del programa

El perltidy no pone las caritas sonrientes. Es el software que renderiza estas páginas de foros. Cada vez que encuentra un texto que coincide con una cara sonriente, lo cambia por la imagen correspondiente.

Si no quieres que haga eso, a la hora de editar los mensajes, fíjate que hay una serie de opciones debajo de la caja de texto. Una de ellas se llama "Deshabilitar emoticonos".

pablgonz · 2012-01-17 13:32 @605

Gracias por la explicación, eliminé todos los "or die" y cargué autodie, pero, ahora me arroja el siguiente error

Syntax: [ Download ] [ Hide ]

Can't close filehandle 'FILE': 'Bad file descriptor' at tikz3pdf line 195

si utilizo la opción force y

Syntax: [ Download ] [ Hide ]

Can't close filehandle 'FILE': 'Bad file descriptor' at tikz3pdf line 212

si utilizo -all, ¿por qué pasa esto ahora?, antes no me daba problemas y lo extraño es que si comento autodie funciona, ¿qué está mal escrito?

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' && eval 'exec perl -S $0 $argv:q'
  if 0;
 
use strict;                             # to be sure, that all is safe ... <img src="http://perlenespanol.com/foro/images/smilies/icon_smile.gif" alt=":-)" title="Smile" />
 
# $Id: tikz2pdf.pl 2012-01-17 08:41:35Z Pablo $
# v. 0.1                                Extract tikzpicture, based on pst2pdf by Herbert Voss
# 2012-01-17      (c) Pablo González Luengo 
# Thanks to Giuseppe Matarazzo
# Couple to have the complete operation of the script, you need some software (Linux and Windows)
# xpdf (needed to create EPS / PPM)
# gnuplot (not necessary if not called from TiKZ)
# pdftk (not necessary with the-pdftk)
# ImageMagick (required if you want to create JPG / PNG or other format)
#       
use File::Path;  
use File::Copy;  
use File::Basename;     
use IO::File;       
use Getopt::Long;       
use autodie;
#----------------------- User part begin ------------------------
my $imageDir = "images";        
my $Iext = ".pdf";                      # leave empty, if not a special one
my $tempDir = ".";                      # temporary directory
my $verbose = 1;                          # 0 or 1, logfile  
my $clear = 0;                            # 0 or 1, clears all temporary files
my $DPI = 75;                               # very low value for the png's
my $Iscale = 1;                           # for \includegraphics
my $noImages = 0;                         # 1->create no images
my $force = 0;                  # 1->force create images
my $ppm = 0;                            # 1->create .ppm files
my $norun = 0;                          # 1->runs pdflatex
my $miktex = 0;                         # 1->runs pdlatex for miktex
my $eps = 0;                            # 1->create .eps files
my $ifiles = 0;                         # 1->create image files .tex 
my $all = 0;                            # 1->create all images and files for type
my $nopdftk = 0;                                # 1->create all images and files for type in force mode
#----------------------- User part end ---------------------------
#----------------------- program identification, options and help
my $program = "tikz2pdf";
my $ident = '$Id: tikz2pdf.pl 2012-01-17 pablo $';
my $copyright = <<END_COPYRIGHT ;
Copyright 2012-01-17 (c) Pablo Gonzalez L <pablgonz\@yahoo.com> 
END_COPYRIGHT
my $licensetxt= <<END_LICENSE ;
    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.
 
    This program is distributed in the hope that it will be useful, but 
    WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU 
    General Public License for more details.
 
    You should have received a copy of the GNU General Public License
    along with this program; if not, write to the Free Software
    Foundation, Inc., 59 Temple Place, Suite 330, Boston, 
    MA  02111-1307  USA
END_LICENSE
my $title = "$program $ident\n";
my $usage = <<"END_OF_USAGE";
${title}Usage: $program <texfile.tex>  [Options]
tikz2pdf run a TeX source, and extract all TiKZ-related part as 
        single images  (pdf or eps or ppm, default pdf) 
        and then runs pdflatex. See tikz2pdf documentation for more info
Options:
  --help          - display this help and exit
  --version       - display version information and exit
  --license       - display license information and exit
  --imageDir      - the dir for the created images (default images) 
  --DPI=<int>     - the dots per inch for a cretaed ppm files (default 75)
  --ppm           - create .ppm files
  --eps           - create .eps files   
  --Iscale=<real> - the value for [scale=] in \\includegraphics 
  --noImages      - generate files without compile (need -norun)
  --verbose       - creates long log
  --clear         - delete all temp files
  --norun         - create file-pdf.tex, but, no run pdflatex
  --miktex        - for miktex users -enable-write18
  --ifiles        - create images files (.tex) for all TiKZ enviroment  
  --force         - create images whitout pdftk.
  --all           - create all image type and images.tex        
  --nopdftk          - create all image type and images.tex in force mode
Examples:
* $program test.tex --all
* produce test-pdf.tex and ppm,eps,tex and pdf for TiKZ-enviroment in image dir
END_OF_USAGE
#
my $result=GetOptions (
                        "help",
                        "version",
                        "license",
                        "DPI=i"      => \$DPI,          # numeric
                        "Iscale=f"   => \$Iscale,       # real
                        "imageDir=s" => \$imageDir,     # string
                        "tempDir=s"  => \$tempDir,      # string
                        "Iext=s"     => \$Iext,         # string
                        "clear"      => \$clear,        # flag
                        "noImages"   => \$noImages,     # flag
                        "force"      => \$force,        # flag
                        "ppm"        => \$ppm,         # flag
                        "norun"      => \$norun,       # flag
                        "miktex"     => \$miktex,      # flag
                        "eps"        => \$eps,          # flag
                        "ifiles"        => \$ifiles,            # flag
                        "all"        => \$all,          # flag
                        "nopdftk"        => \$nopdftk,          # flag
                        "verbose"    => \$verbose,
) or die $usage;
# help functions
sub errorUsage { die "Error: @_ (try --help for more information)\n"; }
# options for command line
if ($::opt_help) {
  print $usage;
  exit (0);
}
if ($::opt_version) {
  print $title;
  print $copyright;
  exit (0);
}
if ($::opt_license) {
  print $licensetxt;
  exit (0);
}
# open file 
my $InputFilename = "";
  @ARGV > 0 or errorUsage "Input filename missing";
  @ARGV < 2 or errorUsage "Unknown option or too many input files";
  $InputFilename = $ARGV[0];
# end open file
my @SuffixList = (".tex","",".ltx");            # possible extensions
my ($name,$path,$ext) = fileparse($ARGV[0],@SuffixList);
if ($ext eq "") { $ext = ".tex"; }                      # me need the extension as well
my $TeXfile = "$path$name$ext";
my $Logfile = "$tempDir/$name.plog";            # our own log file
open (LOGfile,">$Logfile") ;
LOG ("Parameters:"); 
LOG ("==> imageDir = $imageDir"); 
LOG ("==> Iext     = $Iext"); 
LOG ("==> DPI      = $DPI"); 
LOG ("==> Iscale   = $Iscale"); 
LOG ("==> tempDir  = $tempDir"); 
LOG ("==> verbose  = $verbose"); 
LOG ("==> clear    = $clear"); 
LOG ("==> noImages = $noImages"); 
LOG ("==> force    = $force"); 
LOG ("==> ppm      = $ppm"); 
LOG ("==> norun    = $norun"); 
LOG ("==> miktex   = $miktex");
LOG ("==> eps      = $eps");  
LOG ("==> ifiles   = $ifiles"); 
# General options
if ($ppm) {
  LOG ("Generate .ppm files ...");
  $ppm = 1;
}
if ($norun) {
  LOG ("no compile file-pdf.tex");
  $norun = 1;
}
if ($miktex) {
  LOG ("enable write 18 ...");
  $miktex = 1;
}
if ($eps) {
  LOG ("Generate .eps files ...");
  $eps = 1;
}
if ($ifiles) {
  LOG ("Generate .tex images files ...");
  $ifiles=1;
}
if ($all) {
  LOG ("Generate all images files ...");
   $ifiles=$eps = $ppm = $clear = 1;
}
if ($nopdftk) {
  LOG ("Forced generate all images files ...");
  $force=$ifiles=$eps = $ppm = $clear = 1;
}
# Internal counter
my $imgNo = 1;          
# force mode , compile separte files
if ($force) {
LOG ("Running on [$path][$name][$ext]"); 
open (FILE, "<$TeXfile") ;
LOG ("force generate images...");
if (-d $imageDir) { LOG ("$imageDir exists") }
else { mkdir("$imageDir", 0744);}
savePreamble($name);
runFile($name);
close FILE;                             
close LOGfile;
}
else{
LOG ("Running on [$path][$name][$ext]"); 
open (FILE, "<$TeXfile") ;      
if (!$noImages ) {
if (-d $imageDir) { LOG ("$imageDir exists") }
else { 
mkdir("$imageDir", 0744) ;
LOG ("Imagedir created"); }
LOG ("go to savePreamble ... "); 
runBurst($tempDir);
savePreamble($name);
runFile($name);
LOG ("done!\n go to runFile ..."); 
LOG ("done!"); 
close FILE;                                     
close LOGfile;
}
}
#------------ Create filename-pics.pdf, split and generate .ppm
sub runBurst{
if ($force){ print "Force mode";}
else{
# Append preview
my $entrada="$TeXfile";
my $salida ="$name-pics.tex";
open (ENTRADA,"<$entrada");
open (SALIDA,">$salida") ;
 print SALIDA "\\AtBeginDocument\{\n";
 print SALIDA "\\RequirePackage\[active,tightpage\]\{preview\}\n";
 print SALIDA "\\renewcommand\\PreviewBbAdjust\{-600pt -600pt 600pt 600pt\}\n";
 print SALIDA "\\PreviewEnvironment\{tikzpicture\}\}\n";
 while (my $linea=<ENTRADA>)
  {
        print SALIDA $linea;
  }
close (ENTRADA);
close (SALIDA);
# close preview
 
if ($miktex){system("pdflatex -enable-write18 -interaction=batchmode $name");}
else{
system("pdflatex -shell-escape -interaction=batchmode $tempDir/$name-pics.tex");
system("pdfcrop $tempDir/$name-pics.pdf $tempDir/$name-pics.pdf");
system("pdftk $name-pics.pdf burst output $imageDir/$name-tikz-\%1d.pdf");
}
if ($ppm){
system("pdftoppm -r  $DPI $name-pics.pdf $imageDir/$name-tikz");
}
}
}
#------------ end pdftk burst
LOG ("runpdfTeX ... "); 
runpdfTeX("$path$name",$name);
LOG ("all finished ... <img src="http://perlenespanol.com/foro/images/smilies/icon_smile.gif" alt=":-)" title="Smile" />"); 
if ( $clear ) {
unlink "$path$name.txt";
unlink "$path$name.log";
unlink "$path$name.plog";
unlink "$path$name.preamble";
unlink "$path$name.pdf";
 }
# Save preable
sub savePreamble {                              
  my $filename = pop;
  LOG ("----- Start Preamble -----"); 
  open (FILEp, ">$tempDir/$filename.preamble") ;
  while (<FILE>) {              
    my $i = index($_,"begin{document}");
    if ($i > 0) { 
      if ($i > 1) { print FILEp substr($_,0,--$i); }    
                        if ($force) {
                        print FILEp "\\pagestyle{empty}\n";
                        }
      close(FILEp); 
      LOG ("----- Close Preamble ------"); 
      return; 
    } else { 
      print FILEp "$_"; 
      LOG ("$_"); 
    }
  }
  close(FILEp);
  if ( $verbose ) { LOG("<-----Preamble<----"); }
  return;
}
 
sub searchTiKZ {                                        
  my @TikZ = ();                                        
  my @TIKZtotal = ();                   
  my $depth = -1;                                       
  my $type = -1;                                        
  my $EndDocument = 0;          
  my $iVerb = 0;                                        
  while (<FILE>) {                              
    if (!$EndDocument) {
    chomp;                                                        
    my $line = $_;                              
    if ( !$iVerb ) { 
      $iVerb = ((index($line,"begin{verbatim}") > 0) or (index($line,"begin{lstlisting}") > 0)); 
    }           
    if ( !$iVerb ) {
      my $iTIKZ = index($line,"begin{tikzpicture}");
       if ( $type < 0 ) {                       
      if ($iTIKZ > 0) {                         
          $type = 2;                    
          $line = substr($line,$iTIKZ-1);       
          LOG("TiKZ-line: $line");
        }                               
       }
 
if ($type > 0) {
        LOG ("searchTiKZ: set \$type=$type"); 
        $iTIKZ = index($line,"end{tikzpicture}");       
        if ($iTIKZ > 0) {               
          LOG ("searchTiKZ: $line"); 
                                $type = -1;
          push @TikZ,substr($line,0,$iTIKZ+16); 
          LOG ("searchTiKZ: set \$type=$type"); 
          push @TIKZtotal,[@TikZ];                      
          LOG ("---->TiKZ---->\n@TikZ\n<----TikZ<----"); 
          @TikZ =();                    
        } else { push @TikZ,$line; }    # add line
      }
      my $i = index($line,"end{document}");
      if ($i > 0) { $EndDocument++; LOG("EndDocument in searchTiKZ"); }
    }                   
    if (( index($line,"end{verbatim}") > 0 ) or ( index($line,"end{lstlisting}") > 0 )) { $iVerb = 0; }
  }}
  if ( $verbose ) { 
    LOG("---->TIKZtotal---->");
    for my $aref ( @TIKZtotal ) { 
      my @a = @$aref;
      my $i = 1;
                        foreach ( @a ) { LOG ($a[$i]); $i=$i+1; }
    }
    LOG ("<----TIKZtotal<----"); 
  }
  close(FILE);
  return @TIKZtotal;    
}
# Creating ifile.tex and eps, pdf and ppm for images
if ($force){
sub runFORCE{
my $filename = pop;
if ($miktex){system("pdflatex -enable-write18 -interaction=batchmode $tempDir/$filename-tikz");}
else{system("pdflatex -interaction=batchmode $tempDir/$filename-tikz");}
if ($ifiles){
copy("$filename-tikz.tex", "$imageDir/$filename-tikz-$imgNo.tex") ;
}
system("pdfcrop $tempDir/$filename-tikz.pdf $imageDir/$filename-tikz-$imgNo.pdf");  
if ($eps) {system("pdftops -level3 -eps $imageDir/$filename-tikz-$imgNo.pdf $imageDir/$filename-tikz-$imgNo.eps");}
if ($ppm) {system("pdftoppm -r $DPI $imageDir/$filename-tikz-$imgNo.pdf $imageDir/$filename-tikz-$imgNo");}
    $imgNo=$imgNo+1;
        }
}
else{
# Creating ifiles.tex and .eps for images
sub runTeX{
my $filename = pop;
if ($eps){
                        system("pdftops -level3 -eps $imageDir/$filename-$imgNo.pdf $imageDir/$filename-$imgNo.eps");
                   }
if ($ifiles){
copy("$filename.tex", "$imageDir/$filename-$imgNo.tex");
}
$imgNo=$imgNo+1;
}
}
sub runFile {
  my $filename = pop;
  my @TIKZarray = searchTiKZ();
  if ( $verbose ) { 
    LOG("---->TIKZarray---->");
    for my $aref ( @TIKZarray ) { 
      my @a = @$aref;
      my $i = 1;
      foreach ( @a ) { print LOG $a[$i]."\n"; $i=$i+1; }
    }
    LOG("<----TIKZarray<----"); 
    my $no = @TIKZarray;
    LOG("TiKZ: ".$no." TiKZ sequence(s)"); 
  }
  for my $aref ( @TIKZarray ) {
    my @TikZ = @$aref;
    open (FILEp,"<$tempDir/$filename.preamble") ;
    open (FILEsub,">$tempDir/$filename-tikz.tex") ;
    while (<FILEp>) {print FILEsub $_; }
                print FILEsub "\\begin{document}\n";
                if ( $verbose ) { LOG("\@TikZ: $_"); }
    foreach ( @TikZ ) { print FILEsub "$_\n"; }
    print FILEsub "\\end{document}";
    close (FILEsub);
    close (FILEp);
                if ($force) {
                runFORCE("$name");
                }
                else{
    runTeX("$tempDir/$name-tikz");
  }
}
}
# Renaming ppm need for correct name
my $dren = "$tempDir/$imageDir";
my $fichero = '';
my $ppmren = '';
my $renNo = 1;
if(opendir(DIR,$dren)){
foreach (readdir DIR){
       $fichero = $_;
                        if ( $fichero =~ /($name-tikz-)(\d+|\d+[-]\d+).ppm/) {
        my $renNo   = int($2);
        my $newname="$1$renNo.ppm";
        $ppmren = rename("$dren/$fichero","$dren/$newname");
        }
        }
}
closedir DIR;
# end renaming
# Replace files
sub runpdfTeX() {
  my ($name,$pdfname) = @_;
  open (PDF, ">$tempDir/$pdfname-pdf.tex") ;
  open (FILE, "<$name.tex") ;
        print PDF "\\RequirePackage{grfext}\n";
        print PDF "\\PrependGraphicsExtensions*{$Iext}\n";
        print PDF "\\RequirePackage{graphicx}\n";
        print PDF "\\graphicspath{{$imageDir/}}\n";
  my $ignore = 0;
  my $IMGno = 1;
  my $depth = -1;
  my $type = -1;
  my $EndDocument = 0;
  my $iVerb = 0;
  while (<FILE>) {
    if ( !$iVerb ) { 
      $iVerb = ((index($_,"begin{verbatim}") > 0) or (index($_,"begin{lstlisting}") > 0)); 
    } 
    if ( !$iVerb ) {
      my $i = index($_,"end{document}");
      if ($i > 0) { print PDF $_; $EndDocument++; LOG("EndDocument in runpdfTeX"); }
      if ( !$EndDocument ) {
        my $iTIKZ = index($_,"begin{tikzpicture}");
        if ( $iTIKZ > 0 ) { 
          $type = 2; 
          $ignore = 1; 
          if ($iTIKZ > 1) { print PDF substr($_,0,--$iTIKZ); }  
        print PDF "\\includegraphics[scale=$Iscale]{$pdfname-tikz-$IMGno}"; 
          $IMGno=$IMGno+1;
        }               
        if ( !$ignore ) { print PDF "$_"; }     
        if ( $type == 2 ) {     
                                        my $iTIKZ = index($_,"end{tikzpicture}");
          if ($iTIKZ > 0) {
            print PDF substr($_,$iTIKZ+16);             
            $ignore = 0; 
            $type=-1;
          }                                                                     
        }                               
      }
    } else { print PDF $_; } 
 if (( index($_,"end{verbatim}") > 0 ) or ( index($_,"end{lstlisting}") > 0 )) { $iVerb = 0; }
  } 
  close (FILE);
  close (PDF);
        
if ($norun){print "Done\n";}
else {
system("pdflatex -interaction=batchmode $pdfname-pdf"); 
if ($ppm){
print "If you need to create JPG/PNG type cd $imageDir and run\n";
print "mogrify -format jpg *.ppm\n";
}
print "Done\n";
}
if ( $clear ) {
        unlink "$name.txt";
        unlink "$tempDir/$name.aux";
        unlink "$tempDir/$pdfname-pdf.log";
        unlink "$tempDir/$pdfname-pdf.aux";
        unlink "$tempDir/$pdfname-pdf-autopp.txt";
        unlink "$tempDir/$pdfname-pics.pdf";
        unlink "$tempDir/doc_data.txt";
        unlink "$tempDir/$pdfname-tikz.tex";
        unlink "$tempDir/$name-tikz.pdf";
        unlink "$tempDir/$name-tikz.dvi";
        unlink "$tempDir/$name-tikz.ps";
        unlink "$tempDir/$name-tikz.aux";
        unlink "$tempDir/$name-tikz.log";
        unlink "$tempDir/$name.ps";
        unlink "$tempDir/$name.dvi";
        unlink "$tempDir/$name-pics.pdf";
        unlink "$tempDir/$name-pics.tex";
        unlink "$tempDir/$name-pics.aux";
        unlink "$tempDir/$name-pics.log";
 
        }
}
sub LOG() { 
  if ( $verbose ) { print LOGfile "@_\n"; } 
}
__END__

explorer · 2012-01-17 14:25 @642

autodie mata el programa cuando ocurre un fallo en alguna de las funciones relacionadas con archivos. Y close() es una de ellas. Al llegar allí, se encuentra con que estás pretendiendo cerrar un archivo, que ya ha sido cerrado antes (posiblemente en la línea 335 y/o 460.

Es justo lo que te comentaba antes, del peligro de usar

open FILE,...

Si llamas ahora a una subrutina, y haces otro

open FILE,...

...

close FILE;

cuando vuelves de la subrutina, e intentas cerrar el fichero original,

close FILE;

salta el error, porque ya hiciste el close FILE dentro de la subrutina.

Por eso, siempre hay que usar

open my $FILE, ...

De esa manera, estamos creando una variable que es local al sitio -contexto, bloque cerrado de llaves- en donde esté el open(). Y no le afectará lo que pase en otras partes del programa.

Fíjate por dónde... autodie te ha ayudado a descubrir un error de tu programa que estaba muy escondido. Quizás no afectaba a la ejecución del programa, pero... si quizás cambias el programa en el futuro... sí que podría salir a la luz.

pablgonz · 2012-01-17 14:48 @658

Muchas gracias por la pronta respuesta, explorer, haré los cambios necesarios y comento.

He buscado por la red alguna página o tutorial que diga «buenas practicas en perl», es decir, que comente detalles como estos, el uso de ||, or die() o la apertura de ficheros, si conoces alguno...

Supongo que deberé cambiar

Syntax: [ Download ] [ Hide ]

open (FILE, "<$TeXfile") ;
...
close FILE;

a

Syntax: [ Download ] [ Hide ]

open my $FILE, '<',"$TeXfile";
...
close my $FILE;

pero, cuando uso while(), por ejemplo

Syntax: [ Download ] [ Hide ]

while (<FILE>)

¿también debo hacer el cambio a my $FILE?

Saludos

explorer · 2012-01-17 15:27 @686

No, fíjate... el my() solo es necesario en el momento de crear la variable.

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

open my $FILE, '>', $fichero;
while (<$FILE>) {
    say $FILE $salida;
}
close   $FILE;

En cuanto a estilos de programación... lo recomendado es la lectura del libro Perl Best Practices (O'Reilly, Amazon) (guía rápida, presentación) o también usar los módulos de la rama Perl::Critic. Y en la documentación normal, puedes mirar, en tu propio ordenador, perldoc perlstyle (web) (traducido).

Lo mejor, para casos particulares, es consultar siempre la última documentación. En tu propio ordenador, ejecuta perldoc -f open (web). Aunque ahí solo hablan de open(), no dicen nada de autodie. Para ello, no queda más remedio que consultar la documentación de cada módulo.

pablgonz · 2012-01-17 16:31 @730

explorer escribió:

autodie mata el programa cuando ocurre un fallo en alguna de las funciones relacionadas con archivos. Y close() es una de ellas. Al llegar allí, se encuentra con que estás pretendiendo cerrar un archivo, que ya ha sido cerrado antes (posiblemente en la línea 335 y/o 460.

Justo lo que pensaste: cambié las formas de abrir los archivos, pero no puedo dar con la línea que abre FILE, el cual estoy cerrando en la 335... misma situación con la 460.

Con autodie me di cuenta que tenía un par de cosas demás (unos unlink() de sobra), pero ahora no puedo avanzar por el error de la línea 335.

En fin, seguiré depurando a ver qué puedo lograr.

Gracias por la información de los textos, veré si tienen alguno en la biblioteca de la universidad.
Saludos

explorer · 2012-01-17 18:40 @819

Esto es lo que pasa:

haces los open() en las líneas 188 y 199
después, ejecutas RunFile(), en las líneas 193 y 208
RunFile, en la línea 366, lo primero que hace es llamar a searchTiKZ, en la 368
searchTiKZ, en la línea 284, hace un bucle while(<FILE>) en la 291, y el close de la 335
regresa el control a las líneas anteriores, y aparecen nuevos close en las líneas 195 y 221, y ahí sale el fallo, pues ya estaban cerrados en la 335.

En cuanto a la otra parte, la del open() de la 419, está bien, porque haces también el while() (línea 431) y el close() (línea 460), en la misma subrutina.

pablgonz · 2012-01-17 23:21 @015

Tienes toda la razón, he solucionado casi todo los problemas de open() y close(). En realidad tuve que agregar un par de open() (si estaba cerrado el archivo, era imposible cerrarlo de nuevo), te adjunto el código (me falta arreglar lo de clear, lo edito mañana), con esto solucioné los mensajes de error que me daba autodie (es más estricto que use strict; )
EDITADO (agregadas las correcciones).

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' && eval 'exec perl -S $0 $argv:q'
    if 0;
 
use strict;                            # to be sure, that all is safe ... :-)
 
# $Id: tikz2pdf.pl 2012-01-17 08:41:35Z Pablo $
# v. 0.1   Extract tikzpicture, based on pst2pdf by Herbert Voss
# 2012-01-17      (c) Pablo González Luengo
# Thanks to Giuseppe Matarazzo
# Couple to have the complete operation of the script, you need some software (Linux and Windows)
# xpdf (needed to create EPS / PPM)
# gnuplot (not necessary if not called from TiKZ)
# pdftk (not necessary with the-pdftk)
# ImageMagick (required if you want to create JPG / PNG or other format)
#
use File::Path;
use File::Copy;
use File::Basename;
use IO::File;
use Getopt::Long;
use autodie;
 
#----------------------- User part begin ------------------------
my $imageDir = "images";
my $Iext     = ".pdf";                 # leave empty, if not a special one
my $tempDir  = ".";                    # temporary directory
my $verbose  = 1;                      # 0 or 1, logfile
my $clear    = 0;                      # 0 or 1, clears all temporary files
my $DPI      = 75;                     # very low value for the png's
my $Iscale   = 1;                      # for \includegraphics
my $noImages = 0;                      # 1->create no images
my $force    = 0;                      # 1->force create images
my $ppm      = 0;                      # 1->create .ppm files
my $norun    = 0;                      # 1->runs pdflatex
my $miktex   = 0;                      # 1->runs pdlatex for miktex
my $eps      = 0;                      # 1->create .eps files
my $ifiles   = 0;                      # 1->create image files .tex
my $all      = 0;                      # 1->create all images and files for type
my $nopdftk  = 0;                      # 1->create all images and files for type in force mode
 
#----------------------- User part end ---------------------------
#----------------------- program identification, options and help
my $program   = "tikz2pdf";
my $ident     = '$Id: tikz2pdf.pl 2012-01-17 pablo $';
my $copyright = <<END_COPYRIGHT ;
Copyright 2012-01-17 (c) Pablo Gonzalez L <pablgonz\@yahoo.com>
END_COPYRIGHT
my $licensetxt = <<END_LICENSE ;
    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.
 
    This program is distributed in the hope that it will be useful, but
    WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
    General Public License for more details.
 
    You should have received a copy of the GNU General Public License
    along with this program; if not, write to the Free Software
    Foundation, Inc., 59 Temple Place, Suite 330, Boston,
    MA  02111-1307  USA
END_LICENSE
my $title = "$program $ident\n";
my $usage = <<"END_OF_USAGE";
${title}Usage: $program <texfile.tex>  [Options]
tikz2pdf run a TeX source, and extract all TiKZ-related part as
        single images  (pdf or eps or ppm, default pdf)
        and then runs pdflatex. See tikz2pdf documentation for more info
Options:
  --help          - display this help and exit
  --version       - display version information and exit
  --license       - display license information and exit
  --imageDir      - the dir for the created images (default images)
  --DPI=<int>     - the dots per inch for a cretaed ppm files (default 75)
  --ppm           - create .ppm files
  --eps           - create .eps files  
  --Iscale=<real> - the value for [scale=] in \\includegraphics
  --noImages      - generate files without compile (need -norun)
  --verbose       - creates long log
  --clear         - delete all temp files
  --norun         - create file-pdf.tex, but, no run pdflatex
  --miktex        - for miktex users -enable-write18
  --ifiles        - create images files (.tex) for all TiKZ enviroment 
  --force         - create images whitout pdftk.
  --all           - create all image type and images.tex       
  --nopdftk       - create all image type and images.tex in force mode
Examples:
* $program test.tex --all
* produce test-pdf.tex and ppm,eps,tex and pdf for TiKZ-enviroment in image dir
END_OF_USAGE
 
#
my $result = GetOptions(
    "help",
    "version",
    "license",
    "DPI=i"      => \$DPI,             # numeric
    "Iscale=f"   => \$Iscale,          # real
    "imageDir=s" => \$imageDir,        # string
    "tempDir=s"  => \$tempDir,         # string
    "Iext=s"     => \$Iext,            # string
    "clear"      => \$clear,           # flag
    "noImages"   => \$noImages,        # flag
    "force"      => \$force,           # flag
    "ppm"        => \$ppm,             # flag
    "norun"      => \$norun,           # flag
    "miktex"     => \$miktex,          # flag
    "eps"        => \$eps,             # flag
    "ifiles"     => \$ifiles,          # flag
    "all"        => \$all,             # flag
    "nopdftk"    => \$nopdftk,         # flag
    "verbose"    => \$verbose,
) or die $usage;
 
# help functions
sub errorUsage { die "Error: @_ (try --help for more information)\n"; }
 
# options for command line
if ($::opt_help) {
    print $usage;
    exit(0);
}
if ($::opt_version) {
    print $title;
    print $copyright;
    exit(0);
}
if ($::opt_license) {
    print $licensetxt;
    exit(0);
}
 
# open file
my $InputFilename = "";
@ARGV > 0 or errorUsage "Input filename missing";
@ARGV < 2 or errorUsage "Unknown option or too many input files";
$InputFilename = $ARGV[0];
 
# end open file
my @SuffixList = ( ".tex", "", ".ltx" );    # possible extensions
my ( $name, $path, $ext ) = fileparse( $ARGV[0], @SuffixList );
if ( $ext eq "" ) { $ext = ".tex"; }   # me need the extension as well
my $TeXfile = "$path$name$ext";
my $Logfile = "$tempDir/$name.plog";   # our own log file
open( LOGfile, ">$Logfile" );
LOG("Parameters:");
LOG("==> imageDir = $imageDir");
LOG("==> Iext     = $Iext");
LOG("==> DPI      = $DPI");
LOG("==> Iscale   = $Iscale");
LOG("==> tempDir  = $tempDir");
LOG("==> verbose  = $verbose");
LOG("==> clear    = $clear");
LOG("==> noImages = $noImages");
LOG("==> force    = $force");
LOG("==> ppm      = $ppm");
LOG("==> norun    = $norun");
LOG("==> miktex   = $miktex");
LOG("==> eps      = $eps");
LOG("==> ifiles   = $ifiles");
 
# General options
if ($ppm) {
    LOG("Generate .ppm files ...");
    $ppm = 1;
}
if ($norun) {
    LOG("no compile file-pdf.tex");
    $norun = 1;
}
if ($miktex) {
    LOG("enable write 18 ...");
    $miktex = 1;
}
if ($eps) {
    LOG("Generate .eps files ...");
    $eps = 1;
}
if ($ifiles) {
    LOG("Generate .tex images files ...");
    $ifiles = 1;
}
if ($all) {
    LOG("Generate all images files ...");
    $ifiles = $eps = $ppm = $clear = 1;
}
if ($nopdftk) {
    LOG("Forced generate all images files ...");
    $force = $ifiles = $eps = $ppm = $clear = 1;
}
 
# Internal counter
my $imgNo = 1;
 
# force mode , compile separte files
if ($force) {
    LOG("Running on [$path][$name][$ext]");
    open my $FILE, '<', "$TeXfile";
    LOG("force generate images...");
    if   ( -d $imageDir ) { LOG("$imageDir exists") }
    else                  { mkdir $imageDir, 0744; }
    savePreamble($name);
    runFile($name);
    close $FILE;
    close LOGfile;
}
else {
    LOG("Running on [$path][$name][$ext]");
    open my $FILE, '<', "$TeXfile";
    if ( !$noImages ) {
        if ( -d $imageDir ) { LOG("$imageDir exists") }
        else {
            mkdir $imageDir, 0744;
            LOG("Imagedir created");
        }
        LOG("go to savePreamble ... ");
        runBurst($tempDir);
        savePreamble($name);
        runFile($name);
        LOG("done!\n go to runFile ...");
        LOG("done!");
        close LOGfile;
    }
                close $FILE;
}
 
#------------ Create filename-pics.pdf, split and generate .ppm
sub runBurst {
    if ($force) { print "Force mode"; }
    else {
        # Append preview
        my $entrada = "$TeXfile";
        my $salida  = "$name-pics.tex";
        open my $ENTRADA,'<', "$entrada";
        open my $SALIDA,'>',"$salida";
        print $SALIDA "\\AtBeginDocument\{\n";
        print $SALIDA "\\RequirePackage\[active,tightpage\]\{preview\}\n";
        print $SALIDA "\\renewcommand\\PreviewBbAdjust\{-600pt -600pt 600pt 600pt\}\n";
        print $SALIDA "\\PreviewEnvironment\{tikzpicture\}\}\n";
 
        while ( my $linea = <$ENTRADA> ) {
            print $SALIDA $linea;
        }
        close $ENTRADA;
        close $SALIDA;
 
        # close preview
 
        if ($miktex) { system("pdflatex -enable-write18 -interaction=batchmode $name"); }
        else {
            system("pdflatex -shell-escape -interaction=batchmode $tempDir/$name-pics.tex");
            system("pdfcrop $tempDir/$name-pics.pdf $tempDir/$name-pics.pdf");
            system("pdftk $name-pics.pdf burst output $imageDir/$name-tikz-\%1d.pdf");
        }
        if ($ppm) {
            system("pdftoppm -r  $DPI $name-pics.pdf $imageDir/$name-tikz");
        }
    }
}
 
#------------ end pdftk burst
LOG("runpdfTeX ... ");
runpdfTeX( "$path$name", $name );
LOG("all finished ... :-)");
 
# Save preable
sub savePreamble {
    my $filename = pop;
    LOG("----- Start Preamble -----");
    open my $FILEp, '>', "$tempDir/$filename.preamble";
    open my $FILE,  '<', "$name.tex";
    while (<$FILE>) {
        my $i = index( $_, "begin{document}" );
        if ( $i > 0 ) {
            if ( $i > 1 ) { print $FILEp substr( $_, 0, --$i ); }
            if ($force) {
                print $FILEp "\\pagestyle{empty}\n";
            }
            close $FILEp;
            LOG("----- Close Preamble ------");
            return;
        }
        else {
            print $FILEp "$_";
            LOG("$_");
        }
    }
 
    close $FILE;
    close $FILEp;
    if ($verbose) { LOG("<-----Preamble<----"); }
    return;
}
 
sub searchTiKZ {
    my @TikZ        = ();
    my @TIKZtotal   = ();
    my $depth       = -1;
    my $type        = -1;
    my $EndDocument = 0;
    my $iVerb       = 0;
    open my $FILE, '<', "$name.tex";
    while (<$FILE>) {
 
        if ( !$EndDocument ) {
            chomp;
            my $line = $_;
            if ( !$iVerb ) {
                $iVerb = ( ( index( $line, "begin{verbatim}" ) > 0 ) or ( index( $line, "begin{lstlisting}" ) > 0 ) );
            }
            if ( !$iVerb ) {
                my $iTIKZ = index( $line, "begin{tikzpicture}" );
                if ( $type < 0 ) {
                    if ( $iTIKZ > 0 ) {
                        $type = 2;
                        $line = substr( $line, $iTIKZ - 1 );
                        LOG("TiKZ-line: $line");
                    }
                }
 
                if ( $type > 0 ) {
                    LOG("searchTiKZ: set \$type=$type");
                    $iTIKZ = index( $line, "end{tikzpicture}" );
                    if ( $iTIKZ > 0 ) {
                        LOG("searchTiKZ: $line");
                        $type = -1;
                        push @TikZ, substr( $line, 0, $iTIKZ + 16 );
                        LOG("searchTiKZ: set \$type=$type");
                        push @TIKZtotal, [@TikZ];
                        LOG("---->TiKZ---->\n@TikZ\n<----TikZ<----");
                        @TikZ = ();
                    }
                    else { push @TikZ, $line; }    # add line
                }
                my $i = index( $line, "end{document}" );
                if ( $i > 0 ) { $EndDocument++; LOG("EndDocument in searchTiKZ"); }
            }
            if ( ( index( $line, "end{verbatim}" ) > 0 ) or ( index( $line, "end{lstlisting}" ) > 0 ) ) { $iVerb = 0; }
        }
    }
    if ($verbose) {
        LOG("---->TIKZtotal---->");
        for my $aref (@TIKZtotal) {
            my @a = @$aref;
            my $i = 1;
            foreach (@a) { LOG( $a[$i] ); $i = $i + 1; }
        }
        LOG("<----TIKZtotal<----");
    }
    close $FILE;
    return @TIKZtotal;
}
 
# Creating ifile.tex and eps, pdf and ppm for images
if ($force) {
     sub runFORCE {
        my $filename = pop;
        if   ($miktex) { system("pdflatex -enable-write18 -interaction=batchmode $tempDir/$filename-tikz"); }
        else           { system("pdflatex -shell-escape -interaction=batchmode $tempDir/$filename-tikz"); }
        if ($ifiles) {
            copy( "$filename-tikz.tex", "$imageDir/$filename-tikz-$imgNo.tex" );
        }
        system("pdfcrop $tempDir/$filename-tikz.pdf $imageDir/$filename-tikz-$imgNo.pdf");
        if ($eps) {
            system("pdftops -level3 -eps $imageDir/$filename-tikz-$imgNo.pdf $imageDir/$filename-tikz-$imgNo.eps");
        }
        if ($ppm) { system("pdftoppm -r $DPI $imageDir/$filename-tikz-$imgNo.pdf $imageDir/$filename-tikz-$imgNo"); }
        $imgNo = $imgNo + 1;
    }
}
else {
 
    # Creating ifiles.tex and .eps for images
    sub runTeX {
        my $filename = pop;
        if ($eps) {
            system("pdftops -level3 -eps $imageDir/$filename-$imgNo.pdf $imageDir/$filename-$imgNo.eps");
        }
        if ($ifiles) {
            copy( "$filename.tex", "$imageDir/$filename-$imgNo.tex" );
        }
        $imgNo = $imgNo + 1;
    }
}
 
sub runFile {
    my $filename  = pop;
    my @TIKZarray = searchTiKZ();
    if ($verbose) {
        LOG("---->TIKZarray---->");
        for my $aref (@TIKZarray) {
            my @a = @$aref;
            my $i = 1;
            foreach (@a) { print LOG $a[$i] . "\n"; $i = $i + 1; }
        }
        LOG("<----TIKZarray<----");
        my $no = @TIKZarray;
        LOG( "TiKZ: " . $no . " TiKZ sequence(s)" );
    }
    for my $aref (@TIKZarray) {
        my @TikZ = @$aref;
        open my $FILEp,   '<', "$tempDir/$filename.preamble";
        open my $FILEsub, '>', "$tempDir/$filename-tikz.tex";
        while (<$FILEp>) { print $FILEsub $_; }
        print $FILEsub "\\begin{document}\n";
        if ($verbose) { LOG("\@TikZ: $_"); }
        foreach (@TikZ) { print $FILEsub "$_\n"; }
        print $FILEsub "\\end{document}";
        close $FILEsub;
        close $FILEp;
 
        if ($force) {
            runFORCE("$name");
        }
        else {
            runTeX("$tempDir/$name-tikz");
        }
    }
}
 
# Renaming ppm need for correct name
my $dren    = "$tempDir/$imageDir";
my $fichero = '';
my $ppmren  = '';
my $renNo   = 1;
if ( opendir( DIR, $dren ) ) {
    foreach ( readdir DIR ) {
        $fichero = $_;
        if ( $fichero =~ /($name-tikz-)(\d+|\d+[-]\d+).ppm/ ) {
            my $renNo   = int($2);
            my $newname = "$1$renNo.ppm";
            $ppmren = rename( "$dren/$fichero", "$dren/$newname" );
        }
    }
}
closedir DIR;
 
# Replace files
sub runpdfTeX() {
    my ( $name, $pdfname ) = @_;
    open my $PDF,  '>', "$tempDir/$pdfname-pdf.tex";
    open my $FILE, '<', "$name.tex";
    print $PDF "\\RequirePackage{grfext}\n";
    print $PDF "\\PrependGraphicsExtensions*{$Iext}\n";
    print $PDF "\\RequirePackage{graphicx}\n";
    print $PDF "\\graphicspath{{$imageDir/}}\n";
    my $ignore      = 0;
    my $IMGno       = 1;
    my $depth       = -1;
    my $type        = -1;
    my $EndDocument = 0;
    my $iVerb       = 0;
 
    while (<$FILE>) {
        if ( !$iVerb ) {
            $iVerb = ( ( index( $_, "begin{verbatim}" ) > 0 ) or ( index( $_, "begin{lstlisting}" ) > 0 ) );
        }
        if ( !$iVerb ) {
            my $i = index( $_, "end{document}" );
            if ( $i > 0 ) { print $PDF $_; $EndDocument++; LOG("EndDocument in runpdfTeX"); }
            if ( !$EndDocument ) {
                my $iTIKZ = index( $_, "begin{tikzpicture}" );
                if ( $iTIKZ > 0 ) {
                    $type   = 2;
                    $ignore = 1;
                    if ( $iTIKZ > 1 ) { print $PDF substr( $_, 0, --$iTIKZ ); }
                    print $PDF "\\includegraphics[scale=$Iscale]{$pdfname-tikz-$IMGno}";
                    $IMGno = $IMGno + 1;
                }
                if ( !$ignore ) { print $PDF "$_"; }
                if ( $type == 2 ) {
                    my $iTIKZ = index( $_, "end{tikzpicture}" );
                    if ( $iTIKZ > 0 ) {
                        print $PDF substr( $_, $iTIKZ + 16 );
                        $ignore = 0;
                        $type   = -1;
                    }
                }
            }
        }
        else { print $PDF $_; }
        if ( ( index( $_, "end{verbatim}" ) > 0 ) or ( index( $_, "end{lstlisting}" ) > 0 ) ) { $iVerb = 0; }
    }
    close $FILE;
    close $PDF;
 
    if ($norun) { print "Done\n"; }
    else {
        system("pdflatex -interaction=batchmode $pdfname-pdf");
        if ($ppm) {
            print "If you need to create JPG/PNG type cd $imageDir and run\n";
            print "mogrify -format jpg *.ppm\n";
        }
        print "Done\n";
    }
    if ($clear) {
        if ($force) {
            unlink "$tempDir/$name-tikz.pdf";
            unlink "$tempDir/$name-tikz.aux";
            unlink "$tempDir/$name-tikz.log";
            unlink "$tempDir/$name-tikz.tex";
                                                unlink "$tempDir/$name.plog";
                                                unlink "$tempDir/$name.preamble";
                                                unlink "$tempDir/$name-pdf.aux";
                                                unlink "$tempDir/$name-pdf.log";
                                                
        }
        else {
                                                unlink "$tempDir/$name.plog";
                                                unlink "$tempDir/$name.preamble";
                                                unlink "$tempDir/$name-pdf.aux";
                                                unlink "$tempDir/$name-pdf.log";
            unlink "$tempDir/doc_data.txt";
            unlink "$tempDir/$name-pics.pdf";
            unlink "$tempDir/$name-pics.tex";
            unlink "$tempDir/$name-pics.aux";
            unlink "$tempDir/$name-pics.log";
                                                unlink "$tempDir/$name-tikz.tex";
 
        }
    }
}
 
sub LOG() {
    if ($verbose) { print LOGfile "@_\n"; }
}
__END__

explorer · 2012-01-18 06:57 @331

Formateando el código con Perltidy, queda claro que el close() de la línea 223 debería estar después de la 225.

pablgonz · 2012-01-18 15:37 @692

Cambie la linea que me indicaste y edite el código que estaba más arriba (ahora usando Perltidy

), agregue los unlink que necesitaba y modifique un par de cosas que me faltaban, ¿alguna sugerencia respecto al código? (errores, etc.)

Publicidad

Socializa