除了perl内置的变量如$0和使用正则表达式以及通配符外，perl还有一些方便简洁的模块能够对文件名和路径进行获取。
FindBin qw($Bin $Script):
$Bin； #返回被执行脚本的绝对路径
$Script； #返回被执行脚本的名称
Cwd qw(getwd cwd fastwd fastgetwd abs_path):
*除abs_path()外均为Cwd默认载入函数
getwd();cwd();fastwd();fastgetwd(); #与$Bin不同，返回的是执行脚本时的路径
abs_path($file); #返回执行脚本时的路径和文件名
File::Basename：
($filename,$dir,$suffix) = fileparse($file,@suffixlist); #获取$filename-文件名，$dir-文件路径，以及$suffix-文件后缀，@suffixlist是一个后缀的集合
$basename = basename($file); #获取文件名
$dirname = dirname($file); #获取文件绝对路径
