IDとパスワードでログインし、ログイン後の画面のスクリーンショットを撮るPerlのサンプルソース。
Selenium::Remote::Driver は、ユーザhogehogeがcpanmでインストールした前提。
----- ここから -----
#!/usr/bin/env perl
#!/usr/bin/env perl
use strict;
use warnings;
use lib '/home/hogehoge/perl5/lib/perl5';
use Selenium::Chrome;
use Selenium::Chrome;
my $logon_url = 'https://www.hogehoge.com/';
my $user_id = 'foobar';
my $password = 'password';
my $png_path = 'sample.png';
my $driver = Selenium::Chrome->new(
extra_capabilities => {
'goog:chromeOptions' => {
args => ['headless', 'disable-gpu', 'window-size=1920,1080', 'no-sandbox' ]
}
}
);
$driver->get($logon_url);
$driver->find_element_by_name('user_id')->send_keys($user_id);
sleep 1;
$driver->find_element_by_name('password')->send_keys($password);
sleep 1;
$driver->find_element("//input[\@type='submit']")->click();
sleep 5;
$driver->capture_screenshot("$png_path");
$driver->quit();
exit;
----- ここまで -----
以上。