if (/mod\:/){} 是什么意思?

aphey

UID: 10462
帖子: 142
积分: 326
在线时间: 1 天 3 小时

1^# aphey 发表于 2008-11-17 08:50

if (/mod\:/){} 是什么意思?

foreach(@curlines) {
            if ( /mod\:/ ) {
                     ($port, $user, $dummy) = split;

                     if ($user eq $ARGV[3]) {
                              print LOG "  $user matches $ARGV[3] " .
                                    "on port $port" if ($debug);
                              return 1;
                     };
            };

中的 if ( /mod\:/ ) {  是什么意思?

print (@curlines,"\n") 的结果是
--------------------------------------------------------------------------
  UserID  Username                      IP address       MAC
  --------------------------------------------------------------------------
  15898 haobtest@qia.com    10.72.38.76    0019-2197-1e73
  45511 haobtest@qia.com    10.72.39.93    00b0-2c03-42d4
  ----------------------------------------------------------------------------
  Total 2,2 printed

在上面代码中,如何将$port  $user $dummy 分别赋值为userID  username ipaddress?

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

2^# flw 发表于 2008-11-17 09:05

计划持续学习者请看小骆驼
临时用户请 perldoc perlretut

MMMIX

UID: 31964
帖子: 137
积分: 315
在线时间: 1 天 1 小时

3^# MMMIX 发表于 2008-11-17 09:58

这个代码有点奇怪，分号到处乱加。。。

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

4^# flw 发表于 2008-11-17 10:05

QUOTE:

原帖由 MMMIX 于 2008-11-17 09:58 发表
这个代码有点奇怪，分号到处乱加。。。

估计是吃了 do {} 和 eval {} 的亏，长记性了。

hfahe

UID: 36097
帖子: 160
积分: 368
在线时间: 1 天 11 小时

5^# hfahe 发表于 2008-11-17 10:34

一句简单的正则而已

MMMIX

UID: 31964
帖子: 137
积分: 315
在线时间: 1 天 1 小时

6^# MMMIX 发表于 2008-11-17 10:42

QUOTE:

原帖由 flw 于 2008-11-17 10:05 发表

估计是吃了 do {} 和 eval {} 的亏，长记性了。

长记性了也不应该乱写呀，看起来怪怪的。。。