Perl中state（）和localtime（）函数

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("mysql.tar.gz");

?? print "$array[9]/n";?

localtime函数

localtime函数，根据它所在的上下文，可以用两种完全不同的方法来运行。在标量上下文中，localtime函数返回一个格式化很好的当前时间字符串。例如，print scalar (localtime)这个代码，它输出的结果将类似于Thu Sep 16 23:00:06 1999。在列表上下文中，localtime将返回能够描述当前时间的一个元素列表：

($sec,$min,$hour,$mday,$mon,$year_off,$wday,$yday,$isdat) = localtime;

字段???值

$sec ???秒，0 ~ 59

$min ???分，0 ~ 59

$hour ???时，0 ~ 23

$mday ???月份中的日期， 1 ~ 2 8、2 9、3 0或3 1

$mon ???年份中的月份， 0 ~ 11（这里请特别要小心）

$year_off ??1900年以来的年份。将1900加上这个数字，得出正确的4位数年份

$wday ???星期几，0 ~ 6

$yday ???一年中的第几天，0 ~ 364或365

$isdst ???如果夏令时有效，则为真

不要将19附加给localtime返回的年份。它返回的年份是1900的偏移量。比如，在 1999年，年份是99;在2000年中,它是100,将1999与该值相加，可以在2000年以后正确地产生年份。perl不存在2000年问题，但是，如果简单地将19(或20)附加给该年份，就会导致程序中产生2000年问题。?

my??($sec,$year) = (localtime)[0..5];

($sec,$year) = (

? ? sprintf("%02d",$sec),

? ? sprintf("%02d",$min),$hour),$mday),$mon + 1),

? ? $year + 1900

);

print "$year-$mon-$mday $hour:$min:$sec/n";

得到的结果是：2009-01-21 15:44:23