Perl 截取需要字符串

刚子在学习

我想从一个文件目录中截取文件名称 但是试了好多办法都没有成功，
从/appdata/appuser/liuyong/date/hubei.xlsx 中截取 hubei这个名称

我的方法是：
my $name = (split /\s+$\/\s+|\s+\./, $path)[1];
print $name,"\n";

if ($path =~ /\/\s+([\d\.]+)/)
{
    print $1,"\n";
}
但是截取不出来

问问各位有什么好的办法没？

jason680

回复 1# 刚子在学习

掐头去尾

use strict;
use warnings;

my $path = "/appdata/appuser/liuyong/date/hubei.xlsx";

my $name = $path;
$name =~  s|.*/||;
$name =~ s/[.].*//;
print "$name\n";

   

刚子在学习

回复 2# jason680


    嗯 这样就简单多了！我开始是陷入一个思维误区，就想着一次将需要的东西截取出来，结果复杂了，
分两次截取就简单多了 ，谢谢了！

zhlong8

Perl 自带的模块 File::Basename 也很合适 http://perldoc.perl.org/File/Basename.html

koler

这样也可以。
use strict;
my $aa ="/appdata/appuser/liuyong/date/hubei.xlsx";
$aa =~ /(.*)\/(\w+).\w+$/ ;
print $2;

sunzhiguolu

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my $sPath = "/appdata/appuser/liuyong/date/hubei.xlsx";
   
7. $sPath =~ m{([^/]+)(?=\.)};
   
8. print "$1\n";
   

复制代码

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my $sPath = "/appdata/appuser/liuyong/date/hubei.xlsx";
   
6. my $sName;
   
7. while ($sPath =~ m{(?<=/)([^/.]+)}g){
   
8.         $sName = $1;
   
9. }
   
10. print "$sName\n";

复制代码