叮咚

my $ans='y';

while($ans eq 'y'){  # eq 意指 等於 (用於字元比對)

  #------------------------------------------------------------------

  my @arr1;

  my @arr2;

  # for user input -------------------------------------------------

  print " Please enter column number: ";

  chomp(my $col=<>);

  print " Please enter row number: ";

  chomp(my $row=<>);

  #------------------------------------------------------------------

  @arr1=(1...$row);

  @arr2=(1...$col);

  print "="x72,"\n";

  foreach my $num1(@arr1){

    foreach my $num2(@arr2){

      print " ",$num1,"x",$num2,"=",$num1*$num2,"\t";

    }

    print "\n";

  }

  print "="x72,"\n";

  # for user input --------------------------------------------------

  print " Do you want to input again? (y/n) ";

  chomp($ans=<>);

  if ($ans ne 'y'){

    $ans='n';

  }else{

    print "\n";

  }

  #------------------------------------------------------------------

}