使用 perl 在字符串中搜索特定的子字符串模式

Question

我是 perl 的新手，我通过 Check whether a string contains a substring 了解如何检查字符串中是否存在子字符串，现在我的情况略有不同

我有一个类似

的字符串

/home/me/Desktop/MyWork/systemfile/directory/systemfile64.elf,

最后这可能是systemfile32.elf 或systemfile16.elf，所以在我的perl 脚本中，我需要检查该字符串是否包含格式为systemfile*.elf 的子字符串。 如何在 perl 中实现这一点？

我打算这样做

if(index($mainstring, _serach_for_pattern_systemfile*.elf_ ) ~= -1) {
    say" Found the string";
}

Answer 1

你可以使用模式匹配

if ($string =~ /systemfile\d\d\.elf$/){
   # DoSomething
}

\d 代表一个数字（0-9）

$ 代表字符串结束

Answer 2

嗯

if( $mainstring =~ m'/systemfile(16|32)\.elf$' ) {
   say" Found the string";
}

完成这项工作。

---

供您参考：

$string =~ m' ... '

与

相同

$string =~ / ... /

根据给定的正则表达式检查字符串。这是 Perl 语言最有用的特性之一。

更多信息http://perldoc.perl.org/perlre.html

（我确实使用了 m'' 语法来提高可读性，因为在正则表达式中存在另一个 '/' 字符。我也可以写 /\/systemfile\d+\.elf$/

Answer 3

if ($string =~ /systemfile.*\.elf/) {
    # Do something with the string.
}

这应该只匹配您寻找的字符串（假设每次，给定的字符串都存储在$string 中）。在大括号内你应该写下你的逻辑。

. 代表“任何字符”，* 代表“看到最后一个字符的次数”。所以，.* 的意思是“你看到的任何字符”。如果您知道字符串将以这种模式结束，那么在模式的末尾添加$ 来标记字符串应该以这种模式结束会更安全：

$string =~ /systemfile.*\.elf$/

请不要忘记chomp $string 以避免任何可能干扰您所需输出的换行符。

Answer 4

use strict;
use warnings;

my $string = 'systemfile16.elf';
if ($string =~ /^systemfile.*\.elf$/) {
print "Found string $string";
  } else {
print "String not found";

如果你有一个设置的目录，将匹配 systemfile'anythinghere'.elf。

如果你想搜索整个字符串，包括目录，那么：

my $string = 'c:\\windows\\system\\systemfile16.elf';
if ($string =~ /systemfile.*\.elf$/) {
print "Found string $string";
  } else {
print "String not found";

如果您只想匹配 2 个系统文件，然后是 2 个数字字符 .elf，则使用上述其他答案中提到的其他方法。但如果你想要 systemanything.elf 然后使用其中之一。