Perl

Erreur d'exécution de perl

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Erreur d'exécution de perl

dynlevirus

Bonjour,
j'ai fait un module perl afin de faire un traitement de données d'un formulaire mais le problème est que quand je lance le traitement j'ai l'erreur suivante:
Error: Protocol scheme 'http' is not supported
Pouvez vous m'aidez svp??
Merci

Publicité

Elmoricq

Modérateur

Il manque un point-virgule à la ligne 42.

Message cité 1 fois

dynlevirus

je crois qu'il faut être un peu sérieux!!!

Message cité 1 fois

anapajari

s/travail/glanding on hfr/gs;

Elmoricq a écrit :

Il manque un point-virgule à la ligne 42.

dynlevirus a écrit :

je crois qu'il faut être un peu sérieux!!!

Excuse Elmoricq, son editeur plante si les lignes sont trop grandes. Donc Elmoricq parlait bien entendu de la ligne 38, là ou tu fais ta double affection inversée en spirale péruvienne ( pas terrible pour la lisibilité mais tellement beau à lire). Je te conseillerais plutot de passer par la méthode E.S.T.F.L.C, developpé dans les années 70 pour le programme arianne.

Rappel: E.S.T.F.L.C est l'acronyme de ET SI TU FILAIS LE CODE /FOU /FOU /FOU

Message édité par anapajari le 16-05-2006 à 09:29:14

dynlevirus

Pardon j'ai oublié le code perl

Code :

#!/usr/bin/perl -w
###########################################
use warnings;
use strict;
use CGI::Carp qw(fatalsToBrowser);
use Net::Amazon;
use Log::Log4perl qw(:easy);
Log::Log4perl->easy_init($DEBUG);
read(STDIN, my $donnees, $ENV{'CONTENT_LENGTH'});
my @champs_formulaire = split(/&/, $donnees);
my ($champ, $nom, $valeur);
my %formulaire;
foreach $champ (@champs_formulaire) {
(my $nom, my $valeur) = split(/=/, $champ);
$valeur =~ tr/+/ /;
$valeur =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$valeur =~ s/</</g;
$valeur =~ s/>/>/g;
$formulaire{$nom} = $valeur;
}
my $ua = Net::Amazon->new(
token => '18QTWVDHQ3XVS1482E82',
);
my $resp;
if($formulaire{choix} eq 'livres'){
if (length($formulaire{cb})=="13" )
{ $formulaire{cb} = &isbn($formulaire{cb});}
$resp = $ua->search(
asin => $formulaire{cb}
);
}
else
{
$resp = $ua->search(
upc => $formulaire{cb},
mode => "music"
);
}
print "Content-type: text/html\n\n";
print "<html><head><title>Resultat de la recherche</title></head>\n";
print "<body><h1>Résultat de votre recherche</h1>\n";
if($resp->is_success()) {
my @t=split(', ', $resp->as_string());
print "Auteur : $t[0]\n<br>";
print "Titre : $t[1]\n<br>";
print "Date d'édition : $t[2]\n<br>";
print "Prix : $t[3]\n<br>";
print "ISBN : $t[4]\n<br>" if($formulaire{choix} eq 'livres');
print "ASIN : $t[4]\n<br>" if($formulaire{choix} ne 'livres');
} else {
print "Error: ",
$resp->message(), "\n";
}
#print "<p>$resp</p>\n";
print "";
print "</body></html>\n";

Elmoricq

Modérateur

J'ai pas regardé en profondeur, mais pourquoi tu n'utilises pas le module CGI, plutôt que d'analyser toi-même la chaîne de paramètres ?

Ensuite l'erreur vient probablement d'un des modules que tu utilises, Net::Amazon par exemple, mais je ne le connais pas et je ne peux l'utiliser sur ma machine.
Peux-tu isoler l'erreur, ou nous dire à quelle ligne ça plante ?

dynlevirus

Justement je ne sais d'où proviens l'erreur. Quand je lance le traitement du formulaire en local (via easyphp) ça marche mais une fois sur le serveur il déconne. Quant à l'analyse de la chaîne de paramètres je ne pense pas qu'elle rentre en compte dans l'erreur. Ca me met juste:

Citation :

Error: Protocol scheme 'http' is not supported

Message cité 1 fois

anapajari

s/travail/glanding on hfr/gs;

dynlevirus a écrit :

Quand je lance le traitement du formulaire en local (via easyphp)

[:pingouino] WTF???
Peux tu décrire un peu plus l'architecture sur lequel tu fais tes tests?

edit: easyphp fonctionne sur windows pour du php la tu es en perl et en plus la ligne

Code :

#!/usr/bin/perl -w

Laisse plutot penser que tu utiliserais linux

Message édité par anapajari le 16-05-2006 à 14:19:56

dynlevirus

en fait j'ai un formulaire html qui se traite via perl. Donc j'ai modifier la configuration de easyphp afin de pouvoir y traiter les formulaires en perl. Une fois le formulaire remplit, il "envoie" les informations à perl qui les traite en utilisant internet. En gros je fais une recherche sur une base de données distante.

Message cité 2 fois

anapajari

s/travail/glanding on hfr/gs;

dynlevirus a écrit :

je suis désolé mais je comprends toujours pas comment ton truc marche [:pingouino]

Je vais tenter une reformulation
- tu as installé easyphp sur ton post en local
- tu as un site en php/html qui tourne dessus
- sur une des pages tu as un formulaire donc l'action est "http://www.unsite.com/unscript.pl"
c'est ça?

Publicité

dynlevirus

oui c'est bien ça. Maintenant quand je mets tout ça sur un serveur (site internet) ça me retourne l'erreur indiqué plus haut

anapajari

s/travail/glanding on hfr/gs;

~~ton "serveur(site internet)" il supporte perl?~~
edit: Complètement con

Quand tu dis "tout ça" tu parles de ton formulaire html on est d'accord?
Tu as l'adresse du site en question?

Message édité par anapajari le 17-05-2006 à 09:48:49

dynlevirus

http://esstin.eupholister.com
Quand je dis tout ça je parle du fait que le formulaire est bien pris en compte et traité par perl

Message édité par dynlevirus le 17-05-2006 à 09:52:21

anapajari

s/travail/glanding on hfr/gs;

et bien je pense que sur ton serveur le module Net-Amazon merdouille

dynlevirus

comment faire pour savoir ce qui ne marche pas sur le serveur car tout marche en local. La recherche se passe parfaitement.

FORUM HardWare.fr

Programmation

Perl

Erreur d'exécution de perl

Sujets relatifs
php / mysql erreur enregistrement	[Perl] telnet connexion!! (resolu)
[php/sql] temps d'execution	Avoir la main pendant une exécution
aidez moi avec perl :mettre les données d'un fichier dans un tableau	éxécution de html dans un script java
[Résolu] PHP + IIS = erreur d'extension mysql	Erreur de compilation lié à la généricité et type dérivé de Finalizat°
[Résolu] Erreur w3c que je ne comprends pas	erreur d'execution des CGI en pêrl
Plus de sujets relatifs à : Erreur d'exécution de perl

Page générée en 0.078 secondes