Connexion Web Perl Windows Fermé

Question

Salut tout le monde,

je suis sur un projet et il me faut réaliser une connexion à un site web (ex: google) en perl, sous windows.

Si quelqu'un posséde un corps ou, par miracle, le code entier, je lui serai reconnaissant de son aide précieuse.

Merci

Kharec · Answer

Salut, 

Je veux bien essayer de t'aider. Donne le maximum de précisions sur ton projet et on verra ce que l'on peut faire...

math74150 · Answer

Merci. Comme infos, je ne sais pas vraiment quoi te donner. Je débute en perl. Dis moi ce que tu veux savoir, j essairai de te donner le max

Kharec · Answer

En quoi consiste exactement le projet? Pourrais tu faire un récit détaillé de ce que tu attends du programme?

math74150 · Answer

Ba simplement j'aimerai pouvoir passer une adresse internet (ex. www.google.com) et que le programme me réalise la connexion à ce site. Je dois faire ce programme sous windows, n'ayant pas la possibilités de mettre linux et sinon le script doit être en perl.

Je n'ai pas vraiment d'autre info.

Kharec · Answer

Je dois faire ce programme sous windows, n'ayant pas la possibilités de mettre linux

Donc en gros le programme ouvre un navigateur et te connecte à l'adresse demandée. 
Il fonctionnera pour windows ou Linux?

math74150 · Answer

c'est exactement ca :) et le programme fonctionnera normalement sous windows. il doit tourner sur mon pc donc oui, sous windows

Kharec · Answer

D'accord.

Les outils:

- Notepad++ 
- ActivePerl 

;-))

math74150 · Answer

j'ai les deux mais plus ActivePerl

Kharec · Answer

Retélécharge le.

Ensuite, on réfléchira au problème, ensemble.

math74150 · Answer

ca y est, c fait :)

Kharec · Answer

Donc, le programme va démarrer une interface web, et se connecter à l'adresse demandée.

Nous aurons donc pour variables:

- Adresse demandée
- Nom et emplacement du navigateur

On est d'accord?

lami20j · Answer

Salut,

que le programme me réalise la connexion à ce site.
Se connecter, d'accord. Mais quoi faire? 

Un exemple use LWP::Simple;
$URL='www.google.com';
unless (defined ($contenu = get $URL)) {
    die "impossible de faire get $URL
";
}

math74150 · Answer

oui, on est d'acoord, auxcun paramètre en plus

Kharec · Answer

Donc, par la suite, le programme doit ouvrir le navigateur. Tu serais capable d'écrire l'algo?

math74150 · Answer

Euh, je pense pas. QU'est ce que tu voudrais que j'écrive comme algo ?

Kharec · Answer

Un algorithme est un énoncé d’une suite d’opérations (donc en français, une sorte de plan) permettant de donner la réponse à un problème. Cela précède à l'écriture du programme souhaité, et aussi y contribue pas mal.

math74150 · Answer

Je vais essayer clairement:

1- Rentrer l'adresse internet sur laquel se connecter
2- Récupérer le nom et l'emplacement du navigateur 
3- Réaliser la connexion avec le navigateur en ayant le nom du site

math74150 · Answer

Ah oui, je ne peux pas me servir du telnet aussi

Kharec · Answer

Tu n'as pas compris. 

Exemple:

Début 

variables
cj = code juste
ct = code taper

Lire ct

si 
     ct=cj

alors
     
     afficher: "code juste"

sinon

     afficher "code faux, fermeture de programme".

fin si

fin algo

Tu dois donc aussi utiliser les vraies formules de programmation :-)

lami20j · Answer

Re,

Se connecter d'accord?
Mais quoi faire après la connexion.
Puisque en fait quand tu tapes google.com dans ton navigateur il y a une connexion au site (le navigateur lance une requete GET) pour afficher la page.

Je t'ai donné un exemple ici http://www.commentcamarche.net/forum/affich 11914406 connexion web perl windows#12

math74150 · Answer

Ok, je vais ré essayer alor

Debut

variable:

Addr = www.google.com
NavName = Firefox
NavEmpl = ?


ouvrir firefox avec NavName, NavEmpl et Addr
afficher "Connexion reussi"

mieu ?

lami20j · Answer

Re,

J'ai fait un jour un exercice. Voir ici http://www.commentcamarche.net/forum/affich 2453825 perl reseaux?page=3#43

Il y a aussi une partie http (à adapter) - cette fois je confirme que chez moi ça a marché

'http'=> <<'FIN',
open DAEMON,">> log.exo"
    or die "E/S : $!\n";
if ( ($url = Net::HTTP->new(Host => "$surl")) and
	   ($url->write_request(GET => "/")) ) {
   print DAEMON "$date $surl valide et existe sur web\n";
   close DAEMON;
}
else {
   print DAEMON "$date $surl inexistant || hors connexion || format invalide\n";
   close DAEMON;
}
FIN

math74150 · Answer

lami20j, ton code permet de se connecter à un site internet ? car j'ai regardé ton exercice sur le lien et je t'avoue que j'ai rien compris. Si tu pouvais me dire simplement comment faire cette connexion, ce serai super :) merci

math74150 · Answer

Se connecter d'accord?
Mais quoi faire après la connexion.

Je souhaite pouvoir naviguer sur le site à partir de la connexion réaliser en perl, si tu vois ce que je veux dire en plus simple

KraD_74 · Answer

Essaye ça :

 #!/usr/bin/perl -w
    use strict;
    use IO::Socket::INET;

    # ouvre une connexion sur le serveur
    my $sock = IO::Socket::INET->new(
        PeerAddr => 'paris.mongueurs.net',
        PeerPort => 'http(80)',
        Proto    => 'tcp'
    ) or die "Impossible de se connecter";

    # envoie la requête
    print $sock "GET / HTTP/1.0\015\012Host: paris.mongueurs.net\015\012\015\012";

    # récupère la réponse
    my $page = do { local $/; <SOCK> };

    # ferme la connexion
    close $sock or die "close: $!";

math74150 · Answer

Déjà essayer, ca ne marche pas. Après, il ya peut etre des paramètre a changé ??

math74150 · Answer

lami20j,

le code que tu met en exemple affiche juste "impossible de fer get www.....".

et tu sur qu'il réalise une connexion ?

lami20j · Answer

Re,

#!/usr/bin/perl
use warnings;use strict;

use Net::HTTP;


my $url0='www.google.com';

if ( ($url = Net::HTTP->new(Host => "$surl")) and
	   ($url->write_request(GET => "/")) ) {
   print  "$surl valide et existe sur web
";
}
else {
   print  "$surl inexistant || hors connexion || format invalide
";
}
ouuse LWP::Simple; 
use URI::URL; 

my $url = url(' http://www.google.fr') ; 
$contenu = get($url); 
print "$contenu"
__END__

lami20j · Answer

Re,

Quand j'ai faut les tests sur l'exercice, j'ai bien testé.
Maintenant je ne peux rien te dire, je n'ai pas moyen de tester.
Je ne pourrai le faire que ce soir à la maison, mais bon, j'espère que tu arriveras jusqu'à ce soir ;-)

math74150 · Answer

use Net::HTTP;

j'ai un souci au niveau de cette ligne. quand je l'éxecute , il me met 

can't locate Net/HTTP.pm in @INC

et quand je vais dans mon dossier c:\perl\lib
et, je n 'ai pa le HTTP.pm

lami20j · Answer

Re,

Ah,d'accord.
Il faut installer le module.
Regarde ici https://djibril.developpez.com/tutoriels/perl/installation-modules/#LII

math74150 · Answer

Merci pour ton aide mais je ne vois pas du tout comment installer ce module. le lien que tu me donne me renvoi sur un site qui explique comment y faire mais je t'avoue que c'est assez flou pour moi :'(