DJ-Andrey-sXe

Рецепт протух. Сейчас используйте скачивание через вход в https://www.adobe.com/products/flashplayer/distribution5.html

Оригинальный пост ниже для истории.

Будут автоматически скачены и установлены для всех API (ActiveX, PNAPI, PPAPI) последней версии.

Понадобится perl и wget.

use LWP::Simple;

my $content = get(
	q[http://www.adobe.com/ru/products/flashplayer/distribution3.html]
);

for ( qw|
_active_x.exe
_plugin.exe
_ppapi.exe
| )
{
	$content =~ m!(https?://.+\Q$_\E\b)!;
	$f = $url = $1;
	$f =~ s!.+/(.+)$!$1!;

	print "getting\n$f\n$url\n\n";

	# альтернатива wget, работает не всегда, причины не установлены, поэтому перешёл на wget
	# my $http_code = getstore($url, $f);
	# unless ($http_code == 200) { die "error: $http_code\n" }

	system "wget", "--no-check-certificate", "$url", "-O", "$f";

	# установка и удаление файлов
	# print "installing $f...\n";
	# system("$f -install");
}

print "Done.\n";

Поделись с друзьями: