return演算子について ver2

return演算子 テスト２

use strict;
sub shop{
  my($name, @fruits) = @_;
  my $i = 0;

  # yamadaさんの名前を表示したい。
  print $name . "さんが作った果物は";

   # フルーツの名前を表示したい
   # 最後のフルーツでなければ、カンマをつける。
   foreach my $fruits_name(@fruits){
    print  $fruits_name;
    if($i != $#fruits){
     print ",";
     $i += 1;
    }
   }
   print "です";
}

my @fruits = qw/ apple banana meron/;
shop("山田", @fruits);

以下出力結果となります。

山田さんが作った果物はapple,banana,meronです