view release on metacpan or  search on metacpan

lib/Scrapar/Util.pm  view on Meta::CPAN

    # make a unique digest based on where parray() is called and on
    # the data in parray initially

    my $digest = join q//, (caller(1))[3,2]; # sub name, line number
    for my $data (sort @array_data) {
	$digest = md5_hex($data . $digest);
    }

    mkdir "/tmp/parray/";
    my $filename = "/tmp/parray/" . join q/-/, (caller)[0], $digest ;

    $ENV{SCRAPER_LOGGER}->info("parray filename: $filename");

    my $X = Scrapar::PArray->new($filename);
    $X->push(@array_data) if $X->{is_file_empty};
    return $X;
}

sub match {
    my $text = shift;