ひどく雑。adobeがよこすJSONも雑だし、仕方ないね。

形式
Perl
投稿日時
2017-04-24 01:16
公開期間
無期限
  1. #!/usr/bin/perl
  2. use warnings;
  3. use strict;
  4. use utf8;
  5. use LWP::UserAgent;
  6. use JSON;
  7. #my $res = LWP::UserAgent->new(agent=>"libwww-perl (Linux i686)")
  8. my $res = LWP::UserAgent->new(agent=>"libwww-perl (Linux x86_64)")
  9. ->get("https://get.adobe.com/flashplayer/webservices/json/");
  10. $res->is_success() || die;
  11. my $fldat = decode_json($res->content());
  12. my @koh;
  13. my $url;
  14. for(@$fldat){
  15. if($_->{platform} eq "Linux" && $_->{browser} eq "Firefox"
  16. && $_->{OPTION_NAME} eq ".tar.gz for Linux"){
  17. $url = $_->{download_url};
  18. last;
  19. }
  20. }
  21. $url || die;
  22. system("wget", "-O", "/tmp/flp$$.tar.gz", $url);
  23. system("tar", "-zxf", "/tmp/flp$$.tar.gz",
  24. "-C", "/usr/local/lib/adobe-flash/", "libflashplayer.so");
  25. chmod(0755, "/usr/local/lib/adobe-flash/libflashplayer.so");
ダウンロード 印刷用表示

このコピペの URL

JavaScript での埋め込み

iframe での埋め込み

元のテキスト