Perl

[Perl] Navigation dans un site + remplissage de formulaires

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Perl] Navigation dans un site + remplissage de formulaires

Z_cool

HFR profile rating:⭐⭐⭐⭐

Salut,

j y connais rien o perl, mais on ma dit que ce que je voulais fair etait faisable avec ca :

en fait, j ai un programme ki me genere des formulaire HTML automatiquement mais cela ne conviennent pas exactement a mon besoin (certain champs devraient etre caché,...)

je souhaite donc refaire une interface Web ki rentre les info dans l autre page WEB.

est ce ke kk1 aurrait un exemple d un tel programme ?

Message édité par Z_cool le 02-03-2004 à 14:10:22

---------------
#mais-chut

Publicité

jagstang

Pa Capona ಠ_ಠ

tu peux me montrer la page que tu veux utiliser ?

---------------
What if I were smiling and running into your arms? Would you see then what I see now?

Z_cool

HFR profile rating:⭐⭐⭐⭐

ba non, c est un serveur interne a mon entreprise.

---------------
#mais-chut

Z_cool

HFR profile rating:⭐⭐⭐⭐

en gros, ca commence avec une page d authentification (user pass) puis apres il y a pas mal de champs de formulaire.

en fait, moi je voudrais decomposer certain champs :

page original page reelelement affiché

un champs text <----> concatenation <--> plusieur champs text

Message édité par Z_cool le 02-03-2004 à 11:38:28

---------------
#mais-chut

Z_cool

HFR profile rating:⭐⭐⭐⭐

plus personne ?

---------------
#mais-chut

Z_cool

HFR profile rating:⭐⭐⭐⭐

ah ba non, vraiment plus personne

---------------
#mais-chut

anapajari

s/travail/glanding on hfr/gs;

c'est a dire que ta question est pas super claire non plus. Sachant que tu n'as toi même pas trop l'air de savoir ce que tu veux et qu'en plus tu ne peux rien montrer je vois pas trop comment on peut t'aider...

v10ware

Je crois que ce qu'il veut, c'est recreer lui meme un formulaire, et faire un script qui, a la soumission du formulaire, recupere les valeurs et les transmet a la page web d'origine qu'il ne souhaite pas utiliser directement.

Ca doit certainement pouvoir se faire en perl (j'y connais rien) et il est quasi sur que ca se fait en php.

Quant a le coder, j'ai pas le temps, desole

Z_cool

HFR profile rating:⭐⭐⭐⭐

v10ware a écrit :

ouai c est ca ke je veux fair.

en gros, c est afficher un formulaire, ki a sont execution entre les donnees dans une autre formulaire

---------------
#mais-chut

anapajari

s/travail/glanding on hfr/gs;

si en plus tu te mets à ecrire en seumeuseu je vais me mettre à pleurer....

Bref ta question est donc: "Comment faire un script perl qui pré-remplisse les champs d'un formulaire d'une page html existante?" on est d'accord?

Je vais supposer que tous tes champs text sont des inputs ni plus ni moins.
Je suppose aussi que tu sais faire le nouveau formulaire qui envoie les données au script perl

Code :

#!/usr/bin/perl
use strict;
use CGI;
### on lit la page html dans laquelle on doit faire les remplacements
my $source_file = "chemin/vers/ta/page.html";
open(SOURCE, $source_file) || die "Impossible d'ouvrir le fichier $source_file" ;
my $data = join "", <SOURCE>;
close(SOURCE);
### boucle pour chacun des params
foreach $prm_name (CGI::param) {
### on récupère la valeur du param
$current_value=CGI::param($prm_name);
### remplacement dans le code de l'ancien formulaire
$data =~ s/<input(.*?)name="$prm_name"(.*?)value=""(.*?)>/<input$1name="$prm_name"$2value="$current_value"$3>/i;
}
print $data;
exit;

gaffe a comment est configurer ton apache pour les headers.

[edit]
ah oui j'ai oublié de préciser qu'il faut que les champs de ton nouveau formulaire portent le même nom que ceux de l'ancien...

Message édité par anapajari le 02-03-2004 à 13:44:57

Publicité

Z_cool

HFR profile rating:⭐⭐⭐⭐

Anapajari a écrit :

Code :

#!/usr/bin/perl
use strict;
use CGI;
### on lit la page html dans laquelle on doit faire les remplacements
my $source_file = "chemin/vers/ta/page.html";
open(SOURCE, $source_file) || die "Impossible d'ouvrir le fichier $source_file" ;
my $data = join "", <SOURCE>;
close(SOURCE);
### boucle pour chacun des params
foreach $prm_name (CGI::param) {
### on récupère la valeur du param
$current_value=CGI::param($prm_name);
### remplacement dans le code de l'ancien formulaire
$data =~ s/<input(.*?)name="$prm_name"(.*?)value=""(.*?)>/<input$1name="$prm_name"$2value="$current_value"$3>/i;
}
print $data;
exit;

gaffe a comment est configurer ton apache pour les headers.

[edit]
ah oui j'ai oublié de préciser qu'il faut que les champs de ton nouveau formulaire portent le même nom que ceux de l'ancien...

merci, la ou ca ce complique, c est source file n existe pas, il est generé o moment de l appel

et il fo deja gerer une page de user/pass, et kke click a la souris.

mais cela me permet de mieux comprendre

---------------
#mais-chut

anapajari

s/travail/glanding on hfr/gs;

oui bin la je m'arrete parce que ça sent bon le truc de spammer ton histoire ...

Z_cool

HFR profile rating:⭐⭐⭐⭐

oui, je reconnais ke ca peut sembler illegale, mais ce n est pas le cas.

si je t explique la totalité du projet, veux tu bien m aider en MP ?

en fait, c est pour utiliser l interface Web du programme eTrust Admin de computer Associate.

le probleme, c est ke cette interface WEB n est pas du tout flexible et ne permet donc pas de s adapter au besoin de ma boite, et je cherche donc un moyen de customiser ca, et c est l un des seul moyen ke j ai trouvé.

plus de details ?

Message édité par Z_cool le 02-03-2004 à 14:06:29

---------------
#mais-chut

Z_cool

HFR profile rating:⭐⭐⭐⭐

bon ba on dirait ke ca veux dir non.

merci

---------------
#mais-chut

anapajari

s/travail/glanding on hfr/gs;

Z_cool a écrit :

bon ba on dirait ke ca veux dir non.

merci

, je vais pas non plus faire ton boulot
mais c'est pas super compliqué à faire maintenant que tu as les idées du début...
La seule chose qu'il faut que tu apprennes maintenant c'est comment faire pour récuperer une page 'distante' ( http://ton.serveur/ton/script/qui/genetere/tapage.pl) au lieu d'une page 'local' ( chemin/vers/ta/page.html )

Z_cool

HFR profile rating:⭐⭐⭐⭐

rien compris

tant pis

---------------
#mais-chut

Z_cool

HFR profile rating:⭐⭐⭐⭐

personne d autre pour m expliker ?

parce ke meme l open d un site distant j y arrive pas

---------------
#mais-chut

Z_cool

HFR profile rating:⭐⭐⭐⭐

reelement personne pour m expliker ?

---------------
#mais-chut

pospos

bon j'ai rien suivit à ce topic, mais ce que tu appel 'lopen d'un site distant' ca doit etre recuperer une page en http c'est ca?

use LWP::Simple;
my $page = get('http://...');
# si ya rien dans $page c'est qu'il y a eu une erreur

FORUM HardWare.fr

Programmation

Perl

[Perl] Navigation dans un site + remplissage de formulaires

Sujets relatifs
Afficher Chaque Jour Un "site Du Jour" Choisi Aléatoirement	Besoin d'aide pour restructuration de site web
Recherche script pour site perso	comment creer un site dans le même style que celui ci
Quand on redirige un site, on peut masquer l'adresse originale ?	[Perl] Installer Perl est des modules
[perl] tableau et hash	j arrive pas a avancer dans ma video WMV de mon site web
Site MySQL en Français :)	[HTML/CSS] Entourer un site d'une bordure de 1pixel ...
Plus de sujets relatifs à : [Perl] Navigation dans un site + remplissage de formulaires

Page générée en 0.074 secondes