Foro - Perl en Español

por **pablgonz** » 2010-12-14 17:05 @753

Hola, hace un tiempo me uní a este foro para solucionar un pequeño problema con un script que uso en TeX. Ahora tengo otro problema, deseo añadir la opción -h al script pst2pdf, es decir, comentar la línea 363 y con Getopt::Long; y Pod::Usage; crear la ayuda de dicho script, pero, todos mis intentos han fracasado, el script solo me dice que tengo un error en la línea 77 (arroja Unknow option -h); además, me crea el fichero -h-pdf.tex. O -loquesea-pdf.tex.
Lo he intentado de varias maneras, pero el script es un tanto complejo para mi, logro crear la ayuda en otros ficheros y script pequeños, pero no en éste.
Agradezco de antemano por su ayuda.

Sintáxis: [ Descargar ] [ Ocultar ]

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 ... :-)
 
# v. 0.10                               simplify the use of PSTricks with pdf
# 2010-01-04    (c) Herbert Voss <[email protected]> 
# $Id: pst2pdf.pl 239 2010-01-01 17:23:13Z herbert $
# Thanks to Pablo Gonzales
#
# 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
#
use File::Path;                         # creating/removing dirs
use File::Copy;                         # copying files
use File::Basename;                     # scan argument
use IO::File;                           # simple IO operation
use Getopt::Long;                       # read parameter
 
#----------------------- User part begin ------------------------
my $imageDir = "images";                # where to save the images
my @imageType = ("eps","pdf");          # all image types
push (@imageType, "png") if $^O ne 'MSWin32';
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
#----------------------- User part end ---------------------------
 
@ARGV == 0 && die "file name expected!\n";
 
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!";
 
my $result = GetOptions ("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
                         "verbose"    => \$verbose);    # flag
 
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"); 
 
my $imgNo = 0;                          # internal image counter
my $pstExaLoaded = 0;                   # Document loads pst-exa
 
LOG ("Running on [$path][$name][$ext]"); 
open (FILE, "<$TeXfile") or die "cannot open source file $TeXfile!";    # the source
if ( !$noImages ) {
  if (-d $imageDir) { LOG ("$imageDir exists") }
  else { mkdir("$imageDir", 0744) || die "cannot mkdir $imageDir: $!";
    LOG ("Imagedir created"); }
 
  LOG ("go to savePreamble ... "); 
  savePreamble($name);
  LOG ("done!\n go to runFile ..."); 
  runFile($name);
  LOG ("done!"); 
  close FILE;                                           # close source file
}# !noImages
 
 
LOG ("runpdfTeX ... "); 
runpdfTeX("$path$name",$name);
LOG ("all finished ... :-)"); 
close LOGfile;
if ( $clear ) {
  unlink "$path$name.aux";
  unlink "$path$name.log";
  unlink "$path$name.preamble";
  unlink "$path$name-tmp.aux";
  unlink "$path$name-tmp.dvi";
  unlink "$path$name-tmp.log";
  unlink "$path$name-tmp.pdf";
  unlink "$path$name-tmp.ps";
  unlink "$path$name-tmp.tex";
}
 
sub savePreamble {                      # create a preamble file
# if we have a \input command inside the preamble, it doesn't hurt, we need
# it anyway for the postscript files and the pdf one.
  my $filename = pop;                   # get the file name
  LOG ("----- Start Preamble -----"); 
  open (FILEp, ">$tempDir/$filename.preamble") 
    or die "cannot open preamble file $tempDir/$filename.preamble!";
  while (<FILE>) {                      # read all until \begin{document}
    $pstExaLoaded = index($_,"usepackage{pst-exa}"); 
    my $i = index($_,"begin{document}");
    if ($i > 0) { 
      if ($i > 1) { print FILEp substr($_,0,--$i); }    # write all until \begin{document}
      print FILEp "\n\\usepackage{pst-exa}\n";
      close(FILEp);                                     # close preamble
      LOG ("----- Close Preamble ------"); 
      return; 
    } else { 
      print FILEp "$_";                                 # write into preamble
      LOG ("$_"); 
    }
  }
  close(FILEp);
  if ( $verbose ) { LOG("<-----Preamble<----"); }
  return;
}
 
