Chinaunix首页 | 论坛 | 博客
  • 博客访问: 226509
  • 博文数量: 50
  • 博客积分: 1415
  • 博客等级: 上尉
  • 技术积分: 541
  • 用 户 组: 普通用户
  • 注册时间: 2009-12-03 11:48
文章分类

全部博文(50)

文章存档

2010年(38)

2009年(12)

我的朋友

分类:

2010-05-25 00:17:20

#!/usr/bin/perl


use 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;


阅读(1443) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~