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