sub searchPS {                                  # search the PostScript parts
  my @PS = ();                                  # single PS sequence
  my @PStotal = ();                             # all PS sequences as list of arrays
  my $depth = -1;                               # counts nested macros
  my $type = -1;                                # -1-> none; 1->PST; 2->PS; 
  my $EndDocument = 0;                          # ignore all after \end{document}
  my $iVerb = 0;                                # test for verbatim or lstlisting environment, must be ignored
  while (<FILE>) {                              # scan the input file
    if (!$EndDocument) {
    chomp;                                      # delete EOL character
    my $line = $_;                              # save line
    if ( !$iVerb ) { 
      $iVerb = ((index($line,"begin{verbatim}") > 0) or (index($line,"begin{lstlisting}") > 0)); 
    }                                           # do nothing until \end{verbatim}
    if ( !$iVerb ) {
      my $iPS = index($line,"begin{postscript}");
      my $iPST = index($line,"begin{pspicture*}");
      if ($iPST < 0) { $iPST = index($line,"begin{pspicture}"); }       # alternative 
      if ($iPST < 0) { $iPST = index($line,"pspicture"); }      # alternative \pspicture...
      if (($iPS > 0) && ( $type == 1 )){ print "postscript environment must be of outer level!\n"; exit 1; }
      if ( $type < 0 ) {                        # no active environment
        if ($iPS > 0) {                         # we have \begin{postscript}
          $type = 2;                    
          $line = substr($line,$iPS-1);         # add rest of the line
          LOG("PS-Zeile: $line");
        }                               
        elsif ( $iPST > 0 ) {                   # we have \begin{pspicture} or \pspicture
          $type = 1; 
          $depth++;  
          $line = substr($line,$iPST-1);        # add all unitl pspicture
          LOG("PST-Zeile: $line");
        }
      }
#       we have now \begin{pspicture} or \begin{postscript}
      if ($type > 0) {                          # start Scan, we have an environment
        LOG ("searchPS: set \$type=$type"); 
        $iPST = index($line,"end{pspicture*}");
        if ($iPST < 0) { $iPST = index($line,"end{pspicture}"); }       # alternative
        if ($iPST < 0) { $iPST = index($line,"endpspicture"); } # alternative \endpspicture...
        $iPS = index($line,"end{postscript}");  
        if ($iPST > 0) {                        # test, we can have postscript and pspicture in one line
          if ( $type < 2) {                     # found end of pspicture environment 
            LOG ("searchPS: $line"); 
            $depth--; 
            if ($depth < 0) { 
              $type = -1; 
              if (index($line,"endpspicture") > 0)              # add line, depends to type
                   { push @PS,substr($line,0,$iPST+12); }       # \endpspicture
              elsif (index($line,"pspicture*") > 0)
                      { push @PS,substr($line,0,$iPST+15); }    # \end{pspicture} 
              else { push @PS,substr($line,0,$iPST+14); }       # \end{pspicture} 
              LOG ("searchPS: set \$type=$type"); 
              push @PStotal,[@PS];      # add PS sequence
              LOG ("---->PS---->\n@PS\n<----PS<----"); 
              @PS = ();                 # start new PS sequence
            }                           # no pspicture env left
          } else { push @PS,$line; }    # pspicture inside postscript
        } elsif ($iPS > 0) {            # must be type=1 -> stop Scan
          LOG ("searchPS: $line"); 
          $type = -1;
          push @PS,substr($line,0,$iPS+15);# add line
          LOG ("searchPS: set \$type=$type"); 
          push @PStotal,[@PS];          # add PS sequence
          LOG ("---->PS---->\n@PS\n<----PS<----"); 
          @PS = ();                     # start new PS sequence
        } else { push @PS,$line; }              # add line
      }
      my $i = index($line,"end{document}");
      if ($i > 0) { $EndDocument++; LOG("EndDocument in searchPS"); }
    } # if ( $iVerb )
    if (( index($line,"end{verbatim}") > 0 ) or ( index($line,"end{lstlisting}") > 0 )) { $iVerb = 0; }
  }}
  if ( $verbose ) { 
    LOG("---->PStotal---->");
    for my $aref ( @PStotal ) { 
      my @a = @$aref;
      my $i = 0;
      foreach ( @a ) { LOG ($a[$i]); $i++; }
    }
    LOG ("<----PStotal<----"); 
  }
  close(FILE);
  return @PStotal;                      # return all PS sequences
}
 
sub runTeX {
  my $filename = pop;
  system("latex $filename"); # or die "Error in the LaTeX run from file $filename!";
  system("dvips $filename"); # or die "Error in the dvips run from file $filename!";
  system("ps2pdf $filename.ps");# or die "Error in the ps2pdf run from file $filename!";
  copy("$filename.tex", "$imageDir/$filename-$imgNo.tex") or die "Cannot copy Source file!";;
  for my $Itype ( @imageType ) {
    if ($Itype eq "pdf") { system("pdfcrop $filename.pdf $imageDir/$filename-$imgNo.pdf");  }
    if ($Itype eq "png") { 
      system("pdftoppm -f 1 -l 1 -r $DPI $imageDir/$filename-$imgNo.pdf $imageDir/"); 
      system("convert $imageDir/-1.ppm  $imageDir/$filename-$imgNo.png"); 
      system("rm $imageDir/-1.ppm"); 
    }
    if ($Itype eq "eps") { system("pdftops -f 1 -l 1 -eps $imageDir/$filename-$imgNo.pdf $imageDir/$filename-$imgNo.eps"); }
  }
  $imgNo++;
}
 
