oo.txt

• Back
• Raw format

package HentInfo;

use strict;
use warnings;
use DBI;
use LWP::UserAgent;

sub new {

    my $class = shift;
    my $self  = bless {}, $class;

    $self->{'db'}  = DBI->connect(...);
    $self->{'lwp'} = LWP::UserAgent->new(...);

    return $self;
}

sub hent_info_fra_web {

    my $self = shift;
    my $url  = shift;

    return unless($url);

    my $res = $self->{'lwp'}->get($url);

    if($res->is_success) {
        $self->process($res);
    }
    else {
        return;
    }
}

sub process {

    my $self    = shift;
    my $res     = shift;
    my $content = $res->content;

    if($content =~ /$regex/) {
        $self->{'db'}->do("something");
        return $1;
    }
    else {
        return 0;
    }
}