BBS.ChinaUnix.net
今日推荐    首页 | 新闻 | Linux | AIX | 博客 | 论坛 | 存储 | 人才 | 培训 | 知识库 | 资料 | 读书 | 手册 | 精华 | 下载 | 空间     
  会员: 密码: 免费注册 | 忘记密码 | 会员登录 | 搜索 | 帮助 


数组如何取值 IP
首页 » 论坛 » Perl »  
[打印] [订阅] [收藏] [推荐给朋友] [本帖文本页]
  [已解决] 本主题悬赏 可用积分 2  
ppiqq
精灵王



UID:631513
注册:2007-10-22
最后登录: 2008-07-03
帖子:297
精华:0

可用积分:18
信誉积分:215
专家积分:0 (本版)

状态:...离线...

[个人空间] [短信] [博客]


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

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



您对本贴的看法:鲜花[0] 臭蛋[0]
CU可用积分兑换Linux/Unix精品图书 |《Ubuntu标准教程》书评获奖名单公布
churchmice
风云使者
数字小白



UID:664989
注册:2008-1-23
最后登录: 2008-07-04
帖子:457
精华:0

可用积分:973
信誉积分:0
专家积分:7 (本版)

状态:...离线...

[个人空间] [短信] [博客]


顶部
     最佳答案 
2楼 发表于 2008-5-15 11:38 


QUOTE:
原帖由 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)即可



您对本贴的看法:鲜花[0] 臭蛋[0]

__________________________________

其实我只是一架人肉搜索引擎
CU可用积分兑换Linux/Unix精品图书 |《Ubuntu标准教程》书评获奖名单公布
cobrawgl   帅哥
大天使



UID:143379
注册:2004-3-18
最后登录: 2008-07-06
帖子:1744
精华:0

可用积分:1038
信誉积分:100
专家积分:46 (本版)

状态:...离线...

[个人空间] [短信] [博客]


顶部
3楼 发表于 2008-5-15 12:24 



您对本贴的看法:鲜花[0] 臭蛋[0]

__________________________________

爱生活
爱Perl
爱BSD

:-)
CU可用积分兑换Linux/Unix精品图书 |《Ubuntu标准教程》书评获奖名单公布
hfahe
侠客




UID:704480
注册:2008-5-13
最后登录: 2008-07-03
帖子:26
精华:0

可用积分:26
信誉积分:0
专家积分:0 (本版)

状态:...离线...

[个人空间] [短信] [博客]


顶部
4楼 发表于 2008-5-15 13:58 
数组?
my @localaddrs = qw/127.0.0.1 127.0.0.2 127.0.0.3/;



您对本贴的看法:鲜花[0] 臭蛋[0]
CU可用积分兑换Linux/Unix精品图书 |《Ubuntu标准教程》书评获奖名单公布
ppiqq
精灵王



UID:631513
注册:2007-10-22
最后登录: 2008-07-03
帖子:297
精华:0

可用积分:18
信誉积分:215
专家积分:0 (本版)

状态:...离线...

[个人空间] [短信] [博客]


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



您对本贴的看法:鲜花[0] 臭蛋[0]
CU可用积分兑换Linux/Unix精品图书 |《Ubuntu标准教程》书评获奖名单公布
churchmice
风云使者
数字小白



UID:664989
注册:2008-1-23
最后登录: 2008-07-04
帖子:457
精华:0

可用积分:973
信誉积分:0
专家积分:7 (本版)

状态:...离线...

[个人空间] [短信] [博客]


顶部
6楼 发表于 2008-5-15 16:33 


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

perl下面不仅有for,还有foreach

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

foreach ( @array ) {
      print "$_\n";
}



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

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

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



您对本贴的看法:鲜花[0] 臭蛋[0]

__________________________________

其实我只是一架人肉搜索引擎
CU可用积分兑换Linux/Unix精品图书 |《Ubuntu标准教程》书评获奖名单公布
ppiqq
精灵王



UID:631513
注册:2007-10-22
最后登录: 2008-07-03
帖子:297
精华:0

可用积分:18
信誉积分:215
专家积分:0 (本版)

状态:...离线...

[个人空间] [短信] [博客]


顶部
7楼 发表于 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";
}

这是全部的程序
报错如下: [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.

是不是我落了什么啊?



您对本贴的看法:鲜花[0] 臭蛋[0]
CU可用积分兑换Linux/Unix精品图书 |《Ubuntu标准教程》书评获奖名单公布
redicaps   帅哥
圣骑士



UID:564148
注册:2007-5-15
最后登录: 2008-07-02
帖子:133
精华:0

可用积分:232
信誉积分:100
专家积分:0 (本版)

来自:南京/江苏
状态:...离线...

[个人空间] [短信] [博客]


顶部
8楼 发表于 2008-5-15 17:13 
一滴汗
@array->(@test)



您对本贴的看法:鲜花[0] 臭蛋[0]
CU可用积分兑换Linux/Unix精品图书 |《Ubuntu标准教程》书评获奖名单公布
hitsubunnu
精灵



UID:416407
注册:2006-5-13
最后登录: 2008-07-05
帖子:244
精华:1

可用积分:690
信誉积分:100
专家积分:0 (本版)

状态:...离线...

[个人空间] [短信] [博客]


顶部
9楼 发表于 2008-5-15 17:19 


QUOTE:
原帖由 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";
}

这 ...

多了



您对本贴的看法:鲜花[0] 臭蛋[0]
CU可用积分兑换Linux/Unix精品图书 |《Ubuntu标准教程》书评获奖名单公布
churchmice
风云使者
数字小白



UID:664989
注册:2008-1-23
最后登录: 2008-07-04
帖子:457
精华:0

可用积分:973
信誉积分:0
专家积分:7 (本版)

状态:...离线...

[个人空间] [短信] [博客]


顶部
10楼 发表于 2008-5-15 17:20 


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

两滴汗



您对本贴的看法:鲜花[0] 臭蛋[0]

__________________________________

其实我只是一架人肉搜索引擎
CU可用积分兑换Linux/Unix精品图书 |《Ubuntu标准教程》书评获奖名单公布

首页 » 论坛 » Perl »


 


Copyright © 2001-2008 ChinaUnix.net All Rights Reserved     联系我们:

感谢所有关心和支持过ChinaUnix的朋友们    转载本站内容请注明原作者名及出处

京ICP证041476号


清除 Cookies - ChinaUnix - Archiver - WAP - TOP

Processed in 0.069157 second(s), 4 queries , Gzip enabled