需要帮助在Perl中创建一个简单的正则表达式

发布时间：2020-12-16 06:08:05 所属栏目：大数据来源：网络整理

导读：在创建正则表达式模式时,我仍然没用.这个必须非常简单. 给出字符串：/home/users/cheeseconqueso/perl.pl 我想将字符串./放在最后一个/原始字符串的前面,以生成：/home/users/cheeseconqueso/./perl.pl 在此先感谢 – 我确信这个简单的例子将帮助我解决许多

在创建正则表达式模式时,我仍然没用.这个必须非常简单.

给出字符串：/home/users/cheeseconqueso/perl.pl

我想将字符串./放在最后一个/原始字符串的前面,以生成：/home/users/cheeseconqueso/./perl.pl

在此先感谢 – 我确信这个简单的例子将帮助我解决许多其他不应该在这里的愚蠢的事情！

解决方法

这是我的解决方案,基于我将评论留给您的问题时的想法：

use strict;
use warnings;

my $str = '/home/users/cheeseconqueso/perl.pl';
my @arr = split('/',$str);
my $newstr = join('/',@arr[0..(@arr-2)],'.',$arr[-1]);

编辑：如果你真的热衷于使用正则表达式,这是我发现的最简单的：

$str =~ s|(.*/)(.*)|$1./$2|;

它利用第一组中初始*的贪婪将每个角色带到最后一个/,然后匹配第二组中的其他所有角色.使用|更容易阅读分隔符,所以你避免倾斜牙签综合症.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!