#!/usr/bin/perl use strict; use Mojolicious::Lite; use Mojo::UserAgent; get '/' => sub { my $self = shift; my $site = $self->param('site'); # my $text; if($site) { my $ua = Mojo::UserAgent->new; # UserAgent # "http://www.google.com/search?q=site%3A$site" # <div id="resultStats"> $text = $ua->get("http://www.google.com/search?q=site%3A$site")->res->dom->at('div#resultStats'); } $self->render( 'index', # result => $text ? $text->text : '', # , site => $site, # ); }; app->start; # index.html.ep __DATA__ @@ index.html.ep <%= $result %><br /> <form action="/cgi-bin/get_string.pl"> site name: <input type="text" name="site" value="<%= $site %>"/> <input type="submit" /> </form>
Source: https://habr.com/ru/post/117693/
All Articles