Normalmente convertimos los archivos PostScript en formato PDF y viceversa abriéndolos con nuestro visor de documentos (por ejemplo Okular para los que somos fans de KDE) y usando el menú de Impresión donde tenemos la opción de imprimir nuestro archivo en formato PostScript o PDF. Los usuarios un poco más expertos en linux prefieren usar el comando ps2pdf (también existe pdf2ps):
Si queremos automatizar esta tarea en nuestros scripts de Perl, existe el módulo PostScript::Convert que nos permitirá hacerlo de una forma sencilla:
Sin embargo, todos los métodos anteriores generarán PDFs recortados cuando el tamaño del PostScript a convertir no es estándar, por ello os propongo una pequeña subrutina que solucionará este problema:
Si queremos automatizar esta tarea en nuestros scripts de Perl, existe el módulo PostScript::Convert que nos permitirá hacerlo de una forma sencilla:
use PostScript::Convert;
psconvert($infile, filename => $outfile, format => 'pdf');
Sin embargo, todos los métodos anteriores generarán PDFs recortados cuando el tamaño del PostScript a convertir no es estándar, por ello os propongo una pequeña subrutina que solucionará este problema:
# Converts a PostScript file into a PDF
sub convert_ps_to_pdf{
my ($infile,$outfile) = @_;
my ($height,$weight);
open(IDENTIFY, "identify $infile |")|| die "# $0 : cannot run 'identify $infile'\n";
my $ps_properties = join('',<IDENTIFY>);
if ($ps_properties =~ /$infile PS (\d+)x(\d+)/){
$weight = $1;
$height = $2;
} else {
die "# convert_ps_to_pdf failed to identify PostScript dimensions.\n";
}
close IDENTIFY;
`ps2pdf -dDEVICEWIDTHPOINTS=$weight -dDEVICEHEIGHTPOINTS=$height $infile $outfile`;
return $outfile;
}
No hay comentarios:
Publicar un comentario