Discussion :

[thopo57]

Bonjour,

J'ai regardé pas mal de post, de sites mais je n'ai pas trouvé ce que je cherchais.

Je souhaite avec perl copier un fichier html, doc, jpg depuis un site internet.

Par exemple, je voudrais copier www.site.com/chemin1/chemin2/page.html ou www.site.com/chemin1/chemin2/image.jpg vers un repertoire local sur mon PC.

Je ne souhaite pas faire une aspiration complète de site parce que je connais par avance les noms de fichiers qui sont dans une table.

Merci de vos réponses !
Thomas.

[Gardyen]

tu as essayé le module LWP::Simple ?

Code :

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

1
2
3
use LWP::Simple;
my $url = "http://www.google.fr";
my $content = get($url);

[thopo57]

Merci pour la réponse

Je ne connais pas ce module.
Je viens de faire le test. Je n'ai pas d'erreur.

Je me demande ce que contient la variable $content ? comment puis-je mettre le résultat dans un fichier dertination?

use LWP::Simple;
my $url = "www.site.com/fichier.jpg";
my $content = get($url);

[djibril]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
#!/usr/bin/perl
use strict;
use warnings;
use LWP::Simple;
my $url = "http://www.google.fr";
my $content = get($url);
 
open my $fh, '>', 'toto.html';
binmode $fh;
print {$fh} $content;
close $fh;

[thopo57]

Merci encore plus la réponse

Je pense que la solution est proche.

Par contre, j'ai fait des essais sur plusieurs pages web avec du html ou du pg, le fichier en sortie reste toujours vide.

a+
Thomas

[djibril]

Si tu ne montres pas ce que tu as fait, difficile de t'aider !

[thopo57]

J'ai fait ca

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl
use strict;
use warnings;
use LWP::Simple;
my $url = "http://sitelocal.com//default.html";
my $content = get($url);
 
my $fh;
open ($fh, '>', 'testlwp.html') or die ("open\n");
binmode $fh;
print {$fh} $content or die "print\n";
close $fh;

[thopo57]

J'ai fait ca

#!/usr/bin/perl
use strict;
use warnings;
use LWP::Simple;
my $url = "http://sitelocal.com//default.html";
my $content = get($url);

my $fh;
open ($fh, '>', 'testlwp.html') or die ("open\n");
binmode $fh;
print {$fh} $content or die "print\n";
close $fh;

C'est ok. J'avais une erreur sur l'URL qui bloquait...
get($url) or die ("ERREUR !\n");

J'avais fait une erreur qui est rectifiée !!!!

MERCI TOUT PLEIN

[djibril]

Si c'est résolu, merci de passer le thread en !