#!/usr/bin/perl use warnings; use strict; # 変数の宣言を強制する use DBI; # DBI モジュールを利用する use HTML::Entities; my $dbh = undef; my $sth = undef; my $strQuery = ""; my $strTmp = ""; my $strDsn = 'DBI:SQLite:dbname=./mtdata.db'; # DSN print "\n". "\n". "
\n". "\n". "\n". "\n". "".$id." | "; my $flag_incode = 0; foreach my $text_line (@arr_textline) { chomp $text_line; if($text_line =~ m/class\s*=\s*"code"/){ $flag_incode = 1; } if($flag_incode && $text_line =~ m/<\/div>/){ $flag_incode = 0; } if(length($text_line)<=0 && $flag_incode){ print " "; } if($flag_incode){ print ""; } print encode_entities($text_line, '&<>\\\"\''); if($flag_incode){ print ""; } print "\n"; } print " |
total count = ".$counter."
\n". "\n". "\n"; }; if($@){ # evalによるDBエラートラップ:エラー時の処理 $dbh->disconnect(); print("DBI error : ".$@."\n"); } exit(0);