获取文件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];
}