sub runFile {
  my $filename = pop;
  my @PSarray = searchPS();
  if ( $verbose ) { 
    LOG("---->PSarray---->");
    for my $aref ( @PSarray ) { 
      my @a = @$aref;
      my $i = 0;
      foreach ( @a ) { print LOG $a[$i]."\n"; $i++; }
    }
    LOG("<----PSarray<----"); 
    my $no = @PSarray;
    LOG("PS: ".$no." PS sequence(s)"); 
  }
  for my $aref ( @PSarray ) {
    my @PS = @$aref;
    open (FILEp, "<$tempDir/$filename.preamble") or die "cannot open $tempDir/$filename.preamble!";
    open (FILEsub, ">$tempDir/$filename-tmp.tex") or die "cannot open $tempDir/$filename-tmp.tex!";
#    print FILEsub "\\RequirePackage{listings}\n";
    while (<FILEp>) { print FILEsub $_; }
    print FILEsub "\\pagestyle{empty}\n";
    print FILEsub "\\newenvironment{postscript}{}{}\n";
    print FILEsub "\\providecommand\\IncludeGraphics[2][]{}\n";
    print FILEsub "\\begin{document}\n";
    if ( $verbose ) { LOG("\@PS: $_"); }
    foreach ( @PS ) { print FILEsub "$_\n"; }
    print FILEsub "\\end{document}\n";
    close (FILEsub);
    close (FILEp);
    runTeX("$tempDir/$filename-tmp");
  }
}
 
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{graphicx}\n";
#  if ($pstExaLoaded < 1) {
#    print PDF "\\AtBeginDocument{\\let\\IncludeGraphics\\includegraphics}\n"; }
#  print PDF "\\setkeys{Gin}{scale=0.25}\n";
#  print PDF "\\providecommand\\psset[1]{}\n";
  print PDF "\\graphicspath{{$imageDir/}}\n"; #uncomment
  my $ignore = 0;
  my $IMGno = 0;
  my $depth = -1;
  my $type = -1;
  my $EndDocument = 0;                  # ignore all after \end{document}
  my $iVerb = 0;
  while (<FILE>) {                      # scan the input file
    if ( !$iVerb ) { 
      $iVerb = ((index($_,"begin{verbatim}") > 0) or (index($_,"begin{lstlisting}") > 0)); 
    } # do nothing until \end{verbatim}|| \end{lstlisting}
    if ( !$iVerb ) {
      my $i = index($_,"end{document}");
      if ($i > 0) { print PDF $_; $EndDocument++; LOG("EndDocument in runpdfTeX"); }
      if ( !$EndDocument ) {
        my $iPS = index($_,"begin{postscript}");
        if ( $iPS > 0 ) { 
          $type = 2; 
          $ignore = 1; 
          if ($iPS > 1) { print PDF substr($_,0,--$iPS); }      # add preceeding text
         print PDF "\\IncludeGraphics[scale=$Iscale]{$pdfname-tmp-$IMGno$Iext}"; #change name x pdfname
          $IMGno++;
        }               # postscript env
        if ( $type < 2 ) {
          my $iPST = index($_,"begin{pspicture*}");
          if ($iPST < 0) { $iPST = index($_,"begin{pspicture}"); }      # alternative ...
          if ($iPST < 0) { $iPST = index($_,"\\pspicture"); }   # alternative \endpspicture...
          if ( $iPST >= 0 ) {                           # start Scan
            $ignore = 1;
            $type = 1; 
            $depth++;                                   # pspicture env
            LOG("Increase depth: $depth");
            if ( $depth == 0 ) {
              if ($iPST > 1) { print PDF substr($_,0,--$iPST); }# add preceeding text
         #     print PDF "\\IncludeGraphics[scale=$Iscale]{$imageDir/$pdfname-tmp-$IMGno$Iext}"; #change name x pdfname
              print PDF "\\IncludeGraphics[scale=$Iscale]{$pdfname-tmp-$IMGno$Iext}";   # use \graphicspath
              $IMGno++;
              LOG("Increase Image counter: $IMGno");
            }
          }
        }
        if ( !$ignore ) { print PDF "$_"; }                     # default line
        if ( $type == 2 ) {                                     # postscript env
          my $iPS = index($_,"end{postscript}");
          if ($iPS > 0) {
            print PDF substr($_,$iPS+15);                       # rest of line
            $ignore = 0; 
            $type=-1;
          }                                                     # end Scan
        } elsif ( $type == 1 ) {                                # pspicture env
          my $iPST = index($_,"end{pspicture*}");
          if ($iPST < 0) { $iPST = index($_,"end{pspicture}"); }# alternative ...
          if ($iPST < 0) { $iPST = index($_,"endpspicture"); }  # alternative \endpspicture...
          if ($iPST > 0) {                                      # end Scan
            if (index($_,"endpspicture") > 0)           # add rest of line, depends to type
               { print PDF substr($_,$iPST+12); }       # \endpspicture
            elsif (index($_,"pspicture*") > 0)
                    { print PDF substr($_,$iPST+15); }  # \end{pspicture*} 
            else    { print PDF substr($_,$iPST+14); }  # \end{pspicture}
            $depth--; 
            LOG("Decrease depth: $depth");
            if ($depth < 0) { $ignore = 0; }
          }
        }
      } # if ( !$EndDocument ) 
    } else { print PDF $_; } # if ( $iVerb )
    if (( index($_,"end{verbatim}") > 0 ) or ( index($_,"end{lstlisting}") > 0 )) { $iVerb = 0; }
  } # while (<FILE>)
  close (FILE);
  close (PDF);
  system("pdflatex $tempDir/$pdfname-pdf");     
  system("makeindex $tempDir/$pdfname-pdf.idx");        
  system("bibtex $tempDir/$pdfname-pdf");       
  system("pdflatex $tempDir/$pdfname-pdf");
  if ( $clear ) {
    unlink "$tempDir/$pdfname-pdf.log";
    unlink "$tempDir/$pdfname-pdf.aux";
  }
}
 
