小问题

soopo

回复 10# heqidz


    看书刚好看到这里

zhaobin81

放在外面用 our 定义试试看

ynchnluiti

楼主到底要实现什么功能? 把ipvsadm的结果保存下来？

好像不需要高级的用法吧

zhaobin81

#!/usr/bin/perl

use strict;
use warnings;

my @host = ();

while (1) {
      open( IFCONFIG,"ifconfig|" ) || die "$!\n";
      foreach ( <IFCONFIG> ) {
               chomp;
               next unless ( m#(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})  );
               print "$1\n";
               push( @host,$1 );
      }
      close IFCONFIG;
print @host,"\n";
sleep 60;
}

@host 放到外面是可以的
你的正规好像有问题 .  的需要转义的

Mr-Summer

our 可行不？