我应该从自己的perl模块中读取ARGV

Question

我的Perl从（多个）日志文件中提取和处理数据，当前正在处理@ARGV所有文件。

这个脚本最重要的部分是日志解码本身，它结合了很多关于日志文件格式的知识。 这个转换部分来自log（实际上是一个散列数组）已被证明是变化的主题 （随着日志格式的发展），并成为进一步处理步骤的基础 ：从解码记录中经常有特定的问题要回答在Perl中做得最好，这就是为什么我想把它变成一个模块。

核心功能是使用嵌套（或命名为作用域 ）模式匹配坐在while (<>)循环中：

while (<ARGV>) {
    $totalLines ++;
    if (m/^(\d{4}-\d\d-\d\d \d\d:\d\d:\d\d) L(\d) (.+)/) {
        my $time = $1;
        my $line = $2;
        my $event = $3;
        if ($event =~ m/^connect: (.+)$/) {
            $pendings{$line}{station} = $1;
            ...

...在关闭括号之前有超过200行。

我觉得简单地从ARGV阅读会超过做一件事而且做得很好 。 当我搜索网络时，我发现在模块中没有任何明确说明或反对 ARGV阅读的内容，但也许我的搜索模式很差。 ^{[1] [2]}

（如何）我应该重新构建解码器以将其放入模块中？
_{......或者我应该改变对此的感受？}

---

^[1] perltrap - perldoc.perl.org
^[2] perlmodstyle - perldoc.perl.org

Answer 1

你可以让你的函数不知道<ARGV>迭代器逻辑，

sub foo {
    my ($iter) = @_;

    # `defined()` should be used explicitly unlike `while (<ARGV>)`
    while (defined (my $line = $iter->())) {
        # if ..
    }
}

foo(sub{ scalar <ARGV> }); # force scalar context; one line/record per call

Answer 2

我会写它，它接受任何文件句柄。 然后，您可以使用\\*ARGV作为参数。

另外，不要破坏你的来电者的$_ 。 $_经常与其他变量（会产生深远影响）和常量（这会导致代码失败）混淆。 使用您自己的词法范围变量（或至少添加local *_;首先）。