sub LOG() { 
  if ( $verbose ) { print LOGfile "@_\n"; } 
}
 
__END__
 
=head1 NAME
 
B<pst2pdf> - run a TeX source, and convert all PS-related part as single images
    (pdf and/or eps and/or png and/or ...) and then runs pdflatex.
 
=head1 SYNOPSIS
 
  pst2pdf.pl <texfile[,tex]>  [Options]
 
TODO
 
=head1 DESCRIPTION
 
runs latex and pdflatex on the TeX 
 
=head1 OPTIONS
 
=over
 
=item --imageDir      - the dir for the created images 
 
=item --Iext=<.ext>   - the extension for \includegraphics, can be empty 
 
=item --DPI=<int>     - the dots per inch for a cretaed png file
 
=item --Iscale=<real> - the value for \scale= in \includegraphics 
 
=item --tempDir=<dir> - temporary directory for the temp files
 
=item --verbose       - long log
 
=item --clear         - delete all temp files
 
=item --noImages      - create no images, build only pdf
 
=back
 
=head1 AUTHORS
 
Herbert Voss <[email protected]>
 
=head1 COPYRIGHT
 
Copyright (c) 2007-2009  Herbert Voss <[email protected]>
 
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
 
Coloreado en 0.013 segundos,  usando GeSHi 1.0.8.4

El problema está en la línea 48. Ahí se accede de forma directa al valor de $ARGV[0], que guarda el primer argumento.

El programa espera, como primer argumento, el nombre del fichero TeX a procesar. Siempre.

Así que si llamas al programa con un argumento '-h', ese será el nombre del fichero.

Yo lo que haría sería poner la línea 54 en lugar de la 45, y agregar a GetOptions() el procesamiento de la opción 'h'.

por **pablgonz** » 2010-12-14 18:49 @825

Lo intenté tal cual me escribes, pero al correr perl pst2pdf me arroja fileparse(): need a valid pathname. Gracias por tu pronta respuesta, seguiré leyendo e intentando.

por **explorer** » 2010-12-14 19:06 @837

Claro que da error: hay que modificar el programa para que tenga en cuenta el caso de que el usuario lo haya ejecutado sin darle ningún fichero como argumento.

El procedimiento, según se cuenta en la sección Mixing command line option with other arguments del módulo Getopt::Long es que hay que llamar a GetOptions nada más empezar el programa, y luego, lo que quede en @ARGV, serán el resto de argumentos que el programa necesitará.

En tu caso, se trata del nombre del fichero. PERO, naturalmente, estás pensando de pasarlo de obligatorio (como está ahora) a opcional (si el usuario llama al programa con '-h' es que quiere ver la ayuda del programa, por lo que no pasará ningún fichero).

Ese caso lo tienes que contemplar en el código.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

