+ Répondre à la discussion
Affichage des résultats 1 à 9 sur 9

Discussion: QR Code module

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

    Informations forums :
    Inscription : juillet 2009
    Messages : 435
    Points : 139
    Points
    139

    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 : 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.
    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
    17 475
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : avril 2004
    Messages : 17 475
    Points : 491 936
    Points
    491 936

    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
    435
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : juillet 2009
    Messages : 435
    Points : 139
    Points
    139

    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
    435
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : juillet 2009
    Messages : 435
    Points : 139
    Points
    139

    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
    17 475
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : avril 2004
    Messages : 17 475
    Points : 491 936
    Points
    491 936

    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
    435
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : juillet 2009
    Messages : 435
    Points : 139
    Points
    139

    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 : 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");
    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
    17 475
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : avril 2004
    Messages : 17 475
    Points : 491 936
    Points
    491 936

    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
    435
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : juillet 2009
    Messages : 435
    Points : 139
    Points
    139

    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.