彪彪
openkore
全部博文(50)
C编程(0)
软件工具(0)
c++入门(2)
openkore(0)
2010年(38)
2009年(12)
kevin258
wsy52081
ddmumahh
vincerma
raveh
mwx1234
chen_xue
zjwmv
zpbobo11
分类:
2010-05-25 00:17:20
#!/usr/bin/perluse strict;my ($sec,$min,$hour,$mday,$mon,$year_off,$wday,$yday,$isdat) = localtime;my $content = `ping 192.168.1.1 -n 5`;my $mytime = scalar (localtime);my $year = $year_off + 1900;print $mytime."\n";$mon += 1;$mytime = sprintf("%04s%02s%02s%02s%02s%02s",$year,$mon,$mday,$hour,$min,$sec);print $mytime."\n";open FILE,">>D\:\\ping$mytime\.txt";print FILE $content;close FILE;
上一篇:ORACLE 游标,过程练习
下一篇:先于main函数执行的方法
登录 注册