# <= aquí procesamos las opciones con GetOptions

my$fichero;
if(@ARGV){# si aún quedan argumentos...
$fichero=$ARGV[0];# leemos el primer argumento como el fichero
}

# <= aquí procesamos las opciones especiales, como el caso de -h, y terminamos el programa

# <= aquí seguimos con la ejecución normal del programa,
# lo primero que debemos comprobar es si el usuario nos ha pasado un fichero o no
if(not$fichero){
die"die, die";
}

# resto del programaColoreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **wanako** » 2010-12-15 12:55 @580

Sintáxis: [ Descargar ] [ Ocultar ]

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 ... :-)
 
# v. 0.10                               simplify the use of PSTricks with pdf
# 2010-01-04    (c) Herbert Voss <[email protected]> 
# $Id: pst2pdf.pl 239 2010-01-01 17:23:13Z herbert $
# Thanks to Pablo Gonzales
#
# 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
#
use File::Path;                         # creating/removing dirs
use File::Copy;                         # copying files
use File::Basename;                     # scan argument
use IO::File;                           # simple IO operation
use Getopt::Long;                       # read parameter
 
#----------------------- User part begin ------------------------
my $imageDir = "images";                # where to save the images
my @imageType = ("eps","pdf");          # all image types
push (@imageType, "png") if $^O ne 'MSWin32';
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 $helpy;                                      # ayuda indefinida :-)
#----------------------- User part end ---------------------------
 
##@ARGV == 0 && die "file name expected!\n";
if ( !@ARGV ) {
        print "file name expected!\n";
        helpy();                                # un poco mas de ayuda...
}
 
##              cambiamos el orden, definir las opciones 'antes' de open()
##              es lo correcto...
 
my $result = GetOptions ("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
                         "verbose"    => \$verbose,     # flag
                                                 "h|help"         => \$helpy            # ayuda flag
                                                 ) || helpy();                                  # opciones desconocidas y ayuda
 
helpy() if $helpy;              # ayuda si $helpy vale '1' con '-h' o '-help'
 
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"); 
 
my $imgNo = 0;                          # internal image counter
my $pstExaLoaded = 0;                   # Document loads pst-exa
 
LOG ("Running on [$path][$name][$ext]"); 
open (FILE, "<$TeXfile") or die "cannot open source file $TeXfile!";    # the source
if ( !$noImages ) {
  if (-d $imageDir) { LOG ("$imageDir exists") }
  else { mkdir("$imageDir", 0744) || die "cannot mkdir $imageDir: $!";
    LOG ("Imagedir created"); }
 
  LOG ("go to savePreamble ... "); 
  savePreamble($name);
  LOG ("done!\n go to runFile ..."); 
  runFile($name);
  LOG ("done!"); 
  close FILE;                                           # close source file
}# !noImages
 
 
LOG ("runpdfTeX ... "); 
runpdfTeX("$path$name",$name);
LOG ("all finished ... :-)"); 
close LOGfile;
if ( $clear ) {
  unlink "$path$name.aux";
  unlink "$path$name.log";
  unlink "$path$name.preamble";
  unlink "$path$name-tmp.aux";
  unlink "$path$name-tmp.dvi";
  unlink "$path$name-tmp.log";
  unlink "$path$name-tmp.pdf";
  unlink "$path$name-tmp.ps";
  unlink "$path$name-tmp.tex";
}
 
sub savePreamble {                      # create a preamble file
# if we have a \input command inside the preamble, it doesn't hurt, we need
# it anyway for the postscript files and the pdf one.
  my $filename = pop;                   # get the file name
  LOG ("----- Start Preamble -----"); 
  open (FILEp, ">$tempDir/$filename.preamble") 
    or die "cannot open preamble file $tempDir/$filename.preamble!";
  while (<FILE>) {                      # read all until \begin{document}
    $pstExaLoaded = index($_,"usepackage{pst-exa}"); 
    my $i = index($_,"begin{document}");
    if ($i > 0) { 
      if ($i > 1) { print FILEp substr($_,0,--$i); }    # write all until \begin{document}
      print FILEp "\n\\usepackage{pst-exa}\n";
      close(FILEp);                                     # close preamble
      LOG ("----- Close Preamble ------"); 
      return; 
    } else { 
      print FILEp "$_";                                 # write into preamble
      LOG ("$_"); 
    }
  }
  close(FILEp);
  if ( $verbose ) { LOG("<-----Preamble<----"); }
  return;
}
 
sub searchPS {                                  # search the PostScript parts
  my @PS = ();                                  # single PS sequence
  my @PStotal = ();                             # all PS sequences as list of arrays
  my $depth = -1;                               # counts nested macros
  my $type = -1;                                # -1-> none; 1->PST; 2->PS; 
  my $EndDocument = 0;                          # ignore all after \end{document}
  my $iVerb = 0;                                # test for verbatim or lstlisting environment, must be ignored
  while (<FILE>) {                              # scan the input file
    if (!$EndDocument) {
    chomp;                                      # delete EOL character
    my $line = $_;                              # save line
    if ( !$iVerb ) { 
      $iVerb = ((index($line,"begin{verbatim}") > 0) or (index($line,"begin{lstlisting}") > 0)); 
    }                                           # do nothing until \end{verbatim}
    if ( !$iVerb ) {
      my $iPS = index($line,"begin{postscript}");
      my $iPST = index($line,"begin{pspicture*}");
      if ($iPST < 0) { $iPST = index($line,"begin{pspicture}"); }       # alternative 
      if ($iPST < 0) { $iPST = index($line,"pspicture"); }      # alternative \pspicture...
      if (($iPS > 0) && ( $type == 1 )){ print "postscript environment must be of outer level!\n"; exit 1; }
      if ( $type < 0 ) {                        # no active environment
        if ($iPS > 0) {                         # we have \begin{postscript}
          $type = 2;                    
          $line = substr($line,$iPS-1);         # add rest of the line
          LOG("PS-Zeile: $line");
        }                               
        elsif ( $iPST > 0 ) {                   # we have \begin{pspicture} or \pspicture
          $type = 1; 
          $depth++;  
          $line = substr($line,$iPST-1);        # add all unitl pspicture
          LOG("PST-Zeile: $line");
        }
      }
#       we have now \begin{pspicture} or \begin{postscript}
      if ($type > 0) {                          # start Scan, we have an environment
        LOG ("searchPS: set \$type=$type"); 
        $iPST = index($line,"end{pspicture*}");
        if ($iPST < 0) { $iPST = index($line,"end{pspicture}"); }       # alternative
        if ($iPST < 0) { $iPST = index($line,"endpspicture"); } # alternative \endpspicture...
        $iPS = index($line,"end{postscript}");  
        if ($iPST > 0) {                        # test, we can have postscript and pspicture in one line
          if ( $type < 2) {                     # found end of pspicture environment 
            LOG ("searchPS: $line"); 
            $depth--; 
            if ($depth < 0) { 
              $type = -1; 
              if (index($line,"endpspicture") > 0)              # add line, depends to type
                   { push @PS,substr($line,0,$iPST+12); }       # \endpspicture
              elsif (index($line,"pspicture*") > 0)
                      { push @PS,substr($line,0,$iPST+15); }    # \end{pspicture} 
              else { push @PS,substr($line,0,$iPST+14); }       # \end{pspicture} 
              LOG ("searchPS: set \$type=$type"); 
              push @PStotal,[@PS];      # add PS sequence
              LOG ("---->PS---->\n@PS\n<----PS<----"); 
              @PS = ();                 # start new PS sequence
            }                           # no pspicture env left
          } else { push @PS,$line; }    # pspicture inside postscript
        } elsif ($iPS > 0) {            # must be type=1 -> stop Scan
          LOG ("searchPS: $line"); 
          $type = -1;
          push @PS,substr($line,0,$iPS+15);# add line
          LOG ("searchPS: set \$type=$type"); 
          push @PStotal,[@PS];          # add PS sequence
          LOG ("---->PS---->\n@PS\n<----PS<----"); 
          @PS = ();                     # start new PS sequence
        } else { push @PS,$line; }              # add line
      }
      my $i = index($line,"end{document}");
      if ($i > 0) { $EndDocument++; LOG("EndDocument in searchPS"); }
    } # if ( $iVerb )
    if (( index($line,"end{verbatim}") > 0 ) or ( index($line,"end{lstlisting}") > 0 )) { $iVerb = 0; }
  }}
  if ( $verbose ) { 
    LOG("---->PStotal---->");
    for my $aref ( @PStotal ) { 
      my @a = @$aref;
      my $i = 0;
      foreach ( @a ) { LOG ($a[$i]); $i++; }
    }
    LOG ("<----PStotal<----"); 
  }
  close(FILE);
  return @PStotal;                      # return all PS sequences
}
 
