获取文件path路径中的文件名（是否包含扩展名）

#获取文件path路径中文件名（去掉目录路径）
sub get_file_basename{
my ($file_path) = @_;
my @tmp_arr = split(/[\\|\/]+/,$file_path);
my $len = @tmp_arr;
if ($len >=2) {
return $tmp_arr[-1];
}else{
return $file_path;
}
}

#获取文件path路径中文件名（去掉目录路径，去掉扩展名）
sub get_file_name{
my ($file_path) = @_;
my $basename = get_file_basename($file_path);
my @tmp_arr = split(/\./,$basename);
my $len = @tmp_arr;
return $tmp_arr[0];
}