数组如何取值 IP

ppiqq

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

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

__lxmxn__

niubility

churchmice

我明白了

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. my %hash = (
   
6.     "a" => 1,
   
7.     "b" => 2,
   
8.     "c" =>3,
   
9.     );
   
10. print @hash { "a","b"},"\n";
    

复制代码

如果不加()的话，
perl会认为是一个hash散列 @test {}
所以会提示说global symbol %test not defined
即使两者之间有空格也不行

churchmice

原帖由 cobrawgl 于 2008-5-15 20:18 发表


print "$_\n" foreach @test;

这样写也是没有问题的

cobrawgl

print "$_\n" foreach @test;

feiying0193

#!/usr/bin/perl
use strict;
my @test=qw(192.168.1.55 192.168.1.67 192.168.1.10);
foreach $a(@test) {
      print "$a\n";
}

是这样吧，foreach读取数组的话应该是这么写的foreach $a(@test){}，运行正确

[ 本帖最后由 feiying0193 于 2008-5-15 17:38 编辑 ]

ppiqq

#!/usr/bin/perl
use strict;
my @test=qw(192.168.1.55 192.168.1.67 192.168.1.10);
foreach @test {
      print "$_\n";
}
还是不行。。。。。。
我也汗了

churchmice

原帖由 redicaps 于 2008-5-15 17:13 发表
一滴汗
@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";
}

这 ...

多了

redicaps

一滴汗
@array->(@test)

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.

是不是我落了什么啊？