0

我创建了一个 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。这里可能有什么问题？谢谢你。

4

1 回答 1

2

这不是因为版本的变化。

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

dos2unix您可以使用或类似的方式修复行尾。

或者，您可以更改

chomp($name);

至

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

或者更好

$name =~ s/\s+\z//;
于 2013-05-08T05:55:58.867 回答