如何在Perl中使用其他分隔符？
在Perl中，可以使用split函数来使用其他分隔符。split函数用于将字符串分割成数组，可以指定分隔符作为参数。
下面是在Perl中使用其他分隔符的示例：
my $string = "apple,banana,orange";
my @fruits = split(",", $string); # 使用逗号作为分隔符在上面的示例中，我们将字符串"apple,banana,orange"使用逗号作为分隔符分割成了一个数组@fruits，数组的元素分别为"apple"、"banana"和"orange"。
除了逗号，还可以使用其他字符作为分隔符，比如空格、制表符、冒号等。只需要将相应的字符作为split函数的第一个参数即可。
my $string = "apple banana orange";
my @fruits = split(" ", $string); # 使用空格作为分隔符在上面的示例中，我们将字符串"apple banana orange"使用空格作为分隔符分割成了一个数组@fruits，数组的元素分别为"apple"、"banana"和"orange"。
除了单个字符作为分隔符，还可以使用正则表达式作为分隔符。只需要将正则表达式放在两个斜杠之间作为split函数的第一个参数即可。
my $string = "apple,banana;orange";
my @fruits = split("[,;]", $string); # 使用逗号和分号作为分隔符在上面的示例中，我们将字符串"apple,banana;orange"使用逗号和分号作为分隔符分割成了一个数组@fruits，数组的元素分别为"apple"、"banana"和"orange"。
总结起来，使用其他分隔符的步骤如下：
- 使用split函数。
- 将分隔符作为split函数的第一个参数。
- 将需要分割的字符串作为split函数的第二个参数。
- 获取分割后的数组。
对于Perl中使用其他分隔符的更多信息，可以参考腾讯云的Perl开发文档：Perl开发文档。
相关·内容
1回答
“/”字符在正则表达式中的含义是什么？
我观察到了以下匹配单数或两位数的例子。
/^\d{1,2}$/
当我搜索多个regex备忘单时，正斜杠在regex中没有显示为一个有意义的字符.
在regex中“/”做什么？
浏览 3提问于2016-05-27得票数 1
3回答
Linux命令替换字符串无效
、、、、
我的wordpress网站已经感染了eval(gzinflate(base64_decode('黑客。
我想把ssh放到服务器中，并在我的php文件中找出替换所有这些行的方法。
我尝试了以下命令：
find . -name "*.php" -print | xargs sed -i 'MY STRING HERE'
我认为这是不起作用的，因为字符串中包含/ 字符，我认为其中需要转义。
谁能让我知道如何摆脱这些角色吗？
提前谢谢。
浏览 2提问于2015-01-25得票数 0
我在Mac10.6.6上使用Perl 5.10.6。我想执行一个简单的搜索并对一个文件进行替换，所以我尝试了：
my $searchAndReplaceCmd = "perl -pi -e 's/\\Q${localTestDir}\\E//g' ${testSuiteFile}";
system( $searchAndReplaceCmd );
但是上面的问题是变量$localTestDir包含目录分隔符("/")，这会扰乱正则表达式.
在-e第1行，在"s/\Q/home/selenium“附近找到操作符的位置
反斜杠中，操作符期望
浏览 3提问于2011-08-01得票数 5
回答已采纳
3回答
如果我有：
$foo= "12."bar bar bar"|three";
如何在文本中插入"..“在变量中的文本12之后？
浏览 0提问于2009-03-15得票数 5
回答已采纳
3回答
我在写一个简短的bash脚本时遇到了问题。似乎所有的正斜杠都需要转义。在perl读取扩展(环境)变量中的必需字符之前，如何对它们进行转义？或者其他一些perl可以理解的方法。
这就是我正在尝试做的，但这将无法正常工作。
eval "perl -pi -e 's/$HOME\/_TV_rips\///g'" '*$videoID.info.json'
这是一个更长的脚本的一部分，其中videoID=$1。(由于某种原因，perl在单引号和双引号中都扩展了变量。)
这个简单的变通方法在扩展的环境变量$USER中没有正斜杠。但我不希望对/Users/进
浏览 5提问于2021-10-31得票数 1
3回答
我刚刚开始学习python中的正则表达式模块，并被要求解释一个有趣的正则表达式序列。
/^[a-z0-9_-]{3,16}$/
我可以解释两个正斜杠中的代码，该斜杠搜索的用户名是字母数字，包括连字符和下划线，并且至少有3位和最多16位数字或字符。
现在我的问题是，这两个斜杠是什么意思？我尝试了网络，它似乎大多数教程有一个解释向后斜杠，但没有正斜杠。请给我建议。谢谢。
浏览 5提问于2016-04-06得票数 1
1回答
我正在尝试使用Mac OSX中的fdupes从目录中删除重复的文本文件。它已经删除了一堆重复的内容。
我现在遇到的问题是，在剩下的文件中，有许多是重复的，除了在其中一个文件中，文件名是第一行，后面跟着一个空行，然后是文本。
所以，我想找出文件名在顶部重复的所有文件，然后去掉这行和下面的空行，这样fdupes就会把它们识别为重复的。这将允许我使用fdupes来解析它们。
示例：
file001.txt：
test 123
test
file002.001.txt：
file002.001.txt
test 123
test
做这件事最好的方法是什么？
浏览 1提问于2013-02-15得票数 0
回答已采纳
3回答
$stuff = "d:/learning/perl/tmp.txt";
open STUFF, $stuff or die "Cannot open $stuff for read :$!";
while (<STUFF>) {
my($line) = $_; # Good practice to always strip the trailing
chomp($line);
my @values = split(' ', $line);
foreach my $val (@values) {
浏览 0提问于2009-12-12得票数 4
回答已采纳
2回答
我看到了许多例子，但出于某种原因，它仍然对我不起作用。
这是我正在执行的命令：
NUMBER=$(docker logs vault | grep Token)
NUMBER=${NUMBER##*": "}
NUMBER=$(echo $NUMBER | sed 's/^token=(.*)$//g')
echo $NUMBER
我想得到'=‘之后的值，这基本上是一个字符串。我尝试使用GREP和其他regex，但要么一无所获，要么只得到原来的字符串。
请给我建议。
浏览 0提问于2018-02-20得票数 1
回答已采纳
2回答
我最近刚开始阅读AWK 编程语言，目的是用它创建一个编程语言解析器，因为它通常被用作文本处理器和/或用于模式匹配。我有这样的想法：“如果这种语言用于模式匹配和文本处理，那么它不能用于处理特定语句的源文件，比如for / if / while关键字和短语，然后执行给定的操作，并将其传递给lexer或类似的东西吗？”我在网上做了一些研究，但是我找不到关于这个问题的任何信息。
浏览 1提问于2017-09-24得票数 2
回答已采纳
我正在尝试使用终端替换文件中的一些html代码。
这是我正在使用的命令
perl -pi -w -e 's/find/replace/g;' /Volumes/Abc.html
我在试着替换
<body>
使用
<body>
<div style="text-align: center;page-break-after:always;padding-top:0%;">
<img src="images/image-001.jpg" id="illustration" alt="i
浏览 0提问于2012-10-24得票数 5
回答已采纳
我在expect脚本中使用以下awk命令来获取特定目的地的网关
route | grep $dest | awk '{print $2}'
但是，expect脚本不喜欢上面语句中的$2。
有没有人知道替代awk来执行上面同样的功能？即。输出第二列。
浏览 1提问于2011-02-15得票数 5
回答已采纳
知道regex引擎mod_substitute使用什么吗？我想做一些搜索并用它来替换，我需要转义一些字符，所以我想看看那个特定的引擎是如何处理的。(我猜只是\想逃跑，但我想确定一下。
https://httpd.apache.org/docs/2.4/mod/mod_substitute.html
浏览 0提问于2016-04-15得票数 2
回答已采纳
修改Perl脚本时，我得到了以下内容：
$var =~ s,/$,,;
它似乎是一个regex模式，但我希望找到"/“(或”AC.26“)而不是"，”作为分隔符。
因此，问题是：何时以及为什么应该在regex模式"/“或”AC.26“或"?”中使用
浏览 1提问于2014-01-24得票数 6
回答已采纳
3回答
从单个字符中查找单词
、、、
我正在尝试从一个特定的字符中抓取一个单词，例如，如果我的句子是
Hello, World!
我想搜索e，我的输出将是
Hello,
我尝试使用grep，但是没有成功，我也尝试了这个
echo "Hello, World!" | grep -o e
输出
e
有没有办法让我得到"Hello“的输出
浏览 0提问于2019-08-27得票数 0
3回答
如果特定列包含值>0，则打印行。
、、、、
我有一个以这种格式以制表符分隔的.txt文件，包含许多符号、数字和字母：
MUT 124 GET 288478 0 * = 288478 0
MUT 15 GET 514675 0 75MH = 514637 -113
MUT 124 GET 514637 0 75MH = 514675 113
我希望标识第9列中包含>0值的所有行(即仅提取上面的第3行)，然后从任何匹配的行中打印列4+9。
所需输出(两个列选项卡分隔为.txt文件)：
514637 113
在终端/命令行中是否有一种快速的方法来做到这一点？如果是这样的
浏览 6提问于2015-11-11得票数 0
回答已采纳
2回答
我已经研究codeigniter好几个小时了。我在router类中发现了一些不同的正则表达式。
preg_match('#^'.$key.'$#', $uri);
preg_replace('#^'.$key.'$#', $val, $uri);
我做了一个php测试文件，如下所示：
<?php
$route['login'] = 'user/login';
$route['user/([a-zA-Z-]+)'] = 'user/profile/$1';
$
浏览 0提问于2011-10-22得票数 0
回答已采纳
这让我心烦：
为什么是preg_match('/pattern/', $haystack)而不是preg_match('pattern', $haystack)？我所看到的一切只是说明了它们是必要的，并提到您可以使用备用分隔符。
但是，它是一个在字符串之外定义自己接口的函数。它有一个旗子的论点。添加字符串内语法似乎变化无常。
这是从pcre继承下来的，只是作者对工作不感兴趣吗？PHP的另一个不正常的事实呢？还是有正当理由？
浏览 11提问于2012-03-03得票数 4
回答已采纳
1回答
如何只打印C源文件中的主函数？
、、、、
例如，cat foo.c将打印整个文件，cat foo.c | grep main将打印主函数定义的行。
那么我将如何打印整个main函数呢？
(我在Ubuntu)
浏览 0提问于2021-07-12得票数 0
回答已采纳
1回答
如何匹配正则表达式中的"“和"”？这个不起作用：[\\[\\]]我认为\\可以使用特殊字符。我想在一个班级里和他们匹配。
浏览 2提问于2014-07-25得票数 3
回答已采纳
我正在尝试学习正则表达式。我试着通过检查一个电子邮件帐户来测试自己。但问题是它出现了一个错误：
在第8行的/www/eh11522/public_html/scclib/demo/regex.php中找不到结束分隔符'^‘
下面是我的代码：
<?php
$pattern = "^([\w.]+)@w([\w.]+).([\w.]+)";
$email = "tyler@surazinet";
if (!preg_replace($pattern, '', $subject)) {
echo "worked";
}
浏览 0提问于2012-03-07得票数 2
回答已采纳
1回答
为了提高可读性，我调用了preg_replace函数并将其放在多行中，但是正则表达式中的*/字符弄乱了注释。如何才能注释掉所有这些行，而不将它们全部移到一行上？
return preg_replace('/.*/',
'Lorem Ipsum' .
'More Lorem Ipsum'
,
$foo);
浏览 2提问于2012-09-19得票数 5
回答已采纳
3回答
为什么divide不起作用？ echo 'cb0' | perl -p -e 's/(\w{3})/sprintf("%d", ( hex($1)/4 ))/e'
Number found where operator expected at -e line 1, near
"s/(\w{3})/sprintf("%d", ( hex($1)/4" syntax error at -e line 1, near
"s/(\w{3})/sprintf("%d", ( hex($1)/4&#
浏览 32提问于2019-02-12得票数 0
回答已采纳
在大多数文本编辑器中，比如记事本+和vscode，当你双击一个字符时，它们会选择整个单词。我很好奇如何实现它，这个函数(在Python中)可能是： separators = 'some characters' # word separators
def select_word_at_offset(line, offset):
line_length = len(line)
if offset < 0 or offset > line_length:
raise RuntimeError('offset is not a va
浏览 21提问于2020-09-11得票数 0
22回答
我想将ls -1的结果合并到一行中，并用我想要的任何东西来分隔它。
有没有什么标准的Linux命令可以用来实现这一点？
浏览 0提问于2010-05-04得票数 504
回答已采纳
1回答
我希望用从用户输入生成的字符串替换目录下所有文件中的占位符。此输入可以包含/ : . ~。
为此，我选择了Perl。
perl -p -i -e "s/__MY_PLACEHOLDER__/$user_input/g" `find my_dir -type f -print0 | xargs -0`
现在，~是Perl中的一个保留字符。如何避免~ in $user_input？\~不工作。
浏览 0提问于2016-08-26得票数 2
回答已采纳
我对Perl和regex非常有经验。然而，这让我发疯，我就是找不到答案，也看不到原因。请看下面的代码：
my $str = 'Hello[world]';
say $str =~ m/\w+\[.*?\]/ ? 'Yes' : 'No';
say $str =~ m[\w+\[.*?\]] ? 'Yes' : 'No';
say $str =~ m(\w+\[.*?\]) ? 'Yes' : 'No';
此命令的输出为：
Yes
No
Yes
正如您所看到的，我唯一要更改的是reg
浏览 2提问于2013-03-15得票数 0
回答已采纳
当我学习正则表达式时，我了解到它们应该以斜杠字符开头和结尾(后面跟着修饰符)。
例如/dog/i
但是，在许多示例中，我看到它们以其他字符开始和结束，如@、#和|。
例如|dog|
有什么关系呢？
浏览 2提问于2009-11-01得票数 0
4回答
从bash脚本替换文件中的字符串
、、、、
我需要在一个小bash脚本中替换一个文件中的字符串，但是...我得到了奇怪的结果。
假设我想替换：
<tag><![CDATA[text]]></tag>
通过以下方式：
<tag><![CDATA[replaced_text]]></tag>
我应该使用sed吗？我认为由于/和[ ]，我得到了奇怪的结果…
解决这个问题的最好方法是什么？
浏览 0提问于2012-04-09得票数 1
1回答
我试图使用grep查找文件中的所有匹配字符串，并将它们在行的上下文中输出到另一个文件中，同时在匹配的两边添加某种标记(理想情况下是两个星号)。
例如，我有以下input.txt文件：
Dog walks in the park
Man runs in the park
Man walks in the park
Dog runs in the park
Dog is still
They run in the park
Woman runs in the park
然后，通过重定向文件进行grep搜索：
grep -P ' runs? ' input.txt > outp
浏览 0提问于2015-07-21得票数 3
回答已采纳
我试图理解以下Perl命令“删除所有连续的空行，只留下一行”：
perl -00 -pe ''
来自
首先，它没有任何代码，-e是空的。接下来，它有一个愚蠢的命令行选项。此命令行选项打开“段”模式。段落是两个换行符之间的文本。其他所有的新线路都被忽略了。该段落被放入"$_“中，"-p”选项将其打印出来。
我不听这个解释。也许用词不准确。
所以"A paragraph is text between two newlines."，但是每一行都是两个换行符之间的文本。
"All the other newlines get ignor
浏览 2提问于2017-12-27得票数 1
在Perl中，我的大多数print语句都采用以下形式
print "hello." . "\n";
有没有一种好的方法来避免把所有讨厌的“\n”都放在那里？
我知道我可以创建一个新函数，比如自动追加\n的myprint，但是如果我可以覆盖现有的print，那就太好了。
浏览 2提问于2010-05-25得票数 102
回答已采纳
1回答
请有人解释一下，为什么perl不替换regexp：
root@machine08:~# VERSIONK8S='${VERSION_KUBERNETES:-1.23.3-00}'
# with sed as i want it
root@machine08:~# sed -e "s/^VERSIONK8S=.*/VERSIONK8S=${VERSIONK8S}/g" /root/coding/k8s-setup/allnodes_basic_setup.sh | grep ^VERSIONK8S=
VERSIONK8S=${VERSION_KUBERNETES:
浏览 1提问于2022-03-09得票数 1
回答已采纳
我不确定，我认为这是不可能的，但我想我还是会问。
我想用一个量仪，它是一种元炭。例如：
括号、括号等，( )，……
但一切都是真的。
这不是我需要做的，而是我试图写一个转义例程作为一个项目的一部分。
那么，有什么问题？这个问题出现在正则体中，而它实际上不是一个元字符。
它是一个文字，类似于：
/ \( \) /，将用(和)替换正斜线浮标。
例如，在Perl中，这些方法不起作用
=~ m( \( \) )
=~ m( \\( \\) )
=~ m( \\\( \\\) )
=~ m( \\\\( \\\\) )
括号没有多少转义，就会分配一个反斜杠(文字\( )。
除
浏览 4提问于2014-01-04得票数 0
回答已采纳
2回答
我想要匹配：
Start Here Some example
text covering a few
lines. End Here
所以我知道
$ perl -nle 'print $1 if /(Start Here.*?)End Here/s'
然后粘贴上面的文本和ctr-D。它与cmd不匹配，但在文件脚本中是匹配的。为什么？
浏览 3提问于2020-04-29得票数 0
回答已采纳
当我从在线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
回答已采纳
3回答
我是Perl的新手，所以这可能是一个非常愚蠢的问题，但我找不到答案：
如果我有：
$stringA =~ /regex/;
$stringB =~ m/regex/;
在我的测试中，$stringA = $stringB。它们之间有什么不同吗？
谢谢。
浏览 1提问于2010-11-10得票数 5
我有两个文件test01和test02，如下所示
Test01文件：
RX_HOME=/app/rx/rx01/mxIII
SCR_HOME=/app/scr/scr01/mxIII
JAVA_HOME=/opt/java/jdk1.7.0_51
SYBASE_HOME=/opt/sybase
ORACLE_HOME=/opt/oracle/11202
MX_HOST=ukloldk008
DB_HOST=ukloldk0004
Test02文件：
<MX_HOME>;
SCR_HOME;
;JAVA_HOME;
"SYBASE_HOME"
{ORACLE_HOME
浏览 1提问于2015-03-11得票数 0
因此，我知道您可以编写Perl一行程序，它使用非默认记录分隔符读取记录，其选项如下
perl -064 -ne '#... delimited by @'
或者一行中的整个文件：
perl -0777 -ne '#... file at once'
我还知道，如果以编程方式将记录分隔符$\设置为对数字的引用，则可以读取固定宽度的记录。
perl -ne '$/ = \10; #... 10 chars at a time'
但是，我找不到任何使用-0选项读取固定宽度记录的方法。这个是可能的吗？
浏览 1提问于2018-12-05得票数 5
回答已采纳
我的带有空格的CSV文件：
Id ; FirstName ; LastName ; email
123; Marc ; TOTO ; marc@toto.com
我希望删除csv中的空格，如下所示：
Id;FirstName;LastName;email
123;Marc;TOTO;marc@toto.com
我会在Perl中使用regex。
浏览 5提问于2022-11-10得票数 0
1回答
我正在尝试使用正则表达式移除标记头，在windows10中使用perl递归的多个文件。
forfiles /s /m *.html /c "perl -pi -e s/<head(?:.|\n|\r)+?</head>//g @path"
但我得到了这样的信息，我不明白我错在哪里
Illegal division by zero at -e line 1.
浏览 40提问于2017-12-14得票数 0
我有这个regex：'src=\d'，它匹配以文件中的数字开头的所有src属性。我需要将它存储在一个变量中，删除src=并从其中编写一个新的$string，并将\d连接到它：$string . $d。是否可以只将\d存储在具有单个命令行的变量中？如何在命令行中使用cut和变量？有可能吗？
perl -pi -w -e 's/src="\d+/src="http:\/\/website.com\/\d+/g’ file.tsv
浏览 1提问于2015-05-30得票数 2
回答已采纳
2回答
可能重复：
在Ruby中，当我用与字符串开头匹配的分隔符拆分字符串时，它在数组的初始位置提供一个空字符串：
"abc".split(/a/) # => ["", "bc"]
但是，当我使用与字符串末尾匹配的分隔符执行类似的操作时，它不会给出空字符串：
"abc".split(/c/) # => ["ab"]
在我看来这不一致。这样的规范有什么理由吗？
编辑如果要与Perl的规范兼容，就像在muu中一样，那么问题仍然是一样的:为什么在Perl中是这样的呢？由于这个原因，现在它也成为了一个关于Pe
浏览 2提问于2012-11-07得票数 8
回答已采纳
为了使Notepad++突出显示嵌入的Perl模板为HTML，我在样式配置器中添加了.ep文件扩展名。然而，在这些.ep文件中有大量的纯Perl代码是非常常见的，这些<% perl code %>文件被标记为<% perl code %>标记。
是否有任何方法使Notepad++将<%和%>之间的所有内容解释为Perl代码，并将其突出显示为Perl，而这些标记之外的所有内容都应该被视为%>？
浏览 0提问于2014-06-11得票数 5
我有一个很大的csv文件，每行大约有100个双引号的“文本字段”。许多行在双引号字段中嵌入了\r\n。\r\n对还用于行终止。
如何从双引号字段中删除\r\n对而不影响\r\n行终止。
我尝试创建单独的sed脚本来识别特定的嵌入序列。这在某种程度上起到了作用，但脚本的数量变得难以管理。我还尝试使用'tr -d '\r‘命令，但不起作用。
浏览 0提问于2016-06-06得票数 1
据我所知，所有unix文本处理实用程序都是一次读取一行，并在这一行上执行一个操作。
我有一个包含一行文本的大型文件，其中包含几个涉及到的令牌。
您可以将文件的内容看作如下所示：
我希望得到(A和B)和(B和C)之间的两个字符串，对于每个出现的A*B*C，在这个示例中，我想要的输出如下：
Z zxxxxzz
我该怎么做？
编辑:对不起，我没说清楚。A，B和C是长字符串，只能用正则表达式来识别。
浏览 0提问于2010-12-12得票数 5
回答已采纳
1回答
我想自动在提交消息中添加我的团队名称，我已经使用以下命令在全局配置中注册了该消息：
git config --global user.team "Seawolves"
有许多团队在同一个项目中工作，我们共享gitconfig文件中指定的模板文件。
[commit]
template = /mnt/share/gitmessage
下面是我的~/..gitconfig的部分内容：
cat ~/.gitconfig
[user]
name = Rajesh Khanna
email = rajesh.khanna@somthing.com
team
浏览 1提问于2022-01-04得票数 3
回答已采纳
2回答
我希望读取分隔符为:的文件中的列。
我尝试这样做(因为根据，冒号的八进制表示是072)：
$ echo "a:b:c" | perl -a -072 -ne 'print "$F[1]\n";'
我想让它打印b，但它不起作用。
浏览 0提问于2011-09-01得票数 8
回答已采纳
2回答
#!/bin/sh
old="hello"
new="world"
sed -i s/"${old}"/"${new}"/g $(grep "${old}" -rl *)
上面的脚本只适用于单行文本，如何编写脚本才能替换多行文本。
old='line1
line2
line3'
new='newtext1
newtext2'
我可以使用什么命令。
浏览 1提问于2012-02-10得票数 3
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
即时通信 IM
腾讯会议活动推荐
腾讯云开发者
