convertir des fichiers lst en pdf

**solerian** · 09/03/2016, 11h21

Bonjour à tous,

Je souhaite convertir plusieurs fichiers de type lst en PDF sans passer par PDF Creator parce que cette méthode est beaucoup trop longue.

Est-ce possible de convertir des fichiers lst en PDF avec perl ?

Est-ce que la fonction sprintf permettrait de convertir des formats lst en PDF?

Dans un premier temps je pensais utiliser la fonction GetFilesList afin de lister le contenu du répertoire C:\2016_03_07_11\prod et ensuite d'afficher tout les fichiers se trouvant dans prod et ayant pour extension .lst.
Voici le contenu du répertoire prod (pas en intégralité juste 2 3 pur l'exemple):
test.lst
test1.lst
test2.lst
etc ...

J'espère que mes informations sont claires et compréhensible.

Cordialement

**Lolo78** · 09/03/2016, 12h06

Bonjour,

il y a de nombreux modules PDF sur le CPAN, comme le montre une simple recherche Google: https://www.google.fr/search?q=cpan+...aYK8nwaLL4t4AF

Pour ce que tu veux faire, le meilleur est sans doute: http://search.cpan.org/~areibens/PDF...ib/PDF/API2.pm

(Mais je ne les ai pas tous testés, loin d'en faut, je juge surtout d'après la doc.).

**Philou67430** · 09/03/2016, 12h07

Que contiennent ces fichiers .lst ? (du texte ?)
Tu peux peut-être envisager d'utiliser ImageMagick qui permet de faire énormément de types de conversion (sous Linux et Windows), y compris de conversion en PDF.
ImageMagick dispose également d'une interface en perl (module Image::Magick).
Après, les outils ImageMagick dispose de très nombres options, et leur utilisation n'est pas forcément évidente si tu ne connais pas.
Mais si le résultat d'une commande

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

convert *.lst pdf-%03d.pdf

convient, ça peut être très simple.

**solerian** · 09/03/2016, 13h52

le contenu d'un fichier lst c'est du texte c'est comme du XML

**Philou67430** · 09/03/2016, 14h01

Les fichiers textes sont pris en charge par ImageMagick...

**solerian** · 09/03/2016, 14h26

D'accord de ce fait j'aurais quelque chose comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Image :: Magick
my @Files = GetFilesList ('C:/2016_03_07_11/prod');
foreach my $File  (@Files) 
{ 
	convert *.lst pdf-%03d.pdf
 
}

**solerian** · 09/03/2016, 16h22

J'ai essayé ces deux méthodes :

system (a2pdf "C:\2016_03_07_11\prod\test1.lst" );
message d'erreur :
Can't spawn "cmd.exe": No such file or directory at C:\2016_03_07_11\prod\convertir_txt_pdf.pl
line 46.

system (test2pdf "C:\2016_03_07_11\prod\test1.lst" );
message d'erreur :
Can't spawn "cmd.exe": No such file or directory at C:\2016_03_07_11\prod\convertir_txt_pdf.pl
line 47.

**Philou67430** · 09/03/2016, 17h10

L'outil convert de ImageMagick fonctionne directement sous l'invité de commande (shell sous Unix ou "Invité de commande" sous Windows).
Pour utiliser le module Image::Magick de perl, c'est un peu plus compliquer (il faut créer des object Image::Magick avec new, lire les fichiers, et les écrire à nouveau avec la bon type, comme par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
use strict;
use warnings;
use Image::Magick;
use File::Basename;
 
# ARGV contient les fichiers à convertir
foreach my $file (@ARGV) {
  my ($f, $dir) = fileparse($file);
  my $im = Image::Magick->new();
  $im->Read($file);
  $im->Write("$f.pdf");
}

J'ai écrit ça sans l'avoir testé.

En uniligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

perl -Mv5.14 -MImage::Magick -E '$i = Image::Magick->new();$i->Read($_);$i->Write(s/\.lst/.pdf/r) foreach @ARGV' *.lst

**solerian** · 10/03/2016, 09h36

Bonjour à tous,

Je viens d'installer Strawberry Perl.

Lorsque j'exécute mon programme Perl avec ce que tu m'as donné voici ce que j'obtiens dans le cmd :
Pièce jointe 203456

Et lorsque j'exécute mon programme perl dans Powershell j'obtiens :
Pièce jointe 203457

**Philou67430** · 10/03/2016, 10h01

Si tu utilises Strawberry perl, tu dois lancer l'invité de commande de Strawberry perl (même si c'est aussi sensé fonctionner depuis les autres shell de Windows).
Je suppose donc que ton installation est incomplète (variable d'environnement PATH non mise à jour).

**djibril** · 10/03/2016, 10h02

Bonjour,

Après avoir installé Perl, as-tu redémarré ton PC ?
Ensuite, tu fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

cpan -i Image::Magick

et tu relances ton programme.

**Philou67430** · 10/03/2016, 10h15

Je doute que ce soit suffisant ... il me semble qu'il faut également installer ImageMagick, mais je n'en suis plus sûr.

**solerian** · 10/03/2016, 10h18

Je viens de redémarrer mon Pc et j'ai exécuté ta commande l'installation c'est bien passé.

Mais quand j'exécute de nouveau mon programme voici ce qu'il me dit :

Can't locate Image/Magick.pm in @INC (you may need to install the Image::Magick module) (@INC contains: C:/Strawberry/perl/site/lib C:/Strawberry/perl/vendor/lib C:/Strawberry/perl/lib .) at convertir_txt_pdf.pl line 3.
BEGIN failed--compilation aborted at convertir_txt_pdf.pl line 3.

**Philou67430** · 10/03/2016, 10h25

Installe ImageMagick comme que t'y ai invité, puis le module CPAN Image::Magick, comme djibril te l'a demandé.

**solerian** · 10/03/2016, 16h47

Je n'ai pas trouvé Image Magick mais plutôt App::a2pdf

**solerian** · 10/03/2016, 16h53

Je viens de trouver un module PDF
PDf::create j'ai réussi à l'installer avec cpan PDF::Create

**solerian** · 11/03/2016, 10h13

J'utilise finalement PDF::API2

**solerian** · 14/03/2016, 16h42

J'utilise une fois encore un fichier d'initialisation dont voici le contenu :
[repertoire]
REP_PROD=C:/Users/baranowp/Documents/2016_03_07_11/prod

[fichier]
FIC_1=C:\Users\baranowp\Documents\2016_03_07_11\prod\test.lst
Fic_2=C:\Users\baranowp\Documents\2016_03_07_11\prod\test1.lst

Voici le code que j'utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 use strict;
use warnings;
use Config::IniFiles;
use PDF::API2;

my @repertoire; ## repertoire prod ##
my @fichier;  ## test.lst test1.lst ##

my $cfg = Config::IniFiles->new( -file => $ARGV[0] );
foreach ('REP_PROD') {
	  push @repertoire, $cfg->val('repertoire', $_);
	  }
foreach ('Fic_1','FIC_2') {
	  push @fichier, $cfg->val('fichier', $_) if $cfg->val('fichier', $_);;
   }
   
my $file=$fichier[0];;
(my $file_out=$file)=~s/\.lst$/.pdf/;

my %options = (
  header        => 1,          # Include header on all pages
  footer        => 1,          # Include footer on all pages
  line_numbers  => 1,          # Print line numbers
  page_width    => 595,        # A4
  page_height   => 842,        # A4
  left_margin   => 48,         # 0.75"
  right_margin  => 48,         # 0.75"
  top_margin    => 60,         # 
  bottom_margin => 60,         # 
  font_face     => 'Courier',  # Monospaged text
  font_size     => 9,          # Text size = 9 points
  perl_syntax   => 1,          # Perform Perl syntax highlighting
  icon_scale    => 0.5,        # Icon scaling (%age)
 );
 
$options{title}=$file;
 
my $pdf=PDF::API2->new(%options);
 
open(IN, '<', $file);
foreach my $line (<IN> )
{
    $pdf->print($line);
    }
   close(IN);
    
   [B]open(OUT, '>', $file_out);[/B]
   print OUT $pdf->{pdf}->stringify;
  close(OUT);

Voici mes messages d'erreurs:

- Use of uninitialized value $file_out in substitution (s///) at C:\users\baranowp\documents\2016_03_07_11\prod\convertir_lst_pdf.pl line 18.
- Use of uninitialized value $file in open at C:\users\baranowp\documents\2016_03_07_11\prod\convertir_lst_pdf.pl line 41.
- readline() on closed filehandle IN at C:\users\baranowp\documents\2016_03_07_11\prod\convertir_lst_pdf.pl line 42.
- Use of uninitialized value $file_out in open at C:\users\baranowp\documents\2016_03_07_11\prod\convertir_lst_pdf.pl line 48.
- Can't locate object method "stringify" via package "PDF::API2::Basic:

DF::File" at C:\users\baranowp\documents\2016_03_07_1\prod\convertir_lst_pdf.pl line 49.

Je ne comprend pas mes erreurs que mon interpréteur me renvoie, pouvez-vous m'aider s'il vous plaît
Je vous en remercie par avance.

Cordialement