Discussion :

[PadawanInPerl]

Bonjour,

Après plusieurs tests et visite de site web, je ne parviens pas à générer des QR Codes.

voici le script trouvé sur le cpan :

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
 
use strict;
use warnings;
use Imager::QRCode;
    my $qrcode = Imager::QRCode->new(
        size          => 2,
        margin        => 2,
        version       => 5,
        level         => 'M',
        casesensitive => 1,
        lightcolor    => Imager::Color->new(255, 255, 255),
        darkcolor     => Imager::Color->new(0, 0, 0),
    );
    my $img = $qrcode->plot("blah blah");
    $img->write(file => "qrcode.gif");
 
    # or instance method
    use Imager::QRCode qw(plot_qrcode);
 
    my $img = plot_qrcode("blah blah", \%params);
    $img->write(file => "qrcode.gif");

mais je ne comprend pas l'erreur :

Code :

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

1
2
3
4
5
6
7
Imager API version incorrect loaded 3 vs expected 5 in src/QRCode.xs at C:/Perl/
site/lib/Imager/QRCode.pm line 22.
BEGIN failed--compilation aborted at C:/Perl/site/lib/Imager/QRCode.pm line 24.
Compilation failed in require at C:\Users\XXX\Desktop\SCRIPT~1\qrcode.pl line
5.
BEGIN failed--compilation aborted at C:\Users\XXX\Desktop\SCRIPT~1\qrcode.pl l
ine 5.

[djibril]

Bonjour,

Il se peut que le module ne soit pas correctement installé.

[PadawanInPerl]

Hello Djibril,

Merci pour ta réponse mais ça ne change rien.

j'ai effacé le module et l'ai réinstallé...rien y fait.

[sth56]

bonjour,

D'après le message d'erreur, le module 'Imager' utilisé par le module du QR Codes n'est pas le bon, il faut la version 5.

[PadawanInPerl]

hello,

effectivement, j'ai réinstallé une autre version de Imager (0.93)
auparavant, j'avais réinstallé imager::qrcode et non imager lui mm



Et ça fonctionne maintenant.

MERCI

[djibril]

Tu as testé quel programme alors ?

[PadawanInPerl]

Celui là,

J'ai laissé en commentaire ce que je n'utilise pas au cas où...
A savoir que le code gardé génère un QR mieux adapté !

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
#!/usr/local/bin/perl
 
use strict;
use warnings;
use Imager;
#use Imager::QRCode;
use Imager::QRCode qw(plot_qrcode);
 
    my $qrcode = Imager::QRCode->new(
        size          => 2,
        margin        => 2,
        version       => 5,
        level         => 'M',
        casesensitive => 1,
        lightcolor    => Imager::Color->new(242, 255, 210),
        darkcolor     => Imager::Color->new(110, 110, 110),
    );
 
    #my $img = $qrcode->plot("blah blah");
    #$img->write(file => "oula.gif");
 
    my $img = plot_qrcode("blah blah", \my %params);
    $img->write(file => "oula.gif");

[djibril]

moi j'ai essaye le prog, mais je n'ai pas d'image qui se créé.

[PadawanInPerl]

Pour ma par elles se sont créées à l'emplacement du script ...