Discussion :

[abdou-wt]

Bonjour,

Permettez-moi de vous posez une question : comment utiliser SOAP::Lite sous Linux ?

moi, j'ai installé SOAP::Lite en suivant les instructions (perl Makefile.pl make make test et make install) et lorsque j'essaye la commande (perl -e 'use SOAP::Lite;') pour tester le module, je reçoit l'erreur :

Can't locate Class/Inspector.pm in @INC

Merci

[Philou67430]

Le mien pour installer un module, c'est d'utiliser un installateur (ppm sous Windows, cpan sous U*ix). En effet, l'installateur installera automatiquement les modules requis.

Voir ici : http://djibril.developpez.com/tutori...ation-modules/

[abdou-wt]

Bonsoir

Merci à Philou67430, de m'avoir répondu : ça été trés utile.

Mais le problème qui se pose maintenent pour moi est que j'ai génére un WSDL avec le module SOAP::Lite et lorsque j'essaye de l'utiliser avec un client PHP ou meme un client PERL : il m'affiche une erreur '404 file not Found at c.PL line 7'

aidez-moi stp !

[Philou67430]

Là, ça me semble plutôt être un problème de serveur, pas de perl, non ?

[abdou-wt]

non, le serveur marche très bien : il est en local (localhost) et je l'ai testé

[Philou67430]

Peut-être n'as-tu pas installé les fichiers là où ils sont demandés ?

[abdou-wt]

Les fichiers sont bien placés mais Est-ce qu'il faut installer le PERL dans le Wamp ? car j l'ai installé en dehors du dossier Wamp ?

Voici mes codes :
WorldFunctions.pm (C:\Perl\SOAP-Lite\WorldFunctions.pm) : la classe de traitement

Code :

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

1
2
3
4
5
6
7
8
package WorldFunctions;
    sub new { bless {}, shift; }
    sub Hello { my ($s, $name) = @_;
            return 'Hello, ' . $name . "\n";
    }
    sub GoodBye { my ($s, $name) = @_;
            return 'Goodbye, ' . $name . "\n";
    }

a.pl (C:\Perl\SOAP-Lite\a.pl) : pour créer le fichier WSDL de la classe WorldFunctions.pm

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
#!/usr/bin/perl
    use WSDL::Generator;
    my $init = {
            'schema_namesp' => 'http://localhost/world/WorldFunctions.xsd',
            'services'      => 'WorldFunctions',
            'service_name'  => 'WorldFunctions',
            'target_namesp' => 'http://localhost/world',
            'documentation' => 'Simple Hello World SOAP Service.',
            'location'      => 'http://localhost/world'
    };
    my $w = WSDL::Generator->new($init);
    WorldFunctions->Hello('Joe');
    WorldFunctions->GoodBye('Joe');
    print $w->get(WorldFunctions); # Returns the WSDL code for a specific class
   open(TOTO,"<a.wsdl");
   close(TOTO);
   open(TOTO,">a.wsdl");
   print TOTO $w->get(WorldFunctions);
   close(TOTO);

c.pl (C:\Perl\SOAP-Lite\c.pl) : le client perl du fichier WSDL

Code :

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

1
2
3
4
5
6
7
#!perl -w
#!/usr/bin/perl 
use DBI();
use CGI;
use SOAP::Lite;
my $service = SOAP::Lite-> service('file:a.wsdl');   
print "test retour : |".$service-> Hello('Joe')."|";

Sachant que je utilise un serveur local (avec Wamp server) et j’ai copié WorldFunctions.pm dans ma répertoire localhost/world.

[abdou-wt]

Toujours pas de réponse

j'ai avancé unpeu et je suis bloqué sur un autre problème : lorsque j'execute le code qui suit, il m'affiche l'erreur "Could not find or load mod_perl at C:/Perl/site/lib/SOAP/Transport/HTTP.pm line 741"

mais j'ai installé le module mod_apache2 avec succés

Voici le code :

Code :

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

1
2
3
4
5
6
7
8
#!/usr/bin/perl
use SOAP::Transport::HTTP;
SOAP::Transport::HTTP::Apache
    -> dispatch_to('WorldFunctions')     
    -> handle;
 
package WorldFunctions;
sub new { bless {}, shift; }

Aidez-moi ! c'est urgent .

[Philou67430]

A mon avis, tu aurais tu poster dans http://www.developpez.net/forums/f47...ages/perl/web/
En tout cas, je ne suis pas assez compétent pour répondre.

[abdou-wt]

Merci en tout les cas