sub runTeX {
  my $filename = pop;
  system("latex $filename"); # or die "Error in the LaTeX run from file $filename!";
  system("dvips $filename"); # or die "Error in the dvips run from file $filename!";
  system("ps2pdf $filename.ps");# or die "Error in the ps2pdf run from file $filename!";
  copy("$filename.tex", "$imageDir/$filename-$imgNo.tex") or die "Cannot copy Source file!";;
  for my $Itype ( @imageType ) {
    if ($Itype eq "pdf") { system("pdfcrop $filename.pdf $imageDir/$filename-$imgNo.pdf");  }
    if ($Itype eq "png") { 
      system("pdftoppm -f 1 -l 1 -r $DPI $imageDir/$filename-$imgNo.pdf $imageDir/"); 
      system("convert $imageDir/-1.ppm  $imageDir/$filename-$imgNo.png"); 
      system("rm $imageDir/-1.ppm"); 
    }
    if ($Itype eq "eps") { system("pdftops -f 1 -l 1 -eps $imageDir/$filename-$imgNo.pdf $imageDir/$filename-$imgNo.eps"); }
  }
  $imgNo++;
}
 
sub runFile {
  my $filename = pop;
  my @PSarray = searchPS();
  if ( $verbose ) { 
    LOG("---->PSarray---->");
    for my $aref ( @PSarray ) { 
      my @a = @$aref;
      my $i = 0;
      foreach ( @a ) { print LOG $a[$i]."\n"; $i++; }
    }
    LOG("<----PSarray<----"); 
    my $no = @PSarray;
    LOG("PS: ".$no." PS sequence(s)"); 
  }
  for my $aref ( @PSarray ) {
    my @PS = @$aref;
    open (FILEp, "<$tempDir/$filename.preamble") or die "cannot open $tempDir/$filename.preamble!";
    open (FILEsub, ">$tempDir/$filename-tmp.tex") or die "cannot open $tempDir/$filename-tmp.tex!";
#    print FILEsub "\\RequirePackage{listings}\n";
    while (<FILEp>) { print FILEsub $_; }
    print FILEsub "\\pagestyle{empty}\n";
    print FILEsub "\\newenvironment{postscript}{}{}\n";
    print FILEsub "\\providecommand\\IncludeGraphics[2][]{}\n";
    print FILEsub "\\begin{document}\n";
    if ( $verbose ) { LOG("\@PS: $_"); }
    foreach ( @PS ) { print FILEsub "$_\n"; }
    print FILEsub "\\end{document}\n";
    close (FILEsub);
    close (FILEp);
    runTeX("$tempDir/$filename-tmp");
  }
}
 
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{graphicx}\n";
#  if ($pstExaLoaded < 1) {
#    print PDF "\\AtBeginDocument{\\let\\IncludeGraphics\\includegraphics}\n"; }
#  print PDF "\\setkeys{Gin}{scale=0.25}\n";
#  print PDF "\\providecommand\\psset[1]{}\n";
  print PDF "\\graphicspath{{$imageDir/}}\n"; #uncomment
  my $ignore = 0;
  my $IMGno = 0;
  my $depth = -1;
  my $type = -1;
  my $EndDocument = 0;                  # ignore all after \end{document}
  my $iVerb = 0;
  while (<FILE>) {                      # scan the input file
    if ( !$iVerb ) { 
      $iVerb = ((index($_,"begin{verbatim}") > 0) or (index($_,"begin{lstlisting}") > 0)); 
    } # do nothing until \end{verbatim}|| \end{lstlisting}
    if ( !$iVerb ) {
      my $i = index($_,"end{document}");
      if ($i > 0) { print PDF $_; $EndDocument++; LOG("EndDocument in runpdfTeX"); }
      if ( !$EndDocument ) {
        my $iPS = index($_,"begin{postscript}");
        if ( $iPS > 0 ) { 
          $type = 2; 
          $ignore = 1; 
          if ($iPS > 1) { print PDF substr($_,0,--$iPS); }      # add preceeding text
         print PDF "\\IncludeGraphics[scale=$Iscale]{$pdfname-tmp-$IMGno$Iext}"; #change name x pdfname
          $IMGno++;
        }               # postscript env
        if ( $type < 2 ) {
          my $iPST = index($_,"begin{pspicture*}");
          if ($iPST < 0) { $iPST = index($_,"begin{pspicture}"); }      # alternative ...
          if ($iPST < 0) { $iPST = index($_,"\\pspicture"); }   # alternative \endpspicture...
          if ( $iPST >= 0 ) {                           # start Scan
            $ignore = 1;
            $type = 1; 
            $depth++;                                   # pspicture env
            LOG("Increase depth: $depth");
            if ( $depth == 0 ) {
              if ($iPST > 1) { print PDF substr($_,0,--$iPST); }# add preceeding text
         #     print PDF "\\IncludeGraphics[scale=$Iscale]{$imageDir/$pdfname-tmp-$IMGno$Iext}"; #change name x pdfname
              print PDF "\\IncludeGraphics[scale=$Iscale]{$pdfname-tmp-$IMGno$Iext}";   # use \graphicspath
              $IMGno++;
              LOG("Increase Image counter: $IMGno");
            }
          }
        }
        if ( !$ignore ) { print PDF "$_"; }                     # default line
        if ( $type == 2 ) {                                     # postscript env
          my $iPS = index($_,"end{postscript}");
          if ($iPS > 0) {
            print PDF substr($_,$iPS+15);                       # rest of line
            $ignore = 0; 
            $type=-1;
          }                                                     # end Scan
        } elsif ( $type == 1 ) {                                # pspicture env
          my $iPST = index($_,"end{pspicture*}");
          if ($iPST < 0) { $iPST = index($_,"end{pspicture}"); }# alternative ...
          if ($iPST < 0) { $iPST = index($_,"endpspicture"); }  # alternative \endpspicture...
          if ($iPST > 0) {                                      # end Scan
            if (index($_,"endpspicture") > 0)           # add rest of line, depends to type
               { print PDF substr($_,$iPST+12); }       # \endpspicture
            elsif (index($_,"pspicture*") > 0)
                    { print PDF substr($_,$iPST+15); }  # \end{pspicture*} 
            else    { print PDF substr($_,$iPST+14); }  # \end{pspicture}
            $depth--; 
            LOG("Decrease depth: $depth");
            if ($depth < 0) { $ignore = 0; }
          }
        }
      } # if ( !$EndDocument ) 
    } else { print PDF $_; } # if ( $iVerb )
    if (( index($_,"end{verbatim}") > 0 ) or ( index($_,"end{lstlisting}") > 0 )) { $iVerb = 0; }
  } # while (<FILE>)
  close (FILE);
  close (PDF);
  system("pdflatex $tempDir/$pdfname-pdf");     
  system("makeindex $tempDir/$pdfname-pdf.idx");        
  system("bibtex $tempDir/$pdfname-pdf");       
  system("pdflatex $tempDir/$pdfname-pdf");
  if ( $clear ) {
    unlink "$tempDir/$pdfname-pdf.log";
    unlink "$tempDir/$pdfname-pdf.aux";
  }
}
 
sub LOG() { 
  if ( $verbose ) { print LOGfile "@_\n"; } 
}
 
sub helpy {                     # funcion ayudita
        die <<'FIN';    # buscar 'here documents' en Perl...
 
        Help, I need somebody
        Help, not just anybody
        Help, you know I need someone, help
FIN
}
__END__
 
=head1 NAME
 
B<pst2pdf> - run a TeX source, and convert all PS-related part as single images
    (pdf and/or eps and/or png and/or ...) and then runs pdflatex.
 
=head1 SYNOPSIS
 
  pst2pdf.pl <texfile[,tex]>  [Options]
 
TODO
 
=head1 DESCRIPTION
 
runs latex and pdflatex on the TeX 
 
=head1 OPTIONS
 
=over
 
=item --imageDir      - the dir for the created images 
 
=item --Iext=<.ext>   - the extension for \includegraphics, can be empty 
 
=item --DPI=<int>     - the dots per inch for a cretaed png file
 
=item --Iscale=<real> - the value for \scale= in \includegraphics 
 
=item --tempDir=<dir> - temporary directory for the temp files
 
=item --verbose       - long log
 
=item --clear         - delete all temp files
 
=item --noImages      - create no images, build only pdf
 
=back
 
=head1 AUTHORS
 
Herbert Voss <[email protected]>
 
=head1 COPYRIGHT
 
Copyright (c) 2007-2009  Herbert Voss <[email protected]>
 
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
 
Coloreado en 0.012 segundos,  usando GeSHi 1.0.8.4

Y como dice explorer, no verifica si 'existe' el fichero antes de abrirlo, por eso crea los 'LOGs' inutilmente, agregar Pod::Usage es similar a lo que hice, puedes mejorarlo ;-)

PD: las caritas 'smiles' y los tabs se traducen aún usando etiquetas perl code, queda feito pero se entiende.

por **explorer** » 2010-12-15 13:26 @601

Las caritas sonrientes se pueden deshabilitar debajo de la caja de edición de texto de cada mensaje, en la opción que se llama "Deshabilitar emoticonos".

Y los tabuladores se arreglan reduciéndolos o cambiándolos por espacios...

Foro - Perl en Español

Ayuda para agregar -help a script

Ayuda para agregar -help a script

Publicidad

Re: Ayuda para agregar -help a script

Re: Ayuda para agregar -help a script

Re: Ayuda para agregar -help a script

Re: Ayuda para agregar -help a script

Re: Ayuda para agregar -help a script

¿Quién está conectado?