如何从与其他字符变量在Perl

Question

解压路径我试图从用perl变量

$path = /temp/bin/usr/... 

提取/temp/bin/usr/。 有人可以帮我吗？

Answer 1

如果您只需要删除这些'..'，那么结果有很多。

例如：

1）

my $str="/temp/bin/usr/..."; 
($str) =~ s/\.+$//; 
print $str; 

2）

my $str="/temp/bin/usr/..."; 
$str = substr($str, 0, index($str, ".")); 
print $str; 

3）

my $str="/temp/bin/usr/..."; 
$str = (split /\./, $str)[0]; 
print $str; 

，这儿有很多更多！

Answer 2

使用File::Basename。这是Perl版本5核心模块从the documentation：

use File::Basename; 

($name,$path,$suffix) = fileparse($fullname, @suffixlist); 
$name = fileparse($fullname, @suffixlist); 

$basename = basename($fullname, @suffixlist); 
$dirname = dirname($fullname); 

这听起来像dirname($path)是你所追求的。

您也可以简单地使用正则表达式

$path =~ s/\.+$//; 

Answer 3

要提取的路径的一部分，例如，第一三个目录，一种方法是使用模块File::Spec的方法splitdir，如：

printf "%s\n", join q|/|, (File::Spec->splitdir($path))[0..3]; 

如果你想删除这些点，使用最后一个斜线之后匹配他们，就像一个正则表达式：

$path =~ s|(/)\.+\s*$|$1|;