XML::Parser 在大文件上死掉

Question

我正在使用 Perl 脚本从 OSM 文件中提取 POLY:https://github.com/sev-/osm/blob/master/getbound.pl

最近我遇到了一个大文件(大约60M)的问题:

curl -XPOST "http://overpass-api.de/api/interpreter" -d"data=[timeout:900];(node(56.59,60.0,56.99,60.96);<);out;" > e.osm
perl getbound.pl -file e.osm 1104258 > e.poly
>unclosed token at line 173936, column 2, byte 9999947 at /System/Library/Perl/Extras/5.16/darwin-thread-multi-2level/XML/Parser.pm line 187.

XML 文件格式良好，所提到的行看起来很好，并且当我删除该行时，错误消息根本没有改变。看起来库内的某些字节计数器存在溢出。

如有任何帮助，我们将不胜感激! 谢谢

Answer 1

替换

open my $file, '<', $filename;
read $file, $osmdata, 10_000_000;

与

open my $file, '<', $filename;
local $/;
$osmdata = <$file>;