0

我已经有了这个脚本两年多了，直到两周前才出现任何问题，我不知道为什么它突然停止完成。

每天，服务器都会下载并解压缩一个大的 xml 文件（平均 109,000 条记录，所有记录都像下面的示例一样形成。）然后脚本将其从 xml 文件传输到 mysql 数据库以进行存储和更轻松的查询。

<ACCOUNT>
 <NAME>Name</NAME>
 <TYPE>Pretitle</TYPE>
 <FULLNAME>Fullname</FULLNAME>
 <MOTTO>Motto</MOTTO>
 <CATEGORY>Account Category</CATEGORY>
</ACCOUNT>

正如我所说，两年多来我没有遇到任何问题，但在过去的两周里，它在 68,000 条（平均或多或少）记录被转移后停止了，我真的很想知道为什么。这是直接转移，我已经确认在 xml 文件中找到了超过 68,000 条记录。

这是有问题的脚本。如果有人可以验证这是一个可靠的脚本或者它有问题，我将非常感激。我完全不知所措。

#!/usr/bin/perl
print "Content-type: text/html; charset=iso-8859-1\n\n";
use strict;
use DBI;
use XML::Parser;
my %row = ("NAME" => undef, "TYPE" => undef, "FULLNAME" => undef, "MOTTO" => undef, "CATEGORY" => undef);
my $dbh = DBI->connect ("DBI:mysql:database:localhost", "username", "password",
                       { RaiseError => 1, PrintError => 0});
my $parser = new XML::Parser (
                       Handlers => {
                           Start => \&handle_start,
                           End   => \&handle_end,
                           Char  => \&handle_text
                       }
                   );
$parser->parsefile ("accounts.xml");
$dbh->disconnect ();
sub handle_start
{
my ($p, $tag) = @_;   
   if ($tag eq "ACCOUNT")
   {
       foreach my $key (keys (%row))
       {
           $row{$key} = undef;
       }
   }
}

sub handle_text
{
my ($p, $data) = @_;      
   my $tag = $p->current_element ();
   $row{$tag} .= $data if exists ($row{$tag});
}

sub handle_end
{
my ($p, $tag) = @_;  
   if ($tag eq "ACCOUNT")
   {
       my $str;
       foreach my $key (keys (%row))
       {
           $str .= "," if $str;
           $str .= "$key=" . $dbh->quote($row{$key});
       }
       $dbh->do ("INSERT INTO TABLE SET $str");
   }
}
4

1 回答 1

0

将执行插入的代码放在“eval {};”中 部分。然后在脚本末尾打印出 $@ 。

这将a）意味着异常被捕获并且脚本可以完成（很可能没有相关行）和b）您可以从 $@ 的内容中看到什么让您的脚本感到不安。

于 2014-04-27T15:08:27.087 回答