xml - 使用perl脚本拆分xml文件

Question

您好，我正在使用 perl 脚本将大 xml 拆分为小块。我已经引用了这个链接 Split file by XML tag

我的代码是这样的

if($line =~ /^</row>/)
{
$count++;
}

但是我收到这个错误

 works\filesplit.pl line 20.
Bareword found where operator expected at E:\Work\perl works\filesplit.pl line 2
0, near "/^</row"
        (Missing operator before row?)
syntax error at E:\Work\perl works\filesplit.pl line 20, near "/^</row"
Search pattern not terminated at E:\Work\perl works\filesplit.pl line 20.

谁能帮帮我

更新

<row>
  <date></date>
  <ForeignpostingId />
  <country>11</country>
  <domain>http://www.xxxx.com</domain>
  <domainid>20813</domainid>
 </row>
 <row>
  <date></date>
  <ForeignpostingId />
  <country>11</country>
  <domain>http://www.xxxx.com</domain>
  <domainid>20813</domainid>
 </row>
 <row>
  <date></date>
  <ForeignpostingId />
  <country>11</country>
  <domain>http://www.xxxx.com</domain>
  <domainid>20813</domainid>
 </row>

Answer 1

你试过了吗xml_split ？这是XML::Twig 附带的工具它专门设计用于根据各种标准(标签名称、级别、大小)拆分大型 XML 文件。