如何在Perl中组合两种模式？
在Perl中，可以使用正则表达式的元字符和操作符来组合两种模式。
一种常见的组合方式是使用竖线（|）操作符，它表示“或”关系。通过将两个模式用竖线分隔，可以匹配满足任一模式的字符串。
例如，如果要匹配同时包含单词"hello"和"world"的字符串，可以使用以下正则表达式：
if ($string =~ /hello|world/) {
# 匹配成功的处理逻辑
}另一种组合方式是使用圆括号来创建子模式，并使用连接符（.）来表示子模式的顺序关系。通过将多个子模式按照顺序连接起来，可以匹配满足所有子模式的字符串。
例如，如果要匹配以字母开头且长度为5的字符串，可以使用以下正则表达式：
if ($string =~ /^[a-zA-Z]{5}$/) {
# 匹配成功的处理逻辑
}在上述正则表达式中，^表示字符串的开头，[a-zA-Z]表示任意一个字母，{5}表示前面的模式重复5次，$表示字符串的结尾。
需要注意的是，在Perl中，正则表达式的匹配操作符是=~，它用于判断一个字符串是否匹配某个模式。
关于Perl中正则表达式的更多用法和语法，请参考腾讯云的Perl正则表达式文档：Perl正则表达式
相关·内容
当我从在线regex测试工具中运行RegEx模式时，下面的文本可以很好地工作。但是，当在unix上使用sed时，它无法工作。
文本：
<Field1><Field2><Field3>001</Field3></Field2><Field4><FieldDesc>Transaction Successful</FieldDesc></Field4><DtTm><LocalDtTm>2016-07-01-12:05:40.383</LocalDtTm>&l
浏览 3提问于2016-07-15得票数 1
回答已采纳
这是我正在使用的原材料：
line1=a1 abc
line2=abc
line3=aba
line4=cbc
我想匹配不包含"abc“字符串的行，结果是：
line3=aba
line4=cbc
我怎么才能把它装进维姆呢？也许表达式是perl中的(?!abc)，我不知道如何用vim编写正则表达式。
浏览 1提问于2014-01-11得票数 0
回答已采纳
我想打印---- gclid和命名为captures的session --但是，只要它与gclid匹配，我的正则表达式就会退出：
echo '"https://example.com/foo/?gclid=abc1234gef76786" session="765dsfsdf7657657khkjh"' | perl -nE '/(?<gclid>gclid=[^&"#\s]*)|(?<session>session=.*)/&&say"gclid: $+{gclid} se
浏览 3提问于2019-09-27得票数 2
回答已采纳
我有一个文件，如下所示
chrM 152 165 45 21.43%
chrM 13811 324 70 17.77%
chr1 1669566 47 14 22.95%
chr1 1685929 144 33 18.64%
我想从文件中删除字符串chr和%符号。这是一个tab分隔的文件。我应该如何在这里使用sed命令？
我的产出应该是：
M 152 165 45 21.43
M 13811 324 70 17.77
1 1669566 47 14 22.95
1 1685929 144 33 18.64
浏览 0提问于2015-03-26得票数 0
回答已采纳
我有一个包含2列的数据文件：
> df1
Surname Name
1 The Builder Bob
2 Zeta-Jones Catherine
我想添加第三列"Shortened_Surname“，其中包含姓氏字段中所有单词的首字母：
Surname Name Shortened_Surname
1 The Builder Bob TB
2 Zeta-Jones Catherine ZJ
注意第二个名字中的"-“。我有用空格和连字符分隔的
浏览 8提问于2016-01-11得票数 2
回答已采纳
我想解析一个大的XML文件，我有两个选择: Perl或PHP。作为两种语言的新手，您对解析大型XML文件所选择的语言有什么建议？
哪些模块更适合手头的任务？
浏览 1提问于2009-10-27得票数 1
回答已采纳
如何理解Perl /O中open()函数的下列用法？
open(FHANDLE, ">" . $file )
我试图找到这种类型的语法，但没有找到；请注意，有一个。(点) ">“之后。
我所不能理解的是点的用法，其余的我都知道。
浏览 3提问于2017-09-26得票数 5
回答已采纳
5回答
是否有类似grep的实用程序使我能够使用逻辑运算符进行grep搜索。我希望能够自由地嵌套和组合逻辑结构。例如，像这样的事情应该是可能的：
grep (term1 && term2) || (term1 && (term3 xor term4)) *
我意识到这可以通过普通的grep和额外的bash脚本来完成，但我的目标是避免这样做。
浏览 0提问于2015-01-05得票数 39
回答已采纳
在一个文件夹中，我有许多文件。如果存在特定模式，我希望对每一行进行注释。
示例模式：
`include "xyz.vh"
预期产出：
// `include "xyz.vh"
所以请给我同样的指导。
浏览 0提问于2016-09-10得票数 1
4回答
我有一个像这样的文本文件：
-+- beginning text
hey there
hi there
ho there
-+- ending text
other stuff
that is
immaterial for
my purposes
我只想抓住-+-模式之间的线，所以它会返回：
hey there
hi there
ho there
标准的awk方式：
awk '/beginning text/ {flag=1;next} /ending text/ {flag=0} flag {print}'
作品伟大，只要“开始文本”和“结束文本”是不同的模式。
唉，对于我所
浏览 2提问于2015-07-15得票数 7
回答已采纳
3回答
有没有一种方法可以避免将其用于多个模式检查？
我可以抓取数组中的所有模式并检查它是否与模式数组中的任何模式匹配吗？当我有超过20个模式字符串时，请考虑这种情况。
if( ($_=~ /.*\.so$/)
|| ($_=~ /.*_mdb\.v$/)
|| ($_=~ /.*daidir/)
|| ($_=~ /\.__solver_cache__/)
|| ($_=~ /csrc/)
|| ($_=~ /csrc\.vmc/)
|| ($_=~ /gensimv/)
){
...
}
浏览 2提问于2011-03-02得票数 5
回答已采纳
我有一个有法语标记的文件，每个标记由一个换行符分隔。该文件名为fr_notime.txt，如下所示：
bonne-chance
d'
être
l'
heureux
élu
»
,
écrit
-
il
sur
sa
25
我想失去标点符号和数字，但不失去收缩，如在d'或复合词，如在bonne-chance，因此使用连字符或破折号之间的相同。
我的解决方案是逐行读取文件，并根据其内容处理它。我写了下面的.sh脚本-
while IFS='' read -r line || [[ -n "$line" ]];
do
if ( [[
浏览 3提问于2017-11-07得票数 0
在较新的Perls中，有类似println的"say“命令：
$ perl -e 'use v5.11; say "qqq"'
qqq
但是在单引号中使用它有点麻烦，因为需要声明版本.
$ perl -e 'say "qqq"'
String found where operator expected at -e line 1, near "say "qqq""
$ perl -e 'print "qqq\n"'
qqq # but \n is easy f
浏览 2提问于2014-07-02得票数 12
回答已采纳
在决定是使用Apache的mod_perl还是mod_cgi时，在配置现有的web应用程序时，我应该考虑哪些因素？
浏览 0提问于2011-02-16得票数 3
回答已采纳
因此，我正在运行linux命令
ls /etc/systemd/system | grep -o -E "[0-9]+"
它应该只返回数值，唯一的问题是它从我不想要的部分结果中返回一些不需要的数值，我只想要-和.service之间的数值，所以在test-blah4-1321.service中，我只想让它返回1321。这里我漏掉了什么？
示例
$ ls /etc/systemd/system
test.service test-blah4-1321.service test-blah2.service
浏览 1提问于2020-04-16得票数 0
我有几行文件。每一个都带有时间戳，后面跟着文本：
1534888050 some text
1534888051 some more text
1534888052 text
..。并希望将时间戳转换为可读格式，同时保留文本。其结果应为：
Tue Aug 21 21:47:30 UTC 2018 some text
Tue Aug 21 21:47:31 UTC 2018 some more text
Tue Aug 21 21:47:32 UTC 2018 text
date -d@"${somedate}"正确地转换时间戳本身。
现在，我希望通过sed或awk (或任何其他
浏览 0提问于2018-08-21得票数 2
3回答
CPAN中是否有模块可以将YAML列表转换为格式良好的XML？
来自YAML：
- fruits:
- apple
- pear
- orange
到XML：
<fruits>
<apple />
<pear />
<orange />
</fruits>
浏览 0提问于2012-08-08得票数 6
我在perl脚本中定义了一个变量。
如何使用与tcl脚本中定义相同值访问相同的变量，该脚本与perl脚本位于相同的目录中
浏览 1提问于2014-02-14得票数 0
是否有一个Linux实用程序，它只在一个文件包含多个指定字符串时才返回它的名称？不一定在同一条线上。显然，grep可以“或”，但我正在寻找“和”。
浏览 0提问于2016-10-05得票数 0
4回答
我有一个包含95个tex文件的文件夹。我需要创建一个包含以下代码的tex文件all.tex：
\documentclass[10pt]{article}
\begin{document}
\input{file1.tex}
\input{file2.tex}
...
\input{file95.tex}
\end{document}
文件名没有任何模式，因此我不能使用循环。以上只是一个有用的例子。
我在bash上尝试了以下几种方法：
printf '%s\n' *.tex | paste -sd "\n" - > all.tex
创建如下所示的all.te
浏览 0提问于2019-11-11得票数 1
Sed是非常可怕的，所以我已经把一个小的shell脚本放在一起，这样我就可以写一次了，再也不用写了。(我不想使用sed)
到目前为止，这就是我所拥有的
echo -e "OLD string - ctrl + d when done: \n"
oldstring="$(cat)"
echo -e "NEW string - ctrl + d when done: \n"
newstring="$(cat)"
echo -e "Renaming all instances of: \n\n$oldstring\n\n t
浏览 0提问于2019-03-05得票数 0
回答已采纳
我想在vec中找到pat1或pat2
vec <- c("(and) i.e.", "(and) ie", "(and)ie", "and i.e.", "and ie", "and) i.e.")
pat1 <- "\\(and) i\\.e\\."
pat2 <- "\\(and) ie"
我尝试使用(pat1|pat2)将这两种模式结合起来
# combine the two patterns
pat1or2 <- paste0(&#
浏览 5提问于2013-07-08得票数 3
回答已采纳
代码
shopt -s extglob
cp -r !(Backups.backupdb) /home/masi/Documents/
cp -r !(Applications.noindex) /home/masi/Documents/
请注意，您不能在glob环境中使用正向闪存，尽管TAB完成将它提供给您，如线程中所述。
如何将这两个NOT子句合并到extglob中？
浏览 0提问于2015-07-23得票数 2
回答已采纳
如果我在Notepad++中使用长正则表达式，即：
^([^ ]+) ([^ ]+) ([^ ]+) (\[.*?\]) (".*?") (".*?") (".*?") (".*?") (\d+) (\d+) (\d+)$
(这用于将Apache日志行从空格分隔到制表符分隔)
然后，我不能成功地使用9个以上的反向引用来替换，因为\10生成第一个捕获组的内容，加上一个文字"0“。
我尝试过使用$10，但结果是相同的。
浏览 9提问于2016-03-15得票数 5
回答已采纳
1回答
我正在检查目录中是否有我期望的文件数量。我需要检查这些文件是否符合我传递的正则表达式。我把正则表达式的字符串分给数组，有人能帮我吗？谢谢
my $dir = 'C:\Users\dealmeidal\Desktop\perl_file';
my $string = '3-qr/Clawbacks_20190421\.csv$/-qr/Premiums_20190421\.csv$/-qr/Polizza_20190421\.csv$/';
my @array_regex_tot = (split /-/, $string);
my $expected_file_
浏览 2提问于2020-12-07得票数 1
回答已采纳
2回答
我有，并删除了msysperl5.6。
现在，perl将调用Strawberry (由于PATH env)，但是如何将perl命令映射到具有#!/bin/perl或#!/usr/bin/perl谢邦行的.pl或其他Perl脚本文件中？
我正在考虑在msys/bin中创建一个指向perl.exe的硬链接，或者将整个草莓合并到msys目录中，但我不确定。
浏览 5提问于2009-12-04得票数 8
我有一个文件1.htm。我想把字母ṣ(在下面用圆点代替)。我尝试了sed和perl，但是它并没有被替换。
sed -i 's/ṣ/s/g' "1.htm"
perl -i -pe 's/ṣ/s/g' "1.htm"
有人能建议怎么做吗？
(不取代ṣ)
另外，我还发现了另一件奇怪的事情。Sed (与上面相同的命令)在一个文件中替换，而不是在另一个文件中替换我正在放置的链接
与1.html相同
为什么会这样。sed可以在一个文件中替换ṣ，而不能在另一个文件中替换。
浏览 5提问于2013-10-19得票数 3
回答已采纳
2回答
在shell脚本中，grep -Eo {regex} {file}返回正则表达式的匹配部分。例如：
$ echo \
'For support, visit <http://www.example1.com/support>
You can also visit <http://www.example2.com/products> for information.'
| grep -Eo 'http://[a-z0-9_.-]+/'
http://www.example1.com/
http://www.example2.com/
我将
浏览 2提问于2014-07-07得票数 0
回答已采纳
当使用unicode字符(在Ubuntu中)时，这是行不通的：
$ perl -pC -e's/[à]/a/gu' <<< 'à'
à
$ perl -pC -e's/[b]/a/gu' <<< 'b'
a
尽管它似乎得到了PCRE的支持(至少根据)。
我做错什么了？我在perl命令中遗漏了一些标志吗？
在javascript中，这个“只起作用”，所以如果我可以在命令行中为它提供一个简单的一行程序，我就会使用节点.但是我仍然想知道为什么perl命令不能工作。
就背景而言：
我试图使用诸如/[à
浏览 15提问于2021-12-15得票数 2
回答已采纳
考虑一个样本数据集：
dt <- data.table(data.frame(V1 = c("C1/R3","M2/R4")))
> dt
V1
1: C1/R3
2: M2/R4
对于每一行dt，我希望提取连接字符C、M或R。例如，
dt[,V2 := stri_join_list(str_match_all(V1,"[CMR],sep="",collapse=""),by=seq_len(nrow(dt))]
> dt
V1 V2
1: C1/R3 CR
2:
浏览 1提问于2018-10-09得票数 0
回答已采纳
这一切都在RHEL6上
我试图以特定用户( perl脚本的所有者)的身份运行perl脚本，方法是将其包装在一个C二进制文件中，然后设置该二进制文件的setgid位(参见：)。perl脚本使用各种perl模块。如果perl模块在尝试运行C二进制文件的帐户的PERL5LIB中，并且没有在C二进制文件上设置setgid-bit，那么它就可以正常运行。如果设置了setgid-bit，那么它将失败，因为使用的perl模块不在@INC中。
一些代码来演示@INC如何随着粘性位的变化...
the.pl
#!/usr/bin/env perl
print "Size of INC: ".sc
浏览 0提问于2018-03-27得票数 7
我想从字符向量中删除数字(整数和浮点数)，保留日期：
"I'd like to delete numbers like 84 and 0.5 but not dates like 2015"
我想得到：
"I'd like to delete numbers like and but not dates like 2015"
在英语中，一个快速而肮脏的规则可能是:如果数字以18、19或20开头，长度为4，不要删除。
我在中问了同样的问题，答案非常令人满意()。
但是，当我在R中将相同的正则表达式传递给grepl时：
gsub("[\b(?
浏览 4提问于2016-01-05得票数 2
回答已采纳
我试图使用grep只显示包含这两个单词中的任何一个的行，如果其中只有一个出现在行中，而不是显示在同一行中的话。
到目前为止，我已经尝试过grep pattern1 | grep pattern2 | ...，但是没有得到我预期的结果。
浏览 0提问于2019-01-30得票数 33
4回答
我有字符串"re\x{0301}sume\x{0301}" (打印如下:re musé́)，我想将其反转为"e\x{0301}muse\x{0301}r" (émusér)。我不能使用Perl的，因为它将像"\x{0301}"这样的组合字符视为单独的字符，所以我最终得到了"\x{0301}emus\x{0301}er" (́emuśer)。如何才能在反转字符串的同时仍然遵守组合字符？
浏览 0提问于2009-08-28得票数 13
回答已采纳
5回答
这个快把我逼疯了。尝试用perl执行命令行搜索/替换。本质上，我想去掉所有不以XLS(X)结尾的文件路径，但它们必须从字符串本机开始。提前感谢！
命令
cat test.txt | perl -ne 's/"(?!NATIVE[^"]+XLSX?)"/""/g; print;'
test.txt
"Blah","NATIVE/001/FOO.XLS","Blah"
"Blah","NATIVE/001/BAR.XLSX","Blah"
"
浏览 4提问于2014-05-20得票数 2
回答已采纳
2回答
我试图在grep命令中运行多重和组合，我能够使用两种模式运行：
grep -E 'pattern1.*pattern2' filename
使用上述方法可以使用三种或四种模式吗？
浏览 0提问于2015-04-07得票数 1
回答已采纳
我有一个字符串，其中3个字段由空格分隔。我想将最后两个字段与-连接起来，确保最后删除换行符。
以下工作：
echo -n "abc 1234 5679" | tr -s "" |cut -d ' ' -f2 -f3 | tr " " "-"
我想知道是否有perl在线服务？
浏览 0提问于2018-03-29得票数 1
回答已采纳
我今天运行了一个perl脚本，遇到了一个问题。我已经确定了潜在的有问题的代码，但不确定问题到底是什么。
下面是再现问题的代码。
use Strict;
my $d1 = "development/source/Utils/THOR.Thunder.Client/Release/THOR.Thunder.pdb";
my $d2 = "development/source/Utils/THOR.Thunder.Client/Release/CF.Thunder.Client.API.Conversion.dll";
my $search = '^deve
浏览 1提问于2013-09-23得票数 0
回答已采纳
1回答
我想要grep 下面的，并从当前目录中递归地替换它们。
条件
plan => service_plan
Plan => ServicePlan
另外，如果他们生活在一个句子的中间，它也必须被替换。
abc_plan => abc_service_plan
AbcPlan => AbcServicePlan
除了这两个词。
Stripe::Plan x
stripe_plan x
我试过
grep -l 'plan' ./* | xargs sed -i.bak -e 's/plan/service_
浏览 5提问于2017-02-16得票数 0
回答已采纳
在模式中有许多字符串：
A/B/C/D
我只需要把第二个“/”改为其他的东西(比如说，*)
所以A/B/C/D -> A/B*C/D
gsub('(^[[:punct:]])([[:punct:]])', "*", string) #Didn't Work
gsub('[[:punct:]]{2}', "*", string) #Didn't work
浏览 0提问于2019-01-24得票数 0
回答已采纳
我有一个关于preg_match的问题，如果我想买到这样的东西：
preg_match( "#<div id=[\"']faktaDiv[\"']>(.*?)</div>#si", $webside, $a2 );
echo $a2;
然后输出将是：
��是指丹麦的一个城市。
我怎么才能解决这个问题？基本上，它需要允许。
浏览 4提问于2016-01-14得票数 0
回答已采纳
您好，我有一个巨大的文件，其中的数据如下：
1234567890\t this is head row1 and some random text here... \r\n
12\t line1 some randomtexthere... \r\n
6549853695\t this is head row2 and some random text here... \r\n
6\t line1 some randomtexthere... \r\n
1\t line2 some randomtexthere... \r\n
54\t iine3 some randomtexthere...
浏览 1提问于2018-01-17得票数 0
1回答
我正在对一个项目执行一些重构，我想自动替换很多(大部分)单一使用的本地常量。使用IDE，我可以搜索-替换，但是它需要大量的点击，并且有很多文件有很多变量(都在某个文件夹下，只有在某个文件夹下，所以我可以将它应用到文件夹中的每个文件)。以下是半生不熟的regex完成所需的替换：
Search string: (constant variable string )([a-zA-Z_]+)( = )("[A-Za-z\.]+")(;.*)(\2)(?![a-zA-Z_])
Replacement: $1$2$3$4$5$4
它很难看，也不实用，它只显示了期望的行为:查找声明，并用
浏览 2提问于2012-05-04得票数 2
我需要提取数字后，"&r=“在下面的链接。
http://asdf.com/product/eyewear/eyeglasses?Brand[]=Allen%20Solly&r=472020&ck-source=google-adwords&ck-campaign=eyeglasses-cat-brand-broad&ck-adgroup=eyeglasses-dersdc-cat-brand-broad&keyword={keyword}&matchtype={matchtype}&network={network}&a
浏览 18提问于2017-01-13得票数 1
从这个文件开始：
msgid "a string"
msgstr ""
msgid ""
"A longer string wraps "
"on multiple lines."
msgstr ""
Grep RegEx替换以下所有msgstr行：
msgid "a string"
msgstr "{a string}"
msgid ""
"A longer string wraps "
"on multiple line
浏览 0提问于2010-08-03得票数 0
1回答
我想找出几种语言中不同的三个元音组合的数量。使用grep，我已经隔离了文本文件中出现的三个元音。这是我使用的代码：
'[aeuioj]{3}' *file name* -o
我发现人们以前也这样做过，请看下面的链接
只是现在我需要过滤掉输出中的所有重复，这应该会给我留下一个给定语言中所有三个元音组合的列表。我是grep的新手。
谢谢,
StWS
浏览 0提问于2013-02-28得票数 0
我总是发现自己对UNIX中这两个通配符的用法感到困惑。我知道在正则表达式中，星号只能用作量词，但在某些情况下，例如ls命令，UNIX允许使用*，而在grep中，星号只能用作量词。有没有一些规则可以指导我使用其中的哪一个？
浏览 1提问于2013-03-10得票数 7
回答已采纳
1回答
我有一个XML文件，其中包括<asd>blablabla</asd>和
<dsa>-some stuff
-other stuff
final stuff.</dsa>
我想将"asd“标记之间的所有内容替换为"dsa”标记之间的任何东西，这将几乎100%是多行的。我不想替换标签，只想替换它们之间的文本，保留换行符。
该文件将不时变化，它的名称，扩展名和标签将保持不变，只有内容之间的变化。
我需要一个命令，它可以在基本的、赤裸裸的bash上实现这一点，这种bash就是Github操作所使用的。
我在想sed，但是我不知道如何用多行
浏览 0提问于2020-04-22得票数 2
回答已采纳
假设我有3个单词-- "i“、"love”、"perl“。我想要一个包含所有可能组合的数组，例如
i
love
perl
i love
i perl
love perl
i love perl
浏览 3提问于2015-04-11得票数 0
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
即时通信 IM
实时音视频活动推荐
腾讯云开发者
