perl 去掉文件名前面的路径

方法一：

$filename="/home/cc/test.txt";

$filename =~ s#.*/##; #此时filename 就是 test.txt

 

方法二：（来自perl语言入门Page:207）

use File::Basename;

my $name = "usr/local/bin/perl";

my $basename = basename $name; # 此时basename 是perl

my $dirname = dirname $name; #取的目录名