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

aphey

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

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

[ 本帖最后由 flw 于 2008-11-17 09:07 编辑 ]

MMMIX

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

flw

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

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

hfahe

一句简单的正则而已

MMMIX

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

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

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