为什么 RecDescent 需要这么长时间?是因为你的语法很复杂吗?如果是这种情况,您可以使用 Parse::RecDescent 进行两次二级传递。这个想法是,您将定义一个简单的语法来解析 cell ... { ... },然后使用更复杂的语法将第一个解析器的解析输出传递给 Parse::RecDescent 的调用。这是猜测 RecDescent 处理数据速度慢的原因。
另一种选择是编写自己的简单解析器,匹配单元格条目,计算到目前为止看到的大括号数,然后在右大括号数等于左大括号数时找到匹配的大括号。这应该很快,但上面的建议可能更快实施并且更容易维护。
编辑:您绝对应该尝试使用简化语法的 Parse::RecDescent。递归下降解析的算法复杂度与可能的解析树的数量成正比,应该类似于 B ^ N,其中 B 是语法中的分支点数,N 是节点数。
如果您想尝试滚动您自己的简单解析器以对您的输入进行第一次传递,以下代码可以帮助您入门。
#!/usr/bin/perl -w
use strict;
my $input_file = "input";
open FILE, "<$input_file" or die $!;
my $in_block = 0;
my $current_block = '';
my $open_bracket_count = 0;
while( my $line = <FILE> ) {
if ( $line =~ /cell/ ) {
$in_block = 1;
}
if ( $in_block ) {
while ( $line =~ /([\{\}]{1})/g ) {
my $token = $1;
if ( $token eq '{' ) {
$open_bracket_count++;
} elsif ( $token eq '}' ) {
$open_bracket_count--;
}
}
$current_block .= $line;
}
if ( $open_bracket_count == 0 && $current_block ne '' ) {
print '-' x 80, "\n";
print $current_block, "\n";
$in_block = 0;
$current_block = '';
}
}
close FILE or die $!;
编辑:更改代码以避免将整个文件放入内存中。虽然这对于一个 8MB 的文件来说是微不足道的,但只逐行读取文件会更干净。