作者cjdcjdc (ㄚ达)
看板Perl
标题[问题] 请问一个跳出两层回圈的问题 及 元素和阵列的比较
时间Sun Mar 2 22:54:38 2008
以下是部份程式码
1 #! usr/bin/perl
2 use strict;
3 my $i;
4 my @array=(1,3);
5 while($i<10){
6 $i++;
7 print $i;
8 for (@array){
9 next if ($i==$_ );
10 }
11 $i++;
12 }
Q1:
在第9行的部份，有没有一个指令能跳出for回圈，并继续执行while的下一个变数，
也就是说，第11行的$i++并不会执行，而是从while的下一个变数开始执行，
我试过last了，但仍然会执行第11行
Q2:
另外我想问的是，有没有类似这样的写法 if($i==@array)，就是说，
$i是否出现在@array内，照上面的程式来看，就是判断是否出现1或者是3
烦麻一下了XD..
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.127.220.228
1F：→ clkao:1. perldoc -f last (last LABEL) 03/02 23:20
2F：→ clkao:3. if (grep { $_ == $i } @array) 03/02 23:20
4F：→ hongtzai:上面连结跟 Q2 有关 03/02 23:45
5F：→ cjdcjdc:谢谢两位，问题解决了 03/03 12:04
6F：→ cjdcjdc:附带一提，原来5.10版算是大更新，呵~ 03/03 12:05