Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Langage Perl probleme avec HTTP::Request

probleme avec HTTP::Request

3 réponses
Avatar
Régine
Bonjour =E0 tous,
je souhaite pouvoir mettre des variables dans la ligne suivante:

$req->content('username=3D$User&password=3D$Pass&msisdn=3D$Number&message=
=3D$Msg&cost_route=3D2');

si j'=E9crit:
$req->content('username=3Dtoto&password=3Dcoucou&msisdn=3D33678724542&messa=
ge=3DBonjour
=E0 tous&cost_route=3D2');
Cela fonnctionne sans probl=E8me

Je n'arrive pas =E0 lui faire avaler des variables...
Merci pour votre aide
Cordialement
R=E9gine

Le bout de code complet
-------------------------------------------
use LWP::UserAgent;

my $ua =3D LWP::UserAgent->new(timeout =3D> 30);
my $req =3D HTTP::Request->new(POST
=3D>'http://bulksms.vsms.net:5567/eapi/submission/send_sms/2/2.0');
$req->content_type('application/x-www-form-urlencoded');
$string;
$req->content('username=3D$User&password=3D$Pass&msisdn=3D$Number&message=
=3D$Msg&cost_route=3D2');
my $res =3D $ua->request($req);
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
Régine
Bon, je dois dire que ce code m'a été donné par mon fournisseur de
SMS...
J'ai (bricollé) un autre script qui n'est pas des plus beau mais il
fonctionne le voici:
--------------------------------------------------------------------------- ---------------------
use LWP::Simple;
getprint("http://bulksms.vsms.net:5567/eapi/submission/send_sms/2/2.0?usern ame=$User&password=$Pass&msisdn=$Number&message=$Msg&cost_route=1 ");
--------------------------------------------------
Enfin, ça ira et je tiens à vous remercier.
Bien à vous
Régine



Bonjour à tous,
je souhaite pouvoir mettre des variables dans la ligne suivante:

$req->content('username=$User&password=$Pass&msisdn=$Number&message =$Msg&cost_route=2');

si j'écrit:
$req->content('username=toto&password=coucou&msisdn3678724542&mes sage=Bonjour
à tous&cost_route=2');
Cela fonnctionne sans problème

Je n'arrive pas à lui faire avaler des variables...
Merci pour votre aide
Cordialement
Régine

Le bout de code complet
-------------------------------------------
use LWP::UserAgent;

my $ua = LWP::UserAgent->new(timeout => 30);
my $req = HTTP::Request->new(POST
=>'http://bulksms.vsms.net:5567/eapi/submission/send_sms/2/2.0');
$req->content_type('application/x-www-form-urlencoded');
$string;
$req->content('username=$User&password=$Pass&msisdn=$Number&message =$Msg&cost_route=2');
my $res = $ua->request($req);


Avatar
Patrick Texier
Le 1 Sep 2006 10:25:11 -0700, "Régine" a écrit :

getprint("http://bulksms.vsms.net:5567/eapi/submission/send_sms/2/2.0?username=$User&password=$Pass&msisdn=$Number&message=$Msg&cost_route=1");

je souhaite pouvoir mettre des variables dans la ligne suivante:

$req->content('username=$User&password=$Pass&msisdn=$Number&message=$Msg&cost_route=2');



C'était tellement gros que je n'avais vu les ' à la place des "
nécessaires pour interpoler les variables.


Avatar
Régine
J'avoue que moi non plus....Ce doit être la fatique. Désolée et
merci ça m'a aidé.
Cordialement
Régine



getprint("http://bulksms.vsms.net:5567/eapi/submission/send_sms/2/2.0?u sername=$User&password=$Pass&msisdn=$Number&message=$Msg&cost_route =1");

je souhaite pouvoir mettre des variables dans la ligne suivante:

$req->content('username=$User&password=$Pass&msisdn=$Number&mes sage=$Msg&cost_route=2');



C'était tellement gros que je n'avais vu les ' à la place des "
nécessaires pour interpoler les variables.