+ Répondre à la discussion
Affichage des résultats 1 à 9 sur 9
  1. #1
    Membre habitué Avatar de PadawanInPerl
    Profil pro
    Inscrit en
    juillet 2009
    Messages
    417
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : juillet 2009
    Messages : 417
    Points : 134
    Points
    134

    Par défaut QR Code module

    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 :
    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 :
    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.
    Windows 7, 64 bit
    Perl 5.12, ActivePerl
    Python 3.2, ActivePython ( NOVICE ! )

  2. #2
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    avril 2004
    Messages
    16 862
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : avril 2004
    Messages : 16 862
    Points : 491 014
    Points
    491 014

    Par défaut

    Bonjour,

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

    Pas de questions technique par messagerie privée (lisez les règles du forum Perl) et pour les nouveaux !

  3. #3
    Membre habitué Avatar de PadawanInPerl
    Profil pro
    Inscrit en
    juillet 2009
    Messages
    417
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : juillet 2009
    Messages : 417
    Points : 134
    Points
    134

    Par défaut

    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.
    Windows 7, 64 bit
    Perl 5.12, ActivePerl
    Python 3.2, ActivePython ( NOVICE ! )

  4. #4
    Nouveau Membre du Club
    Inscrit en
    mars 2009
    Messages
    43
    Détails du profil
    Informations forums :
    Inscription : mars 2009
    Messages : 43
    Points : 28
    Points
    28

    Par défaut

    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.

  5. #5
    Membre habitué Avatar de PadawanInPerl
    Profil pro
    Inscrit en
    juillet 2009
    Messages
    417
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : juillet 2009
    Messages : 417
    Points : 134
    Points
    134

    Par défaut

    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
    Windows 7, 64 bit
    Perl 5.12, ActivePerl
    Python 3.2, ActivePython ( NOVICE ! )

  6. #6
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    avril 2004
    Messages
    16 862
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : avril 2004
    Messages : 16 862
    Points : 491 014
    Points
    491 014

    Par défaut

    Tu as testé quel programme alors ?

    Pas de questions technique par messagerie privée (lisez les règles du forum Perl) et pour les nouveaux !

  7. #7
    Membre habitué Avatar de PadawanInPerl
    Profil pro
    Inscrit en
    juillet 2009
    Messages
    417
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : juillet 2009
    Messages : 417
    Points : 134
    Points
    134

    Par défaut

    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 :
    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");
    Windows 7, 64 bit
    Perl 5.12, ActivePerl
    Python 3.2, ActivePython ( NOVICE ! )

  8. #8
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    avril 2004
    Messages
    16 862
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : avril 2004
    Messages : 16 862
    Points : 491 014
    Points
    491 014

    Par défaut

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

    Pas de questions technique par messagerie privée (lisez les règles du forum Perl) et pour les nouveaux !

  9. #9
    Membre habitué Avatar de PadawanInPerl
    Profil pro
    Inscrit en
    juillet 2009
    Messages
    417
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : juillet 2009
    Messages : 417
    Points : 134
    Points
    134

    Par défaut

    Pour ma par elles se sont créées à l'emplacement du script ...
    Windows 7, 64 bit
    Perl 5.12, ActivePerl
    Python 3.2, ActivePython ( NOVICE ! )

+ Répondre à la discussion
Cette discussion est résolue.

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •