perl语言:分割路径字符串,获取文件名

时间:2022-12-26 05:53:16
#获取path变量内的A1_0.htk文件名

$path="C:\Users\ABC\Desktop\ivector\data\A1_0.htk";
@Name = split(/\\/,$path); #将path按“\”分割,得到一个数组,@表示数组
$num = 1; #因为perl数组是从0开始,一会需要将数组的长度减1
$count = @Name;  #获取数组的长度
$ind = $count-$num; #perl两数相减
$fileName = $Name[$ind]; #最终获取文件名
print "$fileName" #打印结果