如何在 C/C 中为标准文件名编写 perl 正则表达式++

Question

我的文件具有以下命名约定：

• *.c 表示 ac 源文件。例如 abc_test.c
• *.cc 用于 C++ 源文件。例如 abc_test.cc
• *.h 表示 ac 头文件。例如 abc_test.h
• *.hh 用于 C++ 头文件。例如 abc_test.hh

我如何在 perl 中编写正则表达式来表示这些格式的文件名？

Answer 1

不要使用正则表达式，而是提取扩展名并对其进行检查。

use File::Basename;
my(undef, undef, $ext) = fileparse($file, qr{\.(?:cc?|hh?)$});
print $ext;

使用 qr{\..+?} 匹配任何扩展名。

Answer 2

我能想象的最简单的是 \.c$、\.cc$、\.h$ 和 \.hh$< /代码>。一个简单的脚本可以是：

#!/usr/bin/env perl
if ($ARGV[0] =~ /\.c$/) { print $ARGV[0] . "\n"; }

使用在线正则表达式测试产品之一，例如 http://www.regextester.com/

Answer 3

您可以尝试 File::Basename -将文件路径解析为目录、文件名和后缀，
喜欢

    use File::Basename;
    my $from_file = 'abc_test.hh';
    (my $base,my $dir,my $ext) = fileparse($from_file,qr{\.(?:cc?|hh?)$});
    print $ext;