perl 如何匹配到一个路径的最后一个子目录

[junnyfeng]

目录深度是不定的，且最后一个斜杠可有可无

例如

目录 /home/test/function/op 或者是 /home/test/function/op/

需要匹配出来op

注意是匹配，而不是使用函数。

[iambic]

有现成的函数为啥非要自己山寨一个三流的解决方案？

[junnyfeng]

[Quote=引用 1 楼 iambic 的回复:]

有现成的函数为啥非要自己山寨一个三流的解决方案？
[/Quote]

你说用什么函数？

[cliffbaby]

[Quote=引用 1 楼 iambic 的回复:]
有现成的函数为啥非要自己山寨一个三流的解决方案？
[/Quote]

是什么函数？学习下！

[czl21]

basename

[cliffbaby]

[Quote=引用 5 楼 liuyanbo0512 的回复:]
#!/usr/bin/perl

use File::Basename;

my $dir_1="/home/test/function/op";
my $dir_2="/home/test/function/op/";
my $base_1=basename $dir_1;
my $base_2=basename $dir_2;
print "$base_1\n$base_2\n……
[/Quote]

不错。可以结贴了！

[liuyanbo0512]

#!/usr/bin/perl

use File::Basename;

my $dir_1="/home/test/function/op";
my $dir_2="/home/test/function/op/";
my $base_1=basename $dir_1;
my $base_2=basename $dir_2;
print "$base_1\n$base_2\n";

[proorck6]

use File::Basename;

[彬彬]

判断中直接使用模式匹配

/\/op[\/]?$/

[xftianyu]

use File::Basename;