Task7/TestProject/lib/TestProject.pm

package TestProject;

use Dancer2;
use Data::Dumper;

use DB;

our $VERSION = '0.1';

# самая крутая регулярка на email
my $regex_for_email =
qr((?:[a-z0-9!#$%&'*+/=?^_`{|}~-]+(?:\.[a-z0-9!#$%&'*+/=?^_`{|}~-]+)*|"(?:[\x01-\x08\x0b\x0c\x0e-\x1f\x21\x23-\x5b\x5d-\x7f]|\\[\x01-\x09\x0b\x0c\x0e-\x7f])*")@(?:(?:[a-z0-9](?:[a-z0-9-]*[a-z0-9])?\.)+[a-z0-9](?:[a-z0-9-]*[a-z0-9])?|\[(?:(?:(2(5[0-5]|[0-4][0-9])|1[0-9][0-9]|[1-9]?[0-9]))\.){3}(?:(2(5[0-5]|[0-4][0-9])|1[0-9][0-9]|[1-9]?[0-9])|[a-z0-9-]*[a-z0-9]:(?:[\x01-\x08\x0b\x0c\x0e-\x1f\x21-\x5a\x53-\x7f]|\\[\x01-\x09\x0b\x0c\x0e-\x7f])+)\]));

get '/' => sub {
    template 'get_address' => { title => 'Поиск Логов' };
};

post '/logs' => sub {
    my $address = body_parameters->get('address');
    my $err;

    if ($address) {
        if ( $address =~ $regex_for_email ) {
            $err = 0;
        }
        else {
            $err = 'Ошибка: не верно указанный адрес';
        }
    }
    else {
        $err = 'Ошибка: пустой адрес';
    }

    my %res_get_rows;

    unless ($err) {
        my $dbh = DB->new();
        $dbh->connect();
        %res_get_rows = $dbh->get_rows($address);
    }

    template 'logs' => {
        title       => $address,
        err         => $err,
        alert       => $res_get_rows{alert},
        rows        => $res_get_rows{table},
        get_address => uri_for('/'),
    };

};

true;