example.pl 366 B

123456789101112
  1. use strict;
  2. use warnings;
  3. use Data::Dumper;
  4. use Playwright;
  5. my ($browser) = Playwright->new( browser => 'chrome', visible => 1 );
  6. my $page = $browser->newPage();
  7. my $res = $page->goto('http://google.com', { waitUntil => 'networkidle' });
  8. print Dumper($res->status(), $browser->version());
  9. my $frameset = $page->mainFrame();
  10. print Dumper($frameset->childFrames());