Discussion :

[bennyben87]

Bonjour,
Je cherche à récupèrer une page http sur un serveur.
J'ai réussi à m'authentifier et à afficher la page sur la console.Mais malheureusement je ne comprend pas comment faire pour enregistrer cette page dans un document .txt par exemple.

Voila ce que j'ai utilisé:
use LWP::UserAgent;
$ua = LWP::UserAgent->new;
$req = HTTP::Request->new(GET => 'http://www.linpro.no/secret/');
$req->authorization_basic('aas', 'mypassword');
print $ua->request($req)->as_string;

ce programme écrit le contenu de la page sur la console.

Je veus qu'il l'écrive sur un fichier...Mais je n'y arrive pas (je ne comprend pas pourquoi d'ailleurs).

Voilà si quelqu'un a une idée...

Merci d'avance.

[djibril]

au lieu de faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

print $ua->request($req)->as_string;

tu fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
my $code_page = $ua->request($req)->as_string;
 
open(FILE, ">toto.txt");
print FILE $code_page;
close(FILE);

voilà

[bennyben87]

Justement j'allais dire que j'avais trouvé.
En tout cas je te remercie pour cette réponse ci rapide.
Bonne journée.

[Darktroll]

Je profite de ce message pour faire part d'un problème que je rencontre :

J'ai à peu près le même code que bennyben87, mais mon fichier destination ne reçoit qu'un message d'erreur :

500 Can't connect to www.developpez.net:80 (connect: Unknown error)
Content-Type: text/plain
Client-Date: Thu, 07 Aug 2008 15:29:07 GMT
Client-Warning: Internal response

500 Can't connect to www.developpez.net:80 (connect: Unknown error)

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
#!/usr/bin/perl -w
 
use LWP::UserAgent;
 
$a = LWP::UserAgent->new;
$req = HTTP::Request->new(GET => 'http://www.developpez.net');
my $b = $a->request($req)->as_string;
 
open(F1, ">destination.txt");
print F1 $b;
close(F1);

Pourrait-il s'agir d'un blocage du au pare-feu?
Existe-t-il un moyen de passer outre?

J'avoue être dépassé, je vous remercie d'avance pour vos réponses et vos solutions.