数组如何取值 IP

ppiqq

数组如何取值
IP
请大家帮帮忙 我刚接触perl
第一次编程 想要实现的是：
将一些IP放入到数组里面 然后递归的根据里面的变量对相应的IP操作
这个应该怎么实现呢？
也就是说如何使用perl实现类似C下面的对于数组的 for循环

[ 本帖最后由 ppiqq 于 2008-5-15 15:48 编辑 ]

churchmice

原帖由 ppiqq 于 2008-5-15 17:29 发表
#!/usr/bin/perl
use strict;
my @test=qw(192.168.1.55 192.168.1.67 192.168.1.10);
foreach @test {
      print "$_\n";
}
还是不行。。。。。。
我也汗了

我错了
@test要加括号
(@test)即可

cobrawgl

hfahe

数组？
my @localaddrs = qw/127.0.0.1 127.0.0.2 127.0.0.3/;

ppiqq

谢谢大家
也就是说如何使用perl实现类似C下面的对于数组的 for循环

churchmice

原帖由 ppiqq 于 2008-5-15 15:49 发表
谢谢大家
也就是说如何使用perl实现类似C下面的对于数组的 for循环

perl下面不仅有for,还有foreach

遍历一个数组的话可以用如下方法：

1. 
   
2. foreach ( @array ) {
   
3.       print "$_\n";
   
4. }
   
5. 
   

复制代码

1. 
   
2. for ( my $i =0;$i < @array;$i ++ ) {
   
3.    print $array[$i],"\n";
   
4. }
   

复制代码

不用看也知道第一种方式比较简单

[ 本帖最后由 churchmice 于 2008-5-15 20:16 编辑 ]

ppiqq

楼上的大哥帮忙再看看 我用for循环可以实现 但是使用foreach就不行了
#!/usr/bin/perl
use strict;
my @test=qw(192.168.1.55 192.168.1.67 192.168.1.10);
foreach @array {
      print "$_\n";
}

这是全部的程序
报错如下： [anxb@localhost perl]$ ./test
syntax error at ./test line 4, near "foreach @array "
Global symbol "%array" requires explicit package name at ./test line 4.
Execution of ./test aborted due to compilation errors.

是不是我落了什么啊？

redicaps

一滴汗
@array->(@test)

hitsubunnu

原帖由 ppiqq 于 2008-5-15 17:07 发表
楼上的大哥帮忙再看看 我用for循环可以实现 但是使用foreach就不行了
#!/usr/bin/perl
use strict;
my @test=qw(192.168.1.55 192.168.1.67 192.168.1.10);
foreach @array {
      print "$_\n";
}

这 ...

多了

churchmice

原帖由 redicaps 于 2008-5-15 17:13 发表
一滴汗
@array->(@test)

两滴汗