|
Lines 30-36
sub capture {
Link Here
|
| 30 |
my ( $class, $driver ) = @_; |
30 |
my ( $class, $driver ) = @_; |
| 31 |
|
31 |
|
| 32 |
$driver->get_page_source; |
32 |
$driver->get_page_source; |
| 33 |
write_file('/tmp/page_source_from_selenium', $driver->get_page_source); |
33 |
write_file('/tmp/page_source_from_selenium', {binmode => ':utf8'}, $driver->get_page_source ); |
| 34 |
my $gdf3_url = qx(cat /tmp/page_source_from_selenium | curl --data-binary \@- https://gdf3.com); |
34 |
my $gdf3_url = qx(cat /tmp/page_source_from_selenium | curl --data-binary \@- https://gdf3.com); |
| 35 |
print STDERR "\nPage source pasted at $gdf3_url"; |
35 |
print STDERR "\nPage source pasted at $gdf3_url"; |
| 36 |
|
36 |
|
| 37 |
- |
|
|