[langage] use

**ebaynaud** · 18/10/2004, 13h26

Bonjour,

Pourquoi ai-je ce message d'erreur ??

./xml2pdf.pl: line 62: use: command not found

Comment se fait-il que le compilateur ne connait pas la commande use ??

**GLDavid** · 18/10/2004, 14h17

Mmm, perso, j'attribuerais ceci à une mauvaise ligne shebang.
Peux-tu nous montrer ton code, STP ?

@ ++

**ebaynaud** · 19/10/2004, 08h25

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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
 
#!/usr/bin/perl -w
 ##############################################################################
 #
 # XML2PDF
 #
 # Author : HolyGrail
 # Version: 0.7
 #
 # Usage: xml2pdf
#
 # This conversionprogram translates XML into PDF. You can specify more than one
 # xmlfile at the commandline and they will all be processed. The PDF files will
 # replace ".xml" with ".pdf" or add ".pdf" if the sourcefile does not end with
 # ".xml". It does no XML validation at all. The XML file should conform to the
 # following DTD:
 #
 # <!ELEMENT document (section1)+>
 # <!ATTLIST document
 #     title CDATA #REQUIRED
 # >
 #
 # <!ELEMENT section1 (section2 | p | img)+>
 # <!ATTLIST section1
 #     title CDATA #REQUIRED
 # >
 #
 # <!ELEMENT section2 (p | img)+>
 # <!ATTLIST section2
 #     title CDATA #REQUIRED
 # >
 #
 # <!ELEMENT p (img | #PCDATA)>
 #
 # <!ELEMENT img>
 # <!ATTLIST img
 #     src CDATA #REQUIRED
 # >
 #
 # Known issues:
 # * 'img'-elements are processed after a complete 'p' element is processed,
 #   so the images that are meant to come 'in' the text, come 'after' the
 #   text. The workaround for this should be to split the text up in multiple
 #   p-elements and put the img-element between two p-elements.
 # * Images that are wider than the page fall off the page on the right side
 #
 # Bugs:
 # * Lots of them, no doubt
 #
 # Changes:
 #
 # 0.7: 'img' tags can now also be url's and no longer just local files
 # 0.6: It now also accepts images (JPG, GIF and PNG), changed the DTD
 #      accordingly.
 # 0.5: Changed the program call, so you can process multiple files in one call
 # 0.4: It now can handle sections that don't fit on one page. It starts new
 #      pages if needed.
 # 0.3: Adapted it to conform to OeufMayo's DTD
 # 0.2: Minor change (0.1 re-declared the global vars as 'my', thanks to davorg
 # 0.1: First release
 #
 ##############################################################################
 use strict;
 use PDFLib;
 use XML::XPath;
 use PDFLib;
 use LWP::Simple;
 use vars qw ( $TOPMARGIN
               $BOTTOMMARGIN
               $LEFTMARGIN
               $RIGHTMARGIN
               $PAGEHEIGHTPOINTS
               $PAGEWIDTHPOINTS
         $MAXYPOS
         %FONTDEFINITION
         %IMAGES
              );
 # Define the fonts for each element
 %FONTDEFINITION = ( section1  => [face => "Helvetica-Bold", size => "16.0"],
                     section2  => [face => "Helvetica-Bold", size => "14.0"],
                     p         => [face => "Helvetica", size => "12.0"]
                     );
 
 # Pagesetup
 my $pagename      = "a4";
 $PAGEHEIGHTPOINTS = 842; # See PDFLib's documentation for
 $PAGEWIDTHPOINTS  = 595; # the size of your page
 ($TOPMARGIN, $BOTTOMMARGIN, $LEFTMARGIN, $RIGHTMARGIN) = (10, 10, 15, 15);
 
 foreach (@ARGV)
 {
   # Documentsetup
   my $xmlfile = $_;
   my $xml = XML::XPath->new(filename => $xmlfile);
   s/\.xml$/\.pdf/i if /\.xml$/i;
   my $pdffile =  /\.pdf$/i ? $_ : "$_.pdf";
   my $pdf = PDFLib->new( filename => $pdffile,
                          papersize=> $pagename,
                          creator  => "XML2PDF",
                          title    => (($xml->findnodes('document'))[0]->getAttribute('name'))
                         );
   print "Converting $xmlfile to $pdffile \n";
 
   # pre-process the images:
   foreach my $img ($xml->findnodes('//img'))
   {
     my $filetype = 'jpeg' if $img->getAttribute('src')=~ /[jpg|jpeg]$/i;
     $filetype = 'gif' if $img->getAttribute('src')=~ /gif$/i;
     $filetype = 'png' if $img->getAttribute('src')=~ /png$/i;
 
     my $filename = $img->getAttribute('src');
 
     if ($filename =~ /^http:\/\//i)
     {
       $filename =~ /.*\/(.*\..*)/;
       print $1."\n";
       getstore($img->getAttribute('src'), $1);
       $filename=$1;
     }
 
     $IMAGES{$img->getAttribute('src')} =
        $pdf->load_image(filetype => $filetype || 'gif',
                         filename => $filename );
   }
 
   # Process the document
   foreach my $section ($xml->findnodes('document/section1'))
   {
     #start every section on a new page
     $pdf->start_page();
 
     # Calculate the starting Y-axis value
     $MAXYPOS = $PAGEHEIGHTPOINTS - $TOPMARGIN - $BOTTOMMARGIN;
 
     # Print the header
     printpdf($pdf, $FONTDEFINITION{section1},
              "\n".$section->getAttribute('title')."\n\n", $MAXYPOS);
 
     processsection($pdf, $section);
   }
 }
 
 sub printpdf
 {
     my ($pdf, $font, $what, $ypos) = @_;
     $pdf->set_font( @{$font} );
     my $charsnotprinted = length($what);
 
     while ($charsnotprinted)
     {
       $charsnotprinted = $pdf->print_boxed($what,
                           mode => "left",
                           x    => $LEFTMARGIN,
                           y    => $BOTTOMMARGIN,
                           w    => $PAGEWIDTHPOINTS - $RIGHTMARGIN -
                                    $LEFTMARGIN,
                           h    => $ypos || $pdf->get_value("texty")
                        );
        $what = substr($what, (length($what) - $charsnotprinted), length($what));
        $pdf->start_page() if $charsnotprinted;
        $ypos = $PAGEHEIGHTPOINTS - $TOPMARGIN - $BOTTOMMARGIN;
      }
 }
 
 sub processsection
 {
   my ($pdf, $section) = @_;
   foreach my $node ($section->findnodes('*'))
   {
     my $text;
     if ($node->getName() eq "section2")
     {
       printpdf($pdf, $FONTDEFINITION{$node->getName()},
                "\n".$node->getAttribute('title')."\n");
       processsection($pdf, $node); #recurse!
     }
     if ($node->getName() eq "p")
     {
       printpdf($pdf, $FONTDEFINITION{$node->getName()},
                "\n".$node->string_value()."\n");
       processsection($pdf, $node); #recurse!
     }
     if ($node->getName() eq "img")
     {
       if ($pdf->get_value('texty')-$IMAGES{$node->getAttribute('src')}->height() < 0)
       {
         $pdf->start_page();
         $pdf->set_text_pos($pdf->get_value('textx'), $PAGEHEIGHTPOINTS - $TOPMARGIN);
       }
       $pdf->add_image(img => $IMAGES{$node->getAttribute('src')},
                       x   => $LEFTMARGIN,
             y   => $pdf->get_value('texty')-$IMAGES{$node->getAttribute('src')}->height());
       $pdf->set_text_pos($pdf->get_value('textx'),
                          $pdf->get_value('texty')-$IMAGES{$node->getAttribute('src')}->height());
     }
 
   }
 
 }

**ebaynaud** · 19/10/2004, 08h49

C'est reglé, les espaces devant... le compilateur aimait pas !
Par contre, je peux toujours pas faire marcher ça à cause de PDFLib, c'est pas gratuit.....
snif :'(

**GLDavid** · 19/10/2004, 14h27

Ah bon ? Pourtant, je l'ai trouvé en téléchargement sur CPAN

@++

**ebaynaud** · 19/10/2004, 14h40

Bonjour M. Le Modérateur qui a l'air de s'y connaitre en PERL...

J'ai un GROS problème. Je souhaite créer un document PDF en Perl à partir d'un fichier XML. Pour cela, j'ai trouvé un genre de XML2PDF qui utilise PDFLib.

Suite à votre message, j'ai télécharger l'archive au lien proposé. Mais je ne sais pas comment l'installer, le MakeFile.pl est :

# $Id: Makefile.PL,v 1.3 2001/06/04 13:38:11 matt Exp $

use ExtUtils::MakeMaker;

eval {
require pdflib_pl;
die unless $pdflib_pl::VERSION >= 4.0;
};
if ($@) {
die <<DEATH;

PDFLib requires the pdflib package from http://www.pdflib.com/ version
4.0 or higher to be installed, and the perl interface "pdflib_pl.pm"
enabled to be able to work properly. Please install that before trying
to install this module.

DEATH
}

WriteMakefile(
'NAME' => 'PDFLib',
'VERSION_FROM' => 'PDFLib.pm', # finds $VERSION
'PREREQ_PM' => { pdflib_pl => 4.0 },
);

Il doit me manquer quelquechose ou j'ai du oublier de faire quelquechose avant de l'exécuter...

Peut-être et ce serait encore mieux avez vous une suggestion autre quant à l'accomplissement de ma mission. Il faudrait (selon mes recherches) que je crée un parser XML en Perl qui me crée un document PDF... Encore une fois je ne sais pas vraiment par ou commencer etc...

(Je découvre le Perl......)

Voila tout++

**GLDavid** · 19/10/2004, 16h34

Envoyé par ebaynaud

Bonjour M. Le Modérateur qui a l'air de s'y connaitre en PERL...

C'est de l'humour qui m'échappe ???
Bon, c'est jour de bonté :
Méthode pour installer un module sous Unixoïde :

Code :

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

1
2
3
4
5
 
perl Makefile.pl
make
//en root
make install

C'est valable sous tous les Unix (Linux, Solaris, Irix, toutiquantix....

).
Après, ça devrait rouler.
Si tu es sous Win avec ActivePerl, essaies d'installer ton module via ppm.

Code :

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

1
2
3
4
 
ppm
search PDF-Lib
install PDF-Lib

Une FAQ est en préparation.

@ ++

**GLDavid** · 19/10/2004, 16h35

En utilisant la fonction rechercher, tu trouveras des exemples de questions que j'ai pû posé pour le parsing XML. Ca m'a bien aidé pour mon projet.

@ ++

**ebaynaud** · 20/10/2004, 13h44

PDFLib requires the pdflib package from http://www.pdflib.com/ version
4.0 or higher to be installed, and the perl interface "pdflib_pl.pm"
enabled to be able to work properly. Please install that before trying
to install this module.

Voila le message d'erreur quand je veux installer le MakeFile...

Il faut bien avoir PDFlib qui n'est pas gratuit ?!?

Enfin... Je vais effectuer la recherche conseillée, merci.

[langage] use

Langage Perl

Vue hybride

Discussions similaires

Partager

Partager