perl下stat()函数的使用

perl下的stat函数和shell下的stat命令的功能基本一致，也是取得文件的各类具体信息： stat()函数返回一个数组，下面是数组各个元素的含义： 0 ? ? dev ? ? ?设备号 驱动器号（C：通常是2，D：通常是3，等等） 1 ? ? ino ? ? ?索引节号 总是0 2 ? ? mode ? ? 文件的方式 无 3 ? ? nlink ? ?链接号 通常为0；Windows NT；文件系统允许链接 4 ? ? uid ? ? ?文件所有者的用户ID（UID）总是0 5 ? ? gid ? ? ?文件所有者的组ID（GID）总是0 6 ? ? rdev ? ? 特殊文件信息 驱动器号（重复） 7 ? ? size ? ? 文件大小（以字节计）文件大小（以字节计） 8 ? ? atime ? ?上次访问的时间 上次访问的时间 9 ? ? mtime ? ?上次修改的时间 上次修改的时间 10 ? ?ctime ? ?Inode修改时间 文件的创建时间 11 ? ?blksz ? ?磁盘块的大小 总是0 12 ? ?blocks ? 文件中的块的数量 总是0 例子： 获取某个文件的创建时间和最后一次修改时间， my @array = stat("test.html"); ? ?print "$array[10]n"; ? ?print "$array[8]n";