标签:
直接看代码吧
#获取文件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]; }
标签:
原文地址:http://www.cnblogs.com/CodeTracker/p/4832053.html