#perl处理文件，获取文件状态信息
#参数：文件全路径
#返回值信息(返回值之间以空格分隔)
#1、文件大小(字节)
#2、文件内容最后修改时间(yyyy-mm-dd hh24:mi:ss)
#3、文件内容最后修改时间与当前时间差值(秒)
#4、文件状态最后修改时间(yyyy-mm-dd hh24:mi:ss)
#5、文件状态最后修改时间与当前时间差值(秒)
#6、文件inode最后修改时间(yyyy-mm-dd hh24:mi:ss)
#7、文件inode最后修改时间与当前时间差值(秒)
pl=$0
filename=$1
pl=${0/.sh/.pl}
perl ${pl} $filename