请教个问题

machine

UID: 43012
帖子: 185
积分: 425
在线时间: 1 天 22 小时

1^# machine 发表于 2008-10-23 17:22

请教个问题

#!perl -w

open(PING,"ping 192.168.1.1 -t |") or die "$!";
#open(LOG,">>ping.log") or die "$!";

#select LOG;

while(<PING>)
{
#chomp;

print $_ ."-------------" . localtime() . "\n" unless /^\s*$|(time=)/;
}

如果我注释掉“chomp;”这一行就可以打印出ping命令的返回信息，如果不注释掉就返回不了。不知道问题出在哪。

ynchnluiti

UID: 39553
帖子: 24
积分: 55
在线时间: 10 分钟

2^# ynchnluiti 发表于 2008-10-23 17:47

QUOTE:

原帖由 machine 于 2008-10-23 17:22 发表
print $_ ."-------------" . localtime() . "\n" unless /^\s*$|(time=)/;

unless -> if试试

machine

UID: 43012
帖子: 185
积分: 425
在线时间: 1 天 22 小时

3^# machine 发表于 2008-10-24 09:04

改成if试过，问题一样。
问题很怪，在linux下运行就没问题，在windows控制台下就输出如下
-------------Thu Oct 23 17:05:16 2008=1ms tty=25
-------------Thu Oct 23 17:05:16 2008=1ms tty=25

这样的数据

ynchnluiti

UID: 39553
帖子: 24
积分: 55
在线时间: 10 分钟

4^# ynchnluiti 发表于 2008-10-24 09:36

time= 改成 time[=<]