perl foreach
发布时间：2020-12-16 00:35:36 所属栏目：大数据 来源：网络整理
导读：找错： #!/usr/bin/perl use warnings; use strict; sub message{ ??my $quant = $_; #这里$_是个无效值，改成$quant=shift或$_[0] ??my $mess; ??$mess = "$quant glasses of Lemonade on the walln"; ??if ($quant eq 1){ ????$mess = s/glasses/glass/;#
|
找错：
#!/usr/bin/perl
use warnings; use strict; sub message{ ??my $quant = $_; #这里$_是个无效值，改成$quant=shift或$_[0] ??my $mess; ??$mess = "$quant glasses of Lemonade on the walln"; ??if ($quant eq 1){ ????$mess = s/glasses/glass/;#=改成=~? ??} ??print $mess; } foreach (0..20){ #改成for(my $i = 20; $i >= 0; $i--)
#因为范围操作符从左边的数字计数到右边，每次加1，以产生一连串的数字。
??&message($_); #改成&message($i); }
预期结果：
20 glasses of Lemonade on the wall 19 glasses of Lemonade on the wall 18 glasses of Lemonade on the wall 17 glasses of Lemonade on the wall 16 glasses of Lemonade on the wall 15 glasses of Lemonade on the wall 14 glasses of Lemonade on the wall 13 glasses of Lemonade on the wall 12 glasses of Lemonade on the wall 11 glasses of Lemonade on the wall 10 glasses of Lemonade on the wall 9 glasses of Lemonade on the wall 8 glasses of Lemonade on the wall 7 glasses of Lemonade on the wall 6 glasses of Lemonade on the wall 5 glasses of Lemonade on the wall 4 glasses of Lemonade on the wall 3 glasses of Lemonade on the wall 2 glasses of Lemonade on the wall 1 glass of Lemonade on the wall 0 glasses of Lemonade on the wall
（编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |