#!/usr/bin/perl use strict; use warnings; use 5.010; use File::Spec; use FindBin qw/$Bin/; use lib File::Spec->catdir($Bin, '../lib'); use Browser::PseudoIE;
use Encode; use DBI; use Web::Scraper::LibXML; use YAML::Syck;
my $cp932 = find_encoding('cp932'); my $utf8 = find_encoding('utf8');
my $database = 'log.db'; my $dsn = 'dbi:SQLite:dbname='. $database; my $dbh = DBI->connect($dsn, undef, undef, { RaiseError => 1, PrintError => 0, AutoCommit => 0, }) or die "$!";