Opened by ptk at 2005-06-04 17:36
User since
2005-05-25
8 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2005-05-25
8 Artikel
BenutzerIn
Hallo, ich bin es mal wieder.
Ich hab mir mit LWP eine download funktion gemacht. Die funktioniert allerdings nur für txt basierende dateien, doch nicht für andere dateien wie rar, zip, exe etc.
Weiß jemand vieleicht wieso?
gruß gbx
Ich hab mir mit LWP eine download funktion gemacht. Die funktioniert allerdings nur für txt basierende dateien, doch nicht für andere dateien wie rar, zip, exe etc.
Weiß jemand vieleicht wieso?
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
use LWP::UserAgent;
use strict;
use warnings;
sub download {
# von, wohin
my $execf = $_[1];
$execf =~ s/chr(92)/chr(92)chr(92)/;
my $get = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => $_[0]);
my $gettxt = $get->request($req);
my $quell = $gettxt->content;
open dfile, "> $execf";
print dfile $quell;
close dfile;
}
&download('http', 'C:\test');
gruß gbx