Untitled

#!/usr/bin/perl -w
use strict;
use utf8;
use DBI;
use Encode;

my @files = ('/etc/asterisk/ABC-3x.html','/etc/asterisk/ABC-4x.html','/etc/asterisk/ABC-8x.html','/etc/asterisk/DEF-9x.html');

my $db_user = 'log';
my $db_password = 'pass';
my $db_database = 'asterisk';
my $db_host = 'localhost';

my ($base);

;и перед началом импорта, надо базу очистить
$base = DBI->connect( "DBI:mysql:database=$db_database;host=$db_host", $db_user, $db_password ) or die "Не могу подключиться к базе: ".$base->errstr."\n";

$base->do('TRUNCATE `def_codes`');
foreach my $parse_file (@files) {
    open (HTML, "cat  $parse_file | iconv -f cp1251 -t utf8 |");
    while (<HTML>) {
        chomp;
        s/\t//g;
        if ( $_ =~ /^<tr><td>/){
            s/(<td>)|(<\/td>)|(<tr>)|(<\/tr>)/\t/g;
            s/\t{2,}/\t/g;
            my (undef, $t_def_code, $t_def_start, $t_def_stop, $t_def_num, $t_def_operator, $t_def_region) = split /\t/, $_;
            my $stament = $base->prepare('INSERT INTO `def_codes`(`def_code`, `def_start`, `def_stop`, `def_count`, `def_operator`, `def_region`) VALUES ( '.$t_def_code.', '.$t_def_start.', '.$t_def_stop.', '.$t_def_num.', \''.$t_def_operator.'\', \''.$t_def_region.'\')');
            if (!$stament) {
                print "Не могу подготовить запрос к выполнению:". $base->errstr."\n";
                next;
            }
            if ( !$stament->execute() ){
                print "Не могу выполнить запрос к базе: ".$stament->errstr."\n";
                next;
            }
            print $t_def_code."\t".$t_def_start."\t".$t_def_stop."\t".$t_def_operator."\t".$t_def_region."\n";
        }
    }
    close(HTML);
}