perlunity.de - PERL | JAVASCRIPT | PHP | MySQL | APACHE



#!/COMMUNITY

Members: 5374
davon online: 1
weitere User: 34
 Click for quality!



10.02.2012 / 20:37
Community-Member werden   |   Paßwort vergessen   |   OnlineMonitor (1) Wer ist online ... OnlineMonitor starten !
     

 

Home

PERLscripts

PHPscripts

JAVAscripts

Hilfreiches

Links2www

Newscenter

Community

Interna



Community  »  Perl: Allgemeines Forum zur Themenübersicht Themensuche Themenansicht in Thread-Modus


BeitragDatei downloaden
 Seitenanfang
Hallo,

ist es möglich, eine Datei direkt von einem anderen Webserver über ein Skript direkt auf meinem Webserver zu speichern? Wenn ja, wie?

In dem Skript soll in regelmäßigen Abständen eine neue Version der Datei von dem Fremdserver zur Weiterverarbeitung auf meinen Webserver gelegt werden.

Vielen Dank im Voraus!

Datum: 04.11.2005-19:40
Beitragre: Datei downloaden
 Seitenanfang
Hi,

ja das ist möglich.

perldoc URI::URL
perldoc HTTP::Request
perldoc HTTP::Headers
perldoc LWP::UserAgent

Ein kleines CodeSnippet:


#!/usr/bin/perl -w
use strict;
use URI::URL;
use HTTP::Request;
use HTTP::Headers;
use LWP::UserAgent;
my $ua   = 0;
my $ah   = 0;
my $resp = 0;
my $req  = 0;
my $spre = "../phrack/No.";
my $s = "";
my $spost = ".tar.gz";
my $getpre = "http://www.phrack.org/leecharch.php?p=";
my $getstr = "";
$ua = LWP::UserAgent->new;
if(! $ua)
{
...print "mget.pl: Could not create LWP::UserAgent.\n";
...exit(1);
}
else
{
...$ua->agent('TbHoCne: Greetz from germany.');
...$ua->timeout(20);
...$ua->default_header('Accept' => 'application/gzip');
...for(my $x = 1; $x <= 62; $x++)
...{
......$getstr = $getpre.$x;
......$resp = $ua->get($getstr);
......if($resp->code != 200)
......{
.........print "mget.pl: Could not complete query.\n";
.........exit(1);
......}
......else
......{
.........$s = $spre.$x.$spost;
.........open(F, ">".$s) || die "mget.pl: Could not save data.\n";
.........flock(F, 2);
.........print F $resp->content;
.........flock(F, 8);
.........close(F);
......}
...}
}
exit(0);

In dem Beispiel habe ich mir die Ausgaben 1 bis 62 von phrack.org runtergezogen. Musst das halt an Deine Bedürfnisse anpassen.

-uw

Datum: 04.11.2005-20:02
-






-
 -