作者CindyLinz (Cindy Wang)
看板Perl
标题[问题] 用什麽方法知道现在是 foreach 里的最後一个?
时间Fri Aug 29 02:40:39 2014
程式情境类似这样:
@a 是某个外来阵列
my $counter = 0; # 记录 @a 里面有几个符合条件的
my $good = 0; # 最後的结果
for my $a (@a) {
if( $a 满足某条件 ) {
++$counter;
if( $counter==5 && $a 是 @a 的最後一项 ) {
$good = 1;
}
}
}
想问大家有没有什麽有趣的写法? ^^
我试了几个, 不过感觉好像都有可挑的地方..
# 我觉得额外弄一个语法上看起来跟回圈没关联的回圈计数器很不开心 ><
my $i = 0;
for my $a (@a) {
++$i;
if( $a 满足某条件 ) {
++$counter;
if( $counter==5 && $i==$#a ) {
$good = 1;
}
}
}
# 我觉得里面要写成 $a[$i] 很不开心 ><
for my $i (0..$#a) {
if( $a[$i] 满足某条件 ) {
++$counter;
if( $counter==5 && $i==$#a ) {
$good = 1;
}
}
}
# 我觉得要复制 $a = $a[$i] 很不开心 ><
for my $i (0..$#a) {
my $a = $a[$i];
if( $a 满足某条件 ) {
++$counter;
if( $counter==5 && $i==$#a ) {
$good = 1;
}
}
}
# 我觉得 满足某条件 要跑两次很不开心 ><
for my $a (@a) {
if( $a 满足某条件 ) {
++$counter;
}
}
if( $counter==5 && $a[-1] 满足某条件 ) {
$good = 1;
}
# 我觉得 perl 5.12 才能用很不开心 ><
# 而且 while 里面最好不要有 last, 不然有一天会後悔..
# 不过这是这几个里面我自己觉得看起来最顺眼的一个 @@"
while( my($i, $a) = each @a ) {
if( $a 满足某条件 ) {
++$counter;
if( $counter==5 && $i==$#a ) {
$good = 1;
}
}
}
# 整理一下 scwg 的推文放上来正文 :p
$good = $a[-1] 满足某条件 && 5 == grep {$_ 满足某条件} @a;
$good = $a[-1] 满足某条件 && 4 == grep {$_ 满足某条件} @a[0..$#a-1];
for my $a (@a) {
if( $a 满足某条件 ) {
++$counter;
if( $counter==5 && \$a==\$a[-1] ) {
$good = 1;
}
}
}
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 112.121.80.249
※ 文章网址: http://webptt.com/cn.aspx?n=bbs/Perl/M.1409251242.A.EDB.html
1F：→ scwg: $good = P $a[-1] && 5 == grep {P $_} @a; 08/29 03:35
2F：→ scwg: $good = P($a[-1]) && 5 == grep {P $_} @a; (楼上少括号) 08/29 03:40
3F：→ scwg: or, $good = P($a[-1]) && 4 == grep {P $_} @a[0..$#a-1]; 08/29 03:41
5F：→ scwg: general solution (e.g. \$a == \$a[-1]) 08/29 03:54
6F：推 Neisseria: 最後一个 each 的用法蛮有趣的 08/29 06:03
7F：→ CindyLinz: 喔喔! 我喜欢 \$a == \$a[-1] 这个! 08/29 11:51
8F：→ CindyLinz: 一楼的话就是 P 要多跑一次; 3楼的话就只是 0..$#a-1 08/29 11:55
9F：→ CindyLinz: 形状丑了点 ^^| 08/29 11:55
※ 编辑: CindyLinz (112.121.80.249), 08/29/2014 14:01:25
10F：推 AntaresStar: 原来还有取反斜线这招 (笔记) 08/29 14:16
11F：→ Neisseria: 取反斜线是什麽意思啊？ 其实看不太懂耶... 08/29 16:02
12F：推 LiloHuang: A backslash is used to make a reference... 08/29 16:27
14F：推 Neisseria: 我发现我的问题是 reference 为什麽可以当 left value 09/05 11:42
15F：→ xatier: why not it's Perl! 09/05 12:33
16F：→ CindyLinz: 这边 reference 没有被当 left value 啊, == 拿来比较 09/05 13:51
17F：→ CindyLinz: 而已 09/05 13:51
18F：→ CindyLinz: 然後 for my $a (...) 的 $a 在 perl 叫 alias 不是ref 09/05 13:51
19F：→ CindyLinz: 跟 C++ 类比的话像是 C++ 的 reference, C++ 的 09/05 13:52
20F：→ CindyLinz: reference 也是可以取 address 的, 也是取到被 ref 的 09/05 13:52
21F：→ CindyLinz: 对象的 address 09/05 13:52
22F：推 Neisseria: 的确是我没注意到是 == 不是 = 09/05 15:03
23F：→ CindyLinz: XD 09/05 20:02