需要帮助在 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|;

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

Answer 2

my $variable = "/home/users/cheeseconqueso/perl.pl";

$variable =~ s/(.*\/)([^\/]+)$/$1\.\/$2/;

Answer 3

这是使用 File::Basename 而不是正则表达式，如果您发现很难编写正则表达式，您可以使用此 cpan 模块。

use File::Basename;
$path = '/home/users/cheeseconqueso/perl.pl';
$newpath = dirname($path) . './'.basename($path);

Answer 4

实际上，您不需要正则表达式，只需分割字符串即可：

my $str='/home/users/cheeseconqueso/perl.pl';

#Array: ('','home','users','cheeseconqueso','perl.pl')
my @arr=split(/\//,$str); 

my $output=join('/',@arr[0..($#arr-2)]); # '/home/users/cheeseconqueso'
$output.='/./' . $arr[$#arr]; #Pops on the '/./' and the last element of @arr.

Answer 5

s/(.*)\/(.*)/\1.\/\2/

正如 CanSpice 所指出的， split 在这里也可以很好地工作。

Answer 6

试试这个：

my $str = "/home/users/cheeseconqueso/perl.pl";
if($str =~ /^(.*)(\/)(\w+\.\w+)$/) {
    $str = $1.'/.'.$2.$3;
}

Answer 7

正则表达式？我们不需要讨厌的正则表达式。

左值 substr() 来救援！

#!/usr/bin/perl
use warnings;
use strict;

$_ = "/home/users/cheeseconqueso/perl.pl\n";
substr($_, rindex($_, '/'), 0) = '/.';
print;