Perl

convertir des fichiers lst en pdf

Recherche :

Mot : Pseudo : Filtrer
Page : 1 2 Page Suivante Page Précédente Bas de page
Auteur	Sujet : convertir des fichiers lst en pdf

solerian

Reprise du message précédent :
C'est toujours .lst j'ai fait une faute de frappe

Publicité

gilou

Modérateur
Modosaurus Rex

Ben le programme de Rat de Combat donné plus haut, qui utilise App::a2pdf, je vois pas en quoi il ne te convient pas.

A+,

---------------
There's more than what can be linked! -- Le capitaine qui ne veut pas obéir à la carte finira par obéir aux récifs. -- No jab ? No job ! -- (╯°□°)╯︵ ┻━┻

solerian

Je ne comprends les options à quoi ça sert :

Code :

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)
);

rat de combat

attention rongeur méchant!

C'est pourtant assez explicite (à condition de maîtriser un minimum la langue de Shakespeare) et puis il y a une doc aussi.
Sinon tu peux toujours les modifier et voir ce que ça change...

gilou

Modérateur
Modosaurus Rex

C'est pourtant pas compliqué:
Flag pour savoir si on veut des en-tête de page, des pieds de page, des numéros de ligne, suivi des dimensions de la page et des marges, la fonte et sa taille...
Et en testant 2 mn en changeant les valeurs, vous auriez tout de suite vu sur le pdf généré à quoi ça servait.

A+,

---------------
There's more than what can be linked! -- Le capitaine qui ne veut pas obéir à la carte finira par obéir aux récifs. -- No jab ? No job ! -- (╯°□°)╯︵ ┻━┻

solerian

Code :

use strict;
use warnings;
use Config::IniFiles;
use PDF::API2;
my @repertoire; ## repertoire prod ##
my @fichier; ## test.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="c:\\test.lst";
(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);
open(OUT, '>', $file_out);
binmode OUT;
print OUT $pdf->{pdf}->stringify;
close(OUT);

Voici mon mesage d'erreur :
Name "main::IN" used only once: possible typo at convertir_lst_pdf.pl line 42.
Name "main::OUT" used only once: possible typo at convertir_lst_pdf.pl line 50.

solerian

J'utilise une fois encore un fichier d'initialisation dont voici le contenu :
[repertoire]
REP_PROD=CUsers/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 :

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);
open(OUT, '>', $file_out);
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

gilou

Modérateur
Modosaurus Rex

Chez moi ceci marche:

Code :

use strict;
use warnings;
use autodie;
use App::a2pdf;
 
sub file2pdf {
  my $input_file = shift;
  my $output_file = $input_file =~ s/\.[^.]+/.pdf/r;
  
  open my $fin, '<', $input_file;
  open my $fout, '>', $output_file;
  
  my %options = (
  header        => 0,          # Include header on all pages
  footer        => 0,          # Include footer on all pages
  line_numbers  => 0,          # 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   => 0,          # Perform Perl syntax highlighting
  icon_scale    => 0.5,        # Icon scaling (%age
  );
  my $pdf  = App::a2pdf->new(%options);
  
  select $fout;
  binmode $fout;
  
  while (my $line = <$fin> ) {
    $pdf->print($line);
  }
  $pdf->output;
  
  select STDOUT;
  
  close $fin;
  close $fout;
}
 
foreach ("test.txt", "test1.txt" ) {
  file2pdf($_);
}

A+,

---------------
There's more than what can be linked! -- Le capitaine qui ne veut pas obéir à la carte finira par obéir aux récifs. -- No jab ? No job ! -- (╯°□°)╯︵ ┻━┻

solerian

J'ai toujours un message d'erreur mais je ne vois pas ce qu'il veut à travers ce message :
Can't locate object method "print" via package "PDF::API2" at C:\users\baranowp\documents\2016_03_07_11\prod\convertir_l
st_pdf.pl line 47, <$_[...]> line 1.

Pourtant j'ai bien déclaré le module voici mon code :

Code :

use strict;
use warnings;
use Config::IniFiles;
use PDF::API2;
use autodie;
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', $_);;
}
sub fileAPI2 {
my $input_file = $fichier[0];
my $output_file = $fichier[0] =~ s/\.[^.]+/.pdf/r;
open my $fin, '<', $input_file;
open my $fout, '>', $output_file;
my %options = (
header => 0, # Include header on all pages
footer => 0, # Include footer on all pages
line_numbers => 0, # 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 => 0, # Perform Perl syntax highlighting
icon_scale => 0.5, # Icon scaling (%age
);
my $pdf = PDF::API2->new(%options);
select $fout;
binmode $fout;
while (my $line = <$fin> ) {
$pdf->print($line);
}
$pdf->output;
select STDOUT;
close $fin;
close $fout;
}
foreach ($fichier[0]) {
fileAPI2($_);
}

rat de combat

attention rongeur méchant!

Tu utilises le mauvais module...
use PDF::API2;
vs.
use App::a2pdf;

Publicité

solerian

J'utilise PDF::API2 car lorsque je souhaite installer App::a2pdf il ne veut pas.
Le message est le suivant :
Test Summary Report
-------------------
t/compile.t (Wstat: 256 Tests: 1 Failed: 1)
Failed test: 1
Non-zero exit status: 1
Files=2, Tests=4, 2 wallclock secs ( 0.05 usr + 0.03 sys = 0.08 CPU)
Result: FAIL
Failed 1/2 test programs. 1/4 subtests failed.
dmake.exe: Error code 255, while making 'test_dynamic'
JONALLEN/a2pdf-1.13.tar.gz
C:\STRAWB~1\c\bin\dmake.exe test -- NOT OK
//hint// to see the cpan-testers results for installing this module, try:
reports JONALLEN/a2pdf-1.13.tar.gz
Stopping: 'install' failed for 'App::a2pdf'.

solerian

Voila ce qu'il me renvoie lorsquej'utilise App::A2PDF :
Can't locate App/a2pdf.pm in @INC (you may need to install the App::a2pdf module) (@INC contains: CStrawberry/perl/sit
e/lib CStrawberry/perl/vendor/lib CStrawberry/perl/lib .) at C:\users\baranowp\documents\2016_03_07_11\prod\converti
r_lst_pdf.pl line 7.
BEGIN failed--compilation aborted at C:\users\baranowp\documents\2016_03_07_11\prod\convertir_lst_pdf.pl line 7.

gilou

Modérateur
Modosaurus Rex

> lorsque je souhaite installer App::a2pdf il ne veut pas.

Au vu du message, vous avez peut être plusieurs installations de Perl qui se mélangent les pinceaux.
Et il y a une raison impérative à ce que vous utilisiez Strawberry Perl?

A+,

---------------
There's more than what can be linked! -- Le capitaine qui ne veut pas obéir à la carte finira par obéir aux récifs. -- No jab ? No job ! -- (╯°□°)╯︵ ┻━┻

solerian

Pour pouvoir utiliser davantage de module et de mettre à jour ma version de Perl

gilou

Modérateur
Modosaurus Rex

> Pour pouvoir utiliser davantage de module
Plus de 15 000 modules dispos avec la community edition d'active state, et au moins tu n'aurais pas le pb d'installation de App::a2pdf

> et de mettre à jour ma version de Perl
Si ça t'amuse...

A+,

---------------
There's more than what can be linked! -- Le capitaine qui ne veut pas obéir à la carte finira par obéir aux récifs. -- No jab ? No job ! -- (╯°□°)╯︵ ┻━┻

solerian

Lorsque j'essaie avec print $pdf->stringify();

Il me renvoi ceci :
Can't call method "stringify" on an undefined value at C:\users\baranowp\Documents\2016_03_07_11\prod\convertir_lst_pdf.
pl line 47, <$fin> line 1.

Sachant que j'utilise le module CAM:DF

Code :

use strict;
use warnings;
use Config::IniFiles;
use CAM::PDF;
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') {
push @fichier, $cfg->val('fichier', $_);
}
sub file2pdf {
my $input_file = $fichier[0];
my $output_file = $fichier[0] =~ s/\.[^.]+/.pdf/r;
open my $fin, '<', $input_file;
open my $fout, '>', $output_file;
my %options = (
header => 0, # Include header on all pages
footer => 0, # Include footer on all pages
line_numbers => 0, # 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 => 0, # Perform Perl syntax highlighting
icon_scale => 0.5, # Icon scaling (%age
);
my $pdf = CAM::PDF->new(%options);
select $fout;
binmode $fout;
while (my $line = <$fin> ) {
print $pdf->stringify($line);
}
$pdf->output;
select STDOUT;
close $fin;
close $fout;
}
foreach ($fichier[0]) {
file2pdf($_);
}

Cordialement

gilou

Modérateur
Modosaurus Rex

Ben oui, que voulez vous, la programmation vaudou ça marche pas, et changer un module par un autre, sans vérifier s'ils ont la même interface (ce n'est pas le cas, une simple lecture des docs des modules vous aurait montré que votre appel à new est faux pour ce nouveau module), en priant Ogun ferraille, ça n'a jamais été une technique de programmation efficace.

A+,

---------------
There's more than what can be linked! -- Le capitaine qui ne veut pas obéir à la carte finira par obéir aux récifs. -- No jab ? No job ! -- (╯°□°)╯︵ ┻━┻

Publicité

Page : 1 2

Page Suivante

Page Précédente

Haut de page

FORUM HardWare.fr

Programmation

Perl

convertir des fichiers lst en pdf

Sujets relatifs
fusion des fichiers en 1 fichier	Copie de fichiers vers dossiers en fonction du nom de fichier
comparaison de 2 fichiers	passer les noms de fichiers contenant une ou plusieurs espace(s) ?
[Aide] convertir balise <iframe> en <object>	Attributs de fichiers en bianire
Convertir plusieurs fichiers en UTF8?	Traitement par lot, convertir les fichiers avec la mêm extention
Comment convertir 200 fichiers .dot en .doc ...	Macro VBA pour convertir les fonts de 350 fichiers ....
Plus de sujets relatifs à : convertir des fichiers lst en pdf

Page générée en 0.191 secondes