perl foreach

概述找错： #!/usr/bin/perl use warnings; use strict; sub message{   my $quant = $_; #这里$_是个无效值，改成$quant=shift或$_[0]   my $mess;   $mess = "$quant glasses of Lemonade on the wall\n";   if ($quant eq 1){     $ 找错： #!/usr/bin/perl

use warnings;
use strict;

sub message{
  my $quant = $_; #这里$_是个无效值，改成$quant=shift或$_[0]
  my $mess;
  $mess = "$quant glasses of Lemonade on the wall\n";
  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 总结

以上是内存溢出为你收集整理的perl foreach全部内容，希望文章能够帮你解决perl foreach所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。