Perl 用于分析路径字符串的替换函数

我有一个字符串：

$path=/home/usr/project/name 

我正在尝试使用替换函数来解析字符串并仅获取名称。我期望的结果是：

$path=name

我尝试使用，但没有成功：

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

我不确定语法是否正确。任何帮助都将不胜感激。谢谢

是一种比使用

s//

更便携的解决方案：

use warnings;
use strict;
use File::Basename qw(basename);

my $path = '/home/usr/project/name';
$path = basename($path);
print $path, "\n";

__END__

name

是比使用

s//

更具可移植性的解决方案：

use warnings;
use strict;
use File::Basename qw(basename);

my $path = '/home/usr/project/name';
$path = basename($path);
print $path, "\n";

__END__

name

---

它也不是一个实验性的解决方案，因为任何新构造的正则表达式都可能是。它也不是一个实验性的解决方案，因为任何新构造的正则表达式都可能是。你应该在“/path/file”周围加引号。你应该在“/path/file”周围加引号