Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1497 connectés 

 
 


 Mot :   Pseudo :  
 
 Page :   1  2
Page Suivante
Page Précédente
Bas de page 
Auteur Sujet :

convertir des fichiers lst en pdf

n°2277583
solerian
Posté le 14-03-2016 à 11:43:58  profilanswer
 

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

mood
Publicité
Posté le 14-03-2016 à 11:43:58  profilanswer
 

n°2277585
gilou
Modérateur
Modzilla
Posté le 14-03-2016 à 12:02:22  profilanswer
 

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! --    Iyashikei Anime Forever!    --  AngularJS c'est un framework d'engulé!  --
n°2277586
solerian
Posté le 14-03-2016 à 12:07:49  profilanswer
 

Je ne comprends les options à quoi ça sert :  

Code :
  1. my %options = (
  2. header        => 1,          # Include header on all pages
  3.   footer        => 1,          # Include footer on all pages
  4.   line_numbers  => 1,          # Print line numbers
  5.   page_width    => 595,        # A4
  6.   page_height   => 842,        # A4
  7.   left_margin   => 48,         # 0.75"
  8.   right_margin  => 48,         # 0.75"
  9.   top_margin    => 60,         #
  10.   bottom_margin => 60,         #
  11.   font_face     => 'Courier',  # Monospaged text
  12.   font_size     => 9,          # Text size = 9 points
  13.   perl_syntax   => 1,          # Perform Perl syntax highlighting
  14.   icon_scale    => 0.5,        # Icon scaling (%age)
  15. );

n°2277587
rat de com​bat
attention rongeur méchant!
Posté le 14-03-2016 à 12:39:28  profilanswer
 

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

n°2277591
gilou
Modérateur
Modzilla
Posté le 14-03-2016 à 14:15:41  profilanswer
 

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! --    Iyashikei Anime Forever!    --  AngularJS c'est un framework d'engulé!  --
n°2277594
solerian
Posté le 14-03-2016 à 15:17:24  profilanswer
 

Code :
  1. use strict;
  2. use warnings;
  3. use Config::IniFiles;
  4. use PDF::API2;
  6. my @repertoire; ## repertoire prod ##
  7. my @fichier;  ## test.lst ##
  9. my $cfg = Config::IniFiles->new( -file => $ARGV[0] );
  10. foreach ('REP_PROD') {
  11.   push @repertoire, $cfg->val('repertoire', $_);
  12.   }
  13. foreach ('Fic_1','FIC_2') {
  14.   push @fichier, $cfg->val('fichier', $_) if $cfg->val('fichier', $_);;
  15.    }
  16.  
  17. my $file="c:\\test.lst";
  18. (my $file_out=$file)=~s/\.lst$/.pdf/;
  20. my %options = (
  21.   header        => 1,          # Include header on all pages
  22.   footer        => 1,          # Include footer on all pages
  23.   line_numbers  => 1,          # Print line numbers
  24.   page_width    => 595,        # A4
  25.   page_height   => 842,        # A4
  26.   left_margin   => 48,         # 0.75"
  27.   right_margin  => 48,         # 0.75"
  28.   top_margin    => 60,         #
  29.   bottom_margin => 60,         #
  30.   font_face     => 'Courier',  # Monospaged text
  31.   font_size     => 9,          # Text size = 9 points
  32.   perl_syntax   => 1,          # Perform Perl syntax highlighting
  33.   icon_scale    => 0.5,        # Icon scaling (%age)
  34. );
  36. $options{title}=$file;
  38. my $pdf=PDF::API2->new(%options);
  40. open(IN, '>', $file);
  41. foreach my $line (<IN> ){
  42.     $pdf->print($line);
  43.     }
  44.    close(IN);
  45.    
  46.    open(OUT, '>', $file_out);
  47.    binmode OUT;
  48.    print OUT $pdf->{pdf}->stringify; 
  49. 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.

n°2277596
solerian
Posté le 14-03-2016 à 16:48:28  profilanswer
 

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 :
  1. use strict;
  2. use warnings;
  3. use Config::IniFiles;
  4. use PDF::API2;
  6. my @repertoire; ## repertoire prod ##
  7. my @fichier;  ## test.lst test1.lst ##
  9. my $cfg = Config::IniFiles->new( -file => $ARGV[0] );
  10. foreach ('REP_PROD') {
  11.   push @repertoire, $cfg->val('repertoire', $_);
  12.   }
  13. foreach ('Fic_1','FIC_2') {
  14.   push @fichier, $cfg->val('fichier', $_) if $cfg->val('fichier', $_);;
  15.    }
  16.  
  17. my $file=$fichier[0];;
  18. (my $file_out=$file)=~s/\.lst$/.pdf/;
  21. my %options = (
  22.   header        => 1,          # Include header on all pages
  23.   footer        => 1,          # Include footer on all pages
  24.   line_numbers  => 1,          # Print line numbers
  25.   page_width    => 595,        # A4
  26.   page_height   => 842,        # A4
  27.   left_margin   => 48,         # 0.75"
  28.   right_margin  => 48,         # 0.75"
  29.   top_margin    => 60,         #
  30.   bottom_margin => 60,         #
  31.   font_face     => 'Courier',  # Monospaged text
  32.   font_size     => 9,          # Text size = 9 points
  33.   perl_syntax   => 1,          # Perform Perl syntax highlighting
  34.   icon_scale    => 0.5,        # Icon scaling (%age)
  35. );
  37. $options{title}=$file;
  39. my $pdf=PDF::API2->new(%options);
  41. open(IN, '<', $file);
  42. foreach my $line (<IN> )
  43. {
  44.     $pdf->print($line);
  45.     }
  46.    close(IN);
  47.    
  48.    open(OUT, '>', $file_out);
  49.    print OUT $pdf->{pdf}->stringify;
  50.    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

n°2277599
gilou
Modérateur
Modzilla
Posté le 14-03-2016 à 19:22:31  profilanswer
 

Chez moi ceci marche:
 

Code :
  1. use strict;
  2. use warnings;
  3. use autodie;
  4. use App::a2pdf;
  5.  
  6. sub file2pdf {
  7.   my $input_file = shift;
  8.   my $output_file = $input_file =~ s/\.[^.]+/.pdf/r;
  9.   
  10.   open my $fin, '<', $input_file;
  11.   open my $fout, '>', $output_file;
  12.   
  13.   my %options = (
  14.   header        => 0,          # Include header on all pages
  15.   footer        => 0,          # Include footer on all pages
  16.   line_numbers  => 0,          # Print line numbers
  17.   page_width    => 595,        # A4
  18.   page_height   => 842,        # A4
  19.   left_margin   => 48,         # 0.75"
  20.   right_margin  => 48,         # 0.75"
  21.   top_margin    => 60,         # 
  22.   bottom_margin => 60,         # 
  23.   font_face     => 'Courier',  # Monospaged text
  24.   font_size     => 9,          # Text size = 9 points
  25.   perl_syntax   => 0,          # Perform Perl syntax highlighting
  26.   icon_scale    => 0.5,        # Icon scaling (%age
  27.   );
  28.   my $pdf  = App::a2pdf->new(%options);
  29.   
  30.   select $fout;
  31.   binmode $fout;
  32.   
  33.   while (my $line = <$fin> ) {
  34.     $pdf->print($line);
  35.   }
  36.   $pdf->output;
  37.   
  38.   select STDOUT;
  39.   
  40.   close $fin;
  41.   close $fout;
  42. }
  43.  
  44. foreach ("test.txt", "test1.txt" ) {
  45.   file2pdf($_);
  46. }


 
A+,


---------------
There's more than what can be linked! --    Iyashikei Anime Forever!    --  AngularJS c'est un framework d'engulé!  --
n°2277651
solerian
Posté le 15-03-2016 à 11:04:56  profilanswer
 

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 :
  1. use strict;
  2. use warnings;
  3. use Config::IniFiles;
  4. use PDF::API2;
  5. use autodie;
  7. my @repertoire; ## repertoire prod ##
  8. my @fichier;  ## test.lst test1.lst ##
  10. my $cfg = Config::IniFiles->new( -file => $ARGV[0] );
  11. foreach ('REP_PROD') {
  12.   push @repertoire, $cfg->val('repertoire', $_);
  13.   }
  14. foreach ('FIC_1','FIC_2') {
  15.   push @fichier, $cfg->val('fichier', $_) if $cfg->val('fichier', $_);;
  16.    }
  17.  
  18. sub fileAPI2 {
  19. my $input_file = $fichier[0];
  20. my $output_file = $fichier[0] =~ s/\.[^.]+/.pdf/r;
  22.   open my $fin, '<', $input_file;
  23.   open my $fout, '>', $output_file;
  24.    
  25.   my %options = (
  26.   header        => 0,          # Include header on all pages
  27.   footer        => 0,          # Include footer on all pages
  28.   line_numbers  => 0,          # Print line numbers
  29.   page_width    => 595,        # A4
  30.   page_height   => 842,        # A4
  31.   left_margin   => 48,         # 0.75"
  32.   right_margin  => 48,         # 0.75"
  33.   top_margin    => 60,         #
  34.   bottom_margin => 60,         #
  35.   font_face     => 'Courier',  # Monospaged text
  36.   font_size     => 9,          # Text size = 9 points
  37.   perl_syntax   => 0,          # Perform Perl syntax highlighting
  38.   icon_scale    => 0.5,        # Icon scaling (%age
  39.   );
  40.   my $pdf  = PDF::API2->new(%options);
  41.  
  42.   select $fout;
  43.   binmode $fout;
  44.  
  45.  
  46. while (my $line = <$fin> ) {
  47.     $pdf->print($line);
  48. }
  49.   $pdf->output;
  51.   select STDOUT;
  52.  
  53.   close $fin;
  54.   close $fout;
  55.  
  56. }
  58. foreach ($fichier[0]) {
  59.   fileAPI2($_);
  60. }

n°2277654
rat de com​bat
attention rongeur méchant!
Posté le 15-03-2016 à 11:26:35  profilanswer
 

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

mood
Publicité
Posté le 15-03-2016 à 11:26:35  profilanswer
 

n°2277659
solerian
Posté le 15-03-2016 à 12:06:59  profilanswer
 

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'.

n°2277662
solerian
Posté le 15-03-2016 à 12:10:26  profilanswer
 

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: C:/Strawberry/perl/sit
e/lib C:/Strawberry/perl/vendor/lib C:/Strawberry/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.

n°2277691
gilou
Modérateur
Modzilla
Posté le 15-03-2016 à 16:27:06  profilanswer
 

> 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! --    Iyashikei Anime Forever!    --  AngularJS c'est un framework d'engulé!  --
n°2277702
solerian
Posté le 15-03-2016 à 17:03:50  profilanswer
 

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

n°2277719
gilou
Modérateur
Modzilla
Posté le 15-03-2016 à 18:54:24  profilanswer
 

> 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! --    Iyashikei Anime Forever!    --  AngularJS c'est un framework d'engulé!  --
n°2277754
solerian
Posté le 16-03-2016 à 09:44:56  profilanswer
 

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 :
  1. use strict;
  2. use warnings;
  3. use Config::IniFiles;
  4. use CAM::PDF;
  7. my @repertoire; ## repertoire prod ##
  8. my @fichier;  ## test.lst test1.lst ##
  10. my $cfg = Config::IniFiles->new( -file => $ARGV[0] );
  11. foreach ('REP_PROD') {
  12.   push @repertoire, $cfg->val('repertoire', $_);
  13.   }
  14. foreach ('FIC_1') {
  15.   push @fichier, $cfg->val('fichier', $_);
  16.    }
  18. sub file2pdf {
  19. my $input_file = $fichier[0];
  20. my $output_file = $fichier[0] =~ s/\.[^.]+/.pdf/r;
  22.   open my $fin, '<', $input_file;
  23.   open my $fout, '>', $output_file;
  25.   my %options = (
  26.   header        => 0,          # Include header on all pages
  27.   footer        => 0,          # Include footer on all pages
  28.   line_numbers  => 0,          # Print line numbers
  29.   page_width    => 595,        # A4
  30.   page_height   => 842,        # A4
  31.   left_margin   => 48,         # 0.75"
  32.   right_margin  => 48,         # 0.75"
  33.   top_margin    => 60,         #
  34.   bottom_margin => 60,         #
  35.   font_face     => 'Courier',  # Monospaged text
  36.   font_size     => 9,          # Text size = 9 points
  37.   perl_syntax   => 0,          # Perform Perl syntax highlighting
  38.   icon_scale    => 0.5,        # Icon scaling (%age
  39.   );
  40.   my $pdf  = CAM::PDF->new(%options);
  42.   select $fout;
  43.   binmode $fout;
  46. while (my $line = <$fin> ) {
  47.     print $pdf->stringify($line);
  49. }
  50.   $pdf->output;
  52.   select STDOUT;
  54.   close $fin;
  55.   close $fout;
  57. }
  59. foreach ($fichier[0]) {
  60.   file2pdf($_);
  61. }


Cordialement

n°2277761
gilou
Modérateur
Modzilla
Posté le 16-03-2016 à 11:22:59  profilanswer
 

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! --    Iyashikei Anime Forever!    --  AngularJS c'est un framework d'engulé!  --
mood
Publicité
Posté le   profilanswer
 

 Page :   1  2
Page Suivante
Page Précédente
Haut de page 

Aller à :
Ajouter une réponse
 

Sujets relatifs
fusion des fichiers en 1 fichierCopie de fichiers vers dossiers en fonction du nom de fichier
comparaison de 2 fichierspasser 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

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.105 secondes

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR