Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Emmanuel Florac
Le Wed, 10 Aug 2011 17:20:33 +0200, Chloe Sival a écrit:
Quelqu'un a deja fait cela ?
Tu as réussi à te connecter à l'url? Le mieux c'est d'utiliser WWW::Mechanize, comme ceci :
use strict; use warnings; use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
my $url="http://watever/?wut";
$response = $mech->get( $url );
Ensuite tu peux utiliser $response... Voir la doc de WWW::Mechanize...
-- Socialism never took root in America because the poor see themselves not as an exploited proletariat, but as temporarily embarrassed millionaires. John Steinbeck
Le Wed, 10 Aug 2011 17:20:33 +0200, Chloe Sival a écrit:
Quelqu'un a deja fait cela ?
Tu as réussi à te connecter à l'url? Le mieux c'est d'utiliser
WWW::Mechanize, comme ceci :
use strict;
use warnings;
use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
my $url="http://watever/?wut";
$response = $mech->get( $url );
Ensuite tu peux utiliser $response... Voir la doc de WWW::Mechanize...
--
Socialism never took root in America because the poor see themselves not
as an exploited proletariat, but as temporarily embarrassed millionaires.
John Steinbeck
Le Wed, 10 Aug 2011 17:20:33 +0200, Chloe Sival a écrit:
Quelqu'un a deja fait cela ?
Tu as réussi à te connecter à l'url? Le mieux c'est d'utiliser WWW::Mechanize, comme ceci :
use strict; use warnings; use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
my $url="http://watever/?wut";
$response = $mech->get( $url );
Ensuite tu peux utiliser $response... Voir la doc de WWW::Mechanize...
-- Socialism never took root in America because the poor see themselves not as an exploited proletariat, but as temporarily embarrassed millionaires. John Steinbeck
Le Wed, 10 Aug 2011 17:20:33 +0200, Chloe écrivait:
Bonjour,
Bonjour,
Début de piste:
#!/usr/bin/perl use strict; use warnings;
use English qw(-no_match_vars); use Encode;
sub usage { my $name = shift; print <<"EOF" $name method file.xml EOF ; return; }
if (scalar @ARGV != 2) { usage($PROGRAM_NAME); exit 1; }
my $method = shift; my $file_name = shift;
if (! -f $file_name) { usage($PROGRAM_NAME); } open my $fh, '<', $file_name or die "open '$file_name': $!n"; my $xml_request = do { local $INPUT_RECORD_SEPARATOR = undef; <$fh> }; close $fh or die "close '$file_name': $!n";
my $soap = SOAP::Lite->new( uri => $ENV{SOAP_URI}, proxy => $ENV{SOAP_PROXY}, );
my $xml_header = <<"EOF" <username>USERNAME</username> <password>PASSWORD</password> <logicaladdress>$method</logicaladdress> EOF ;
my $header = SOAP::Header->type('xml' => encode('utf8', $xml_header)); my $request = SOAP::Data->type('xml' => $xml_request); my $res = $soap->$method($header, $request);
Le Wed, 10 Aug 2011 17:20:33 +0200, Chloe écrivait:
Bonjour,
Bonjour,
Début de piste:
#!/usr/bin/perl
use strict;
use warnings;
use English qw(-no_match_vars);
use Encode;
sub usage {
my $name = shift;
print <<"EOF"
$name method file.xml
EOF
;
return;
}
if (scalar @ARGV != 2) {
usage($PROGRAM_NAME);
exit 1;
}
my $method = shift;
my $file_name = shift;
if (! -f $file_name) { usage($PROGRAM_NAME); }
open my $fh, '<', $file_name or die "open '$file_name': $!n";
my $xml_request = do { local $INPUT_RECORD_SEPARATOR = undef; <$fh> };
close $fh or die "close '$file_name': $!n";
my $soap = SOAP::Lite->new(
uri => $ENV{SOAP_URI},
proxy => $ENV{SOAP_PROXY},
);
my $xml_header = <<"EOF"
<username>USERNAME</username>
<password>PASSWORD</password>
<logicaladdress>$method</logicaladdress>
EOF
;
my $header = SOAP::Header->type('xml' => encode('utf8', $xml_header));
my $request = SOAP::Data->type('xml' => $xml_request);
my $res = $soap->$method($header, $request);
Le Wed, 10 Aug 2011 17:20:33 +0200, Chloe écrivait:
Bonjour,
Bonjour,
Début de piste:
#!/usr/bin/perl use strict; use warnings;
use English qw(-no_match_vars); use Encode;
sub usage { my $name = shift; print <<"EOF" $name method file.xml EOF ; return; }
if (scalar @ARGV != 2) { usage($PROGRAM_NAME); exit 1; }
my $method = shift; my $file_name = shift;
if (! -f $file_name) { usage($PROGRAM_NAME); } open my $fh, '<', $file_name or die "open '$file_name': $!n"; my $xml_request = do { local $INPUT_RECORD_SEPARATOR = undef; <$fh> }; close $fh or die "close '$file_name': $!n";
my $soap = SOAP::Lite->new( uri => $ENV{SOAP_URI}, proxy => $ENV{SOAP_PROXY}, );
my $xml_header = <<"EOF" <username>USERNAME</username> <password>PASSWORD</password> <logicaladdress>$method</logicaladdress> EOF ;
my $header = SOAP::Header->type('xml' => encode('utf8', $xml_header)); my $request = SOAP::Data->type('xml' => $xml_request); my $res = $soap->$method($header, $request);