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

Question

在创建正则表达式模式时，我仍然毫无用处。这个必须非常简单。

给定字符串:/home/users/cheeseconqueso/perl.pl
我想放置字符串 ./就在最后一个 / 的前面在要生成的原始字符串中:/home/users/cheeseconqueso/./perl.pl
提前致谢 - 我相信这个简单的例子会帮助我解决很多其他不应该出现在这里的愚蠢问题!

Answer 1

这是我的解决方案，基于我对您的问题发表评论时的想法:

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|;

它利用了初始 * 的贪婪性在第一组中将每个字符取到最后一个 / ，然后匹配第二组中的所有其他内容。使用 | 更容易阅读分隔符，这样你就可以避免倾斜牙签综合症。