perl语言：分割路径字符串，获取文件名

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