从数组中删除特定字符

作者: 部落用户
发布时间: 2025-02-07 12:09:59 (1月前)
转自：

3 条回复

0#
回复此人
雨儿 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 您可以通过在正则表达式中在其前面放置斜杠来否定字符的“特殊性”，从而在perl中进行此更改。所以变量的正则表达式可能是 <code> s/\'//g </code> 。一个例子如下： </p> <pre> <code> #!/usr/bin/perl @names=('\'Tom\'','\'Jerry\''); foreach my $name (@names) { print "Name is $name\n"; $name =~ s/\'//g; print "After regex, Name is $name\n"; } </code> </pre> <P> 在带有单引号的数组声明中，perl会将这些解释为简单引用您的输入，并且不会将它们包含在输出中。我需要添加单引号的否定来产生以下结果： </p> <pre> <code> Name is 'Tom' After regex, Name is Tom Name is 'Jerry' After regex, Name is Jerry </code> </pre> </DIV>

编辑
1#
回复此人
永远的记忆 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 代码和你的问题是不同的。但是看看你想要的输出我将假设您想要加入/打印数组的元素。考虑示例代码： </p> <P> 的<strong> 码： </强> </p> <pre> <code> @names = ('Tom','Jerry'); my $str = join '\n', @names; say $str; </code> </pre> <P> 的<strong> 输出： </强> </p> <pre> <code> Tom Jerry </code> </pre> </DIV>

编辑

登录后才能参与评论