叮咚

#!/usr/bin/perl -w

#===================================================================

#Modification Record

#===================================================================

#===================================================================

#Global Scope

#===================================================================

use strict;

#===================================================================

#Subroutine Program

#===================================================================

#===================================================================

#Main Program

#===================================================================

my $cal=1;

while($cal){

  my $val;

  my $num;

  my $dec;

  my $n_int;

  my $final;

  my $ans;

  print "\n    Please enter a float number: ";

  $val=<>;

  chomp $val;

  print "    Please enter the digital number: ";

  $num=<>;

  chomp $num;

  $dec=$val*(10 ** $num);  # **指數

  if ($val >0){

    $n_int=int($dec+0.5);

  }else{

    $n_int=int($dec-0.5);

  }

  $final=$n_int/(10 ** $num);

  print '-'x50,"\n";

  print "    Result:  $final \n";

  print '-'x50,"\n";

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

  chomp($ans=<>);

  #if ($ans =~/y/i){  #現在知道這是正規算式了^^

  if ($ans eq 'y' or $ans eq 'Y' or $ans eq 'yes' or $ans eq 'Yes') {  #還沒學到正規算式XP

    print '='x50, "\n";

  }else{

    $cal="";

    print "\n";

  }

}