有
my $path = "//strange/path/";
需要获取带有(一个)前导斜杠的第一个元素 = /strange
或只有 /
是 $path 为空或仅包含斜杠。
目前有两种解决方案,例如:
use 5.014;
use warnings;
use File::Spec;
my $path = "//strange/path/";
#version with File::Spec
my $v1 = "/" . ([grep {/./} File::Spec->splitdir($path)]->[0] // "");
say $v1;
#regex
my $v2 = $path;
$v2 =~ s{^/*}{};
$v2 =~ s{/.*}{};
$v2 =~ s{^}{/};
say $v2;
我都不喜欢它们中的任何一个,因为第一个使用模块,第二个中的 3 个正则表达式简直丑陋。
存在更有效||最快|| “更好”的方法?
最佳答案
如果你想要正则表达式,你可以尝试下面的“一个正则表达式”解决方案:
use 5.014;
use warnings;
while(<DATA>) {
chomp;
my $o = my $n = $_;
$n =~ s:(^/*)([^/]*)?(/*.*):/$2:;
say "=$o= =$n=";
}
__DATA__
/
//
strange
strange/
strange/path
/strange
/strange/
/strange/path
//strange
//strange/
//strange/path
//strange//
//strange//
//strange//path
但正如上面@Moritz Bunkus 所说 - 最好使用标准的 File::Spec。
关于perl - 获取perl中最顶层路径元素的有效方法,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/12197630/