1
0

driver-example.pl 304 B

123456789101112
  1. #!/usr/bin/perl
  2. use Selenium::Remote::Driver;
  3. my $driver = Selenium::Remote::Driver->new;
  4. $driver->get("http://www.google.com");
  5. my $element = $driver->find_element('q','name');
  6. $element->send_keys("Hello WebDriver!");
  7. $element->submit;
  8. print $driver->get_title() . "\n";
  9. $driver->quit();