What is the minimum perl script for Selenium?
While Chrome-specific, the following is a minimal Selenium solution:
use FindBin qw( $RealBin );use Selenium::Chrome qw( );my $web_driver = Selenium::Chrome->new( binary => "$RealBin/chromedriver.exe",);$web_driver->get('https://www.stackoverflow.com/');$web_driver->shutdown_binary();
I wanted to handle exceptions, so I actually used this:
use FindBin qw( $RealBin );use Selenium::Chrome qw( );use Sub::ScopeFinalizer qw( scope_finalizer );my $web_driver;my $guard = scope_finalizer { if ($web_driver) { $web_driver->shutdown_binary(); $web_driver = undef; }};$web_driver = Selenium::Chrome->new( binary => "$RealBin/chromedriver.exe",);$web_driver->get('https://www.stackoverflow.com/');