J'ai récupéré une page web qui contient un formulaire, j'ai fais quelques recherches concernant le HTTP::FORM, mais je n'ai pas tout compris...
 
est ce que quelqu'un sait comment récupérer les données du formulaire, les mettre dans une variable afin de pouvoir l'utiliser apres ?

Je ne connais pas HTTP::FORM, de mon côté j'utilise surtout CGI :
http://search.cpan.org/~lds/CGI.pm-3.37/CGI.pm

ça existe pas http::form ...  
 
A la limite il y a bien http::Request::form , mais comme le disait Elmoricq je pense que tu devrais utilisé CGI ( et param ).

 
pouvez vous me dire si la syntaxe est correct s'il vous plait ?  
les variables $warningValue et $criticalValue proviennent d'une fonction qui les retournes ...

est ce que quelqu'un peut me corriger s'il vous plait ???
 
 
 
my $warningValue;
my $criticalValue;
&variables_formulaire($warningValue, $criticalValue);  
if (@$_[6] != $warningValue) {
  MIME::Lite->send("smtp", $ServeurSMTP, Timeout=>60);
  my $msg = new MIME::Lite  
            From    =>$mailfrom,  
            To      =>$mailto,            
            Subject =>'ATTENTION',
            Type    =>'TEXTE',    
            Data    =>"petit test... réalisé par No Future ! Attention vous avez atteint le niveau d'alerte actuellement de 0%! Votre pourcentage de licence utilisé est de : @$_[6] %";
  $msg -> send;}
 

Tout d'abord toujours mettre la ligne suivante au début de chaque script:

use strict;

Ce qui te permettra déjà d'obtenir les warnings ( ici sur la non-définition de différentes variables).

Ensuite pour te "corriger" il faudrait déjà avoir une idée de ce qui ne va pas ( et accèssoirement de ce que fait "variables_formulaire" )

en fait, ma fonction, recupérère deux valeurs d'un formulaire. Qui sont deux chiffres... et les retourne a la fin,
 
je vous mettrai le code si besoin est... mais la je dois rentrer...

pour la fonction j'ai trouvé, j'etais un peu loin de la vérité...

my $warningValue;  
my $criticalValue;  
&variables_formulaire(\$warningValue, \$criticalValue);  
Tes variables sont passées par référence, et sont donc modifiées au retour de l'appelante. Par contre, il te faudra modifier le corps de ta procédure variables_formulaire, et utiliser la notation $$variable à la place de $variable pour les deux paramètres.
A+,

Voici, ce que j'ai mis en code dans tab.pl... là où il j'appelle la fonction variables_formulaire...
Les sub higherLevel... me permettre de résoudre ce probleme :

Can't use string ("
<!-- Added for UTF-8 page enco" ) as an ARRAY ref while "strict refs" in use at tab.pl line
 84.
 
 

 
 
ce code ci, est la fin de ma fonction, ou procedure, variables_formulaire...
j'ai rajouté les $$ comme tu m'as dit... sauf dans "my" sinon ça marchait pas...
 mais j'ai cette erreur là :
Can't use string ("75" ) as an ARRAY ref while "strict refs" in use at tab.pl line 74.
 
 

 
je cherche mais ne trouve pas comment, résoudre ce problème.
 
Gilou, j'ai testé le code que tu m'as donné  

 
mais j'ai l'erreur, avec UFT-8...

Comme je te l'ai déja dit, il faut vraiment que tu apprennes le perl.
Programmer a l'aveuglette comme tu le fais, ca fait qu'au final tu passes des semaines sur quelque chose qui ne devrait prendre que quelques heures.
 
Si je comprends vaguement quelque chose ici, ca devrait être le corps de la procedure variables_formulaire que tu donnes:

 
Bon, c'est bien sur faux.
 
En entrée on a quoi? $response->content
En sortie on a $warningValue, et $criticalValue.
 
Donc déja, la procédure va prendre $response->content en entré, les effets de bord, c'est mal, quand il n'y a aucune raison spécifique a leur emploi.
Et elle va donner $warningValue, et $criticalValue en sortie.
 
$response->content  est relativement gros, donc on va le passer par reference:  
variables_formulaire(\$response->content, ...)
Pour $warningValue, et $criticalValue qui sont de petites valeurs numeriques, un passage par copie n'est pas couteux.
Donc on peux soit les passer par reference:
my ($warningValue, $criticalValue);  
variables_formulaire(\$response->content,  \$warningValue, \$criticalValue);  
soit les recuperer par copie au retour de la procedure:
my ($warningValue, $criticalValue) = variables_formulaire(\$response->content);
cette seconde methode est plus nette dans ce cas, et je vais la choisir.
Ca donne alors:

 
Tes expressions reguliereres etaient totallement fausses, vu l'emploi direct de caracteres qui ont un sens spécial dans les expressions regulieres comme < ou ".
Enfin, ce que tu voulais matcher par (.*?) c'est mauvais pour plusieurs raisons:  
*? c'est *, le ? est inutile ici. donc (.*?) ca fait (.*)
(.*?) va matcher tout sauf un \n. ca va donc matcher un "  (le fait de mettre un " apres le (.*?) ne joue pas ici: en perl, les expressions regulieres prennent le maximum de ce qu'elles peuvent. ca va donc matcher tout jusqu'au dernier " de $response->content  et non pas s'arreter au premier ". Pour s'arreter, il fut dire explicitement de matcher tout sauf un ", d'ou [^"]+
[^"]+ est plus efficace qu"un non-greedy match lorsqu'on s'arrete a la premiere rencontre du caractere "
 
A+,

À ce stade, je ne saurais trop conseiller une étude intensive de la documentation librement disponible sur le site officiel de PERL : http://perldoc.perl.org

Y'a boulette dans l'explication là...

le ? après un quantifier (*,+, ?, {...}) transforme la recherche en "non-greedy" , il n'a pas le même sens que  derrière un autre caractère où il equivaut alors à {0,1} .

Donc ces regexs étaient bonnes ( mais les tiennes le sont également).
Mais il me semble dangereux de mettre un + car si le motif est value="" ça va rien matcher du tout.

ça veut dire quoi subroutine Undifine &main:: ... ?

Certes, mais je connais ses données, et elle ne le teste pas de toute facon...
 
Pour le ?, oui, c'est juste, je n'emploie jamais ca ou presque, alors j'ai tendance a oublier (et a melanger cela avec la maniere dont ca marche dans les XML schémas) Mea Culpa .
A+,

Tu appelles un subroutine pas definie. Une histoire de nom ou de proto?
A+,

tout à fait, je donnais juste mon point de vue  

C'est ballot, je trouve justement que c'est une des force des regexs PCRE par rapport aux POSIX, mais bon les goûts et les couleurs.

J'ai toujours eu l'impression que si le contexte a droite était compliqué, l'algo de match devenait beaucoup moins efficace, et comme dans une majorite de cas, il est facile de faire une expression reguliere greedy équivalente...
A+,

Ah ben je l'utilise très souvent l'opérateur de gourmandise, moi, comme anapajari je trouve que c'est l'un des gros plus du PCRE.

Can't use string ("
<!-- Added for UTF-8 page enco" ) as an ARRAY ref while "strict refs" in use at tab.pl line
 
ça veur dire quoi ça ? c'est un problème de reference...

ça veut dire que tu passes une chaine de caractère à un endroit où il attend une référence sur un tableau!
Montre nous la ligne qui correspond à l'erreur.

#juste avant, j'ai l'appel de ma fonction, et dans le si, j'utilise une valeur de ma fonction.
 
if (@$_[6] < $warningValue) {

a cet endroit dans ton script $_ n'est pas un tableau mais une chaine de caractère qui commence par "<!-- Added for UTF-8 page enco..."

edit: au pif je dirais que c'est ton content

bizarre...

Pas bizarre du rout:
if (@$_[6] != $alerte[0]->[0])  
@alerte est defini comme un tableau contenant deux valeurs qui sont des scalaires, c'est donc tres clair.
A+,

nan pas bizarre ... $_ est une variable "générique" qui peut être modifiée par énormément de chose.
Tu as d'ailleurs un exemple dans la doc.
Par contre plutôt que d'utiliser local qui est une infamie, je te recommanderai de nommer ta variable à sa 1ere utilisation.
edit: ça plus  ce que dit Gilou

voici un message d'erreur :
 
Can't use an undefined value as a SCALAR reference at...
 

 
voilà, lorsque je If (  @....) n'est pas là, L'appel de ma fonctionne fonctionne correctement, et m'affiche mes valeurs... Mais lorsque je raconte mon if(@...), il me met un message d'erreur... (mais j'en ai absoluement besoin, c'est pour envoyer mes mails...)
 
code d'erreur :

 
la ligne 101 correspond au if.

Tu comprends le message d'erreur et de quelle variable il se plaint?
Si oui, tu comprendras qu'on ne puisse repondre a ta question, vu l'insuffisance des informations que tu donnes.
A+,

je ne comprend pas bien, non, sinon j'aurais peut etre pu le resoudre depuis, je l'ai cette erreur...et que j'en parle...

C'est tout bien expliqué là ce qui ne va pas ...
 

Moi ça ne me parle pas...
 
et puis, j'ai testé le retour de mes variable avant le if, avec un print $$ ma variable, et cela fonctionne tres bien ! il me les affiches,
 
mais le IF... bah non, ça marche pas, j'ai remplacé ces variables par 0==0 et il me mais la même erreur pour une ligne plus bas où il y a:
 
my $msg = new MIME::Lite  
 
alors que ce code marchait tres bien avant...

ce code ci fonctionne tres bien !
 

 
il m'affiche ceci :

 
c'est bien ce que j'ai demandé avec les bonnes valeurs...
 
donc j'en conclu que c'est dans le mail... que ça ne marche pas...
 
donc je vous presente mon code pour le mail :
 

 
voilà... j'ai en module :
 
use warnings;
use strict;
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;
use HTTP::Status;
use MIME::Lite;
use Encode;
 
merci d'essayer de trouver ce qui ne va pas !

elle a modifié et teste sur un scalaire maintenant
if (@$_[6] == $warningValue)
ce qui est bon a priori
Donc je suppose que si le message d'erreur perdure avec un scalaire, c'est que @$_[6] n'est plus valable, mais comme on ne sait pas a ce stade comment est assigné $_, vu le petit bout de code ne donnant pas du tout le contexte, il n'y a pas de risque qu'on puisse repondre.
 
A+,
 

Sauf que si ca marche la, c'est que tu ne fais pas ce qu'il faut correctement dans variables_formulaire.
En effet, tu definis des scalaires.
Au retour de la fonction, ce devrait donc etre des scalaires et non pas des references sur des scalaires qui devraient etre retournés.
Comme je l'ai dit, sans voir plus de code...
A+,

j'ai corrigé la syntaxe de min if, dans lequel il manquait des parenthèses...  
 

les $$ d'apres les cours, déréférence.. et non référence...
 
sinon voici ce qu'il y avait avant :
 
   }
        if (/\<\/tr>/ and $startvector and not $endtable) {
            push @data, $vector;
            $startvector = 0;
        }
    }
}
 
foreach (@data) {
     
  print @$_[0],"  ",@$_[1],"  ",@$_[2],"  ",@$_[3],"  ",@$_[4],"  ",@$_[5],"  ",@$_[6],"\n";
  }
   
print "\n\n";
 
tu devrais reconnaître ce bout de code.

Oui, mais une fois que tu es sortie de la boucle foreach (@data) {...}
$_ n'est plus en contexte, et donc @$_[0],...@$_[6], ne designent plus des expressions valides.
Copier coller un bout de code, c'est bien, mais encore faut il le comprendre.
A+,
 

Mais vire moi ces @ devant tes $_[.] !!!
A chaque itération du foreach, ton $_ est un pointeur sur un tableau .
Pour le déréférencer, il vaut mieux utiliser $ ( comme tu le dit toi même ) et non @.
Par ailleurs, je t'ai dit de nommer tes variables ça serait quand même plus clair!

foreach my $v(@data){
  print $$v[0], ..., $$v[6];
  # autre écriture pour bien voir la référence: 
  print  $v->[0], ... , $v->[6];
}

Oui, mais quand on dereference quelque chose, encore faudrait il l'avoir defini comme une reference.
La, sans le code de variables_formulaire sous les yeux, personne ne peut savoir que tu as rempli $warningValue et $criticalValue par des references, surtout que dans ce contexte, ça ne s'impose pas.
A+,