在 Perl 中相等的字符串变量？

Question

我创建了一个 Perl 脚本来从相对路径中提取文件名。 这是一个 sub，它将路径作为参数，然后从中计算名称，然后将其附加到全局变量中。

my $all_names = "";
sub check_line
{
    my @args = @_;
    my $line = $args[0]; #take the path
    my @paths = split(/\\|\//, $line); #split according to folder
    my $last = @paths;
    $last = $last - 1;
    my $name = $paths[$last]; #take the file name
    chomp($name); #remove \n character from end of string
    my ($ext) = $name =~ /(\..+)/; #extract the file extension from file name
    if(($ext eq ".h") || ($ext eq ".cpp") || ($ext eq ".c")) #filter the required files
    {
         $all_names = $all_names . "$name "; #append the file names to global variable
    }
}

现在这个脚本在 Perl 5.005 中运行良好（是的，我们也有那个旧版本的 Perl！）。 但是如果我在 Perl 5.10 上运行它，它将无法正常运行。 检查文件扩展名总是返回 false。 即使当我打印文件扩展名时，我也能以.h 或.c 正确获取它，但即使我单独比较它

if($ext eq ".c")

然后它返回 false。 这里可能有什么问题？ 谢谢。

Answer 1

这不是因为版本更改。

您可能有一个以 CR LF 结尾的文件，并且您在非 Windows 机器上运行。

您可以使用dos2unix 或类似名称修复行尾。

或者，你可以改变

chomp($name);

到

$name =~ s/\r?\n\z//;

或者更好

$name =~ s/\s+\z//;