代码之家 › 专栏 › 技术社区 › Will

`/S`用于变量正则表达式的多行'QR//`

perl regex

Will · 技术社区 · 7 年前

我正在尝试匹配和提取多行字符串中的第一个(类似路径)单词和最后一个单词(text=shell prompt+command+output)。我有一个有效的正则表达式

perl -le 'print "$1/$2" if "~/src\nfind\nboards.txt" =~ m`([/~]\S+).*?(\S+)\s*$`s'
# returns expected ~/src/boards.txt

( https://regex101.com/r/uB4kN1/4 为了更好的说明)

但是当我尝试使用变量正则表达式时,会遇到问题。

echo '([/~]\S+).*?(\S+)\s*$' | 
  perl -lne '$reg=qr/$_/; 
             print "$1/$2" if "~/src\nfind\nboards.txt" =~ /$reg/s';

1 回复 | 直到 7 年前

Will 7 年前

这个 /s 应在以下位置提供单字符串选项: qr// 不在 =~ // 比较

echo '([/~]\S+).*?(\S+)\s*$' | 
 perl -lne '$reg=qr/$_/s;  # < HERE
            print "$1/$2" 
              if "~/src\nfind\nboards.txt" =~ /$reg/';
            #                               NOT HERE^

推荐文章

DotFX · RegEx捕获关键字前但括号后的所有内容

1 年前

user66001 · 正则表达式用于匹配有引号和无引号的文本,并且不匹配任何部分

1 年前

perlchamp · 为什么这也匹配?

1 年前

con · Negative Lookaward在perl正则表达式中不起作用

1 年前

Andrus · 如何在sql中查找第二个匹配项

1 年前

iato · 确保正则表达式不从命名材料中的数字中提取

1 年前

vr8ce · 非成对标记中特定字符的正则表达式

1 年前

MARTIN · 交换第一个和最后一个单词,反转所有中间的字符

1 年前

Carsten · 使用最近的搜索模式更改文本块

1 年前

Eric Marceau · Grep:有没有一种特殊的方法可以将“无字符”作为“字符位置”匹配的置换?

1 年前