#获取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" #打印结果