#!/usr/bin/perl use Config; use ActiveState::Browser; my $ver = $]; my $build = 0; my $x64 = 0; if ($Config{archname} =~ /x64/) { $x64 = 1; } else { $x64 = 0; } if ($ver =~ m/^5\.02600/ && $x64 == 1) { $build = 2600; ActiveState::Browser::open("https://www.akaneiro.jp/namazu/ppm/2600x64.html"); } elsif ($ver =~ m/^5\.02600/) { $build = 2600; ActiveState::Browser::open("https://www.akaneiro.jp/namazu/ppm/2600.html"); } elsif ($ver =~ m/^5\.02400/ && $x64 == 1) { $build = 2400; ActiveState::Browser::open("https://www.akaneiro.jp/namazu/ppm/2400x64.html"); } elsif ($ver =~ m/^5\.02400/) { $build = 2400; ActiveState::Browser::open("https://www.akaneiro.jp/namazu/ppm/2400.html"); } elsif ($ver =~ m/^5\.02200/) { $build = 2200; ActiveState::Browser::open("https://www.akaneiro.jp/namazu/ppm/2200.html"); } elsif ($ver =~ m/^5\.02000/) { $build = 2000; ActiveState::Browser::open("https://www.akaneiro.jp/namazu/ppm/2000.html"); } elsif ($ver =~ m/^5\.01800/ && $x64 == 1) { $build = 1800; ActiveState::Browser::open("https://www.akaneiro.jp/namazu/ppm/1800x64.html"); } elsif ($ver =~ m/^5\.01800/) { $build = 1800; ActiveState::Browser::open("https://www.akaneiro.jp/namazu/ppm/1800.html"); } elsif ($ver =~ m/^5\.01600/ && $x64 == 1) { $build = 1600; ActiveState::Browser::open("https://www.akaneiro.jp/namazu/ppm/1600x64.html"); } elsif ($ver =~ m/^5\.01600/) { $build = 1600; ActiveState::Browser::open("https://www.akaneiro.jp/namazu/ppm/1600.html"); } elsif ($ver =~ m/^5\.01400/) { $build = 1400; ActiveState::Browser::open("https://www.akaneiro.jp/namazu/ppm/1400.html"); } elsif ($ver =~ m/^5\.01200/) { $build = 1200; ActiveState::Browser::open("https://www.akaneiro.jp/namazu/ppm/1200.html"); } elsif ($ver =~ m/^5\.01000/) { $build = 1000; ActiveState::Browser::open("https://www.akaneiro.jp/namazu/ppm/1000.html"); } elsif ($ver =~ m/^5\.00800/) { $build = 800; ActiveState::Browser::open("https://www.akaneiro.jp/namazu/ppm/"); } elsif ($ver =~ m/^5\.00600/) { $build = 600; ActiveState::Browser::open("https://www.akaneiro.jp/namazu/ppm/600.html"); } else { ActiveState::Browser::open("https://www.akaneiro.jp/namazu/ppm/"); }