为什么这个预期的插值被 Perl 解释为除法？

Question

天哪，

为什么我从下面的脚本片段中收到以下两个错误？

参数“www4.mh.xxxx.co.uk.logstatsto20090610.gz”在第 56 行的除号 (/) 中不是数字

参数“/logs/xxxx/200906/mcs0.telhc/borg2”在第 56 行的除法 (/) 中不是数字

变量 $dir 和 $log 都是字符串，两个字符串的串联以及中间的斜杠也用引号引起来。

        foreach my $dir (@log_dirs) {
            foreach my $log (@log_list) {
line 56:        if ( -s "$dir/$log" ) {
                    push(@logs, $dir/$log);
                }
            }
        }

编辑：第 56 行绝对是 if 语句。 然而，Paul，你是对的，用引号将第 57 行的除法括起来可以解决问题。 谢谢。

编辑：报告第 56 行的 Perl 版本是

stats@fs1:/var/tmp/robertw> /usr/local/perl/bin/perl -v      

This is perl, v5.6.1 built for sun4-solaris

Copyright 1987-2001, Larry Wall

Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5 source kit.

Complete documentation for Perl, including FAQ lists, should be found on
this system using `man perl' or `perldoc perl'.  If you have access to the
Internet, point your browser at http://www.perl.com/, the Perl Home Page.

stats@fs1:/var/tmp/robertw> 

编辑：尽管使用 Perl 中插值字符串的方法，但考虑到变量本身就是字符串，并且我试图将它们连接在一起带有斜杠字符不是最终结果字符串连接吗？

干杯，

Answer 1

第 56 行可能是它之后的行，您在其中尝试划分两个字符串。 你的意图可能是

   foreach my $dir (@log_dirs) {
        foreach my $log (@log_list) {
            if ( -s "$dir/$log" ) {
                push(@logs, "$dir/$log");
            }
        }
    }

Answer 2

您没有在 push 中引用该字符串。 不要自己创建路径，而是尝试养成使用 File::Spec：

use File::Spec::Functions;

my $path = catfile( $dir, $file );

然后，只要您需要该字符串，就可以使用 $path ，这样您就不必通过再次重新创建该字符串来重复自己（并且下次可能会做错；）。

Answer 3

这是由以下行引起的：

push(@logs, $dir/$log);

你那里有一个部门。

Answer 4

我很想知道你使用的 perl 版本是什么？ 我可以轻松尝试的所有方法都可以正确报告推送的行号。