mebil

[mfinanz.git] / SL / Num2text.pm

diff --git a/SL/Num2text.pm b/SL/Num2text.pm
index 895c4372663f175ba347e392333fefb0be5dccbc..15575c356138ce4e6950c18d0be503a0c3058723 100644 (file)
--- a/SL/Num2text.pm
+++ b/SL/Num2text.pm
@@ -32,49 +32,47 @@
 #
 #=====================================================================
 
 #
 #=====================================================================
 

+use strict;

 
 sub init {
   my $self = shift;
 
 
 sub init {
   my $self = shift;
 

-  %{ $self->{numbername} } =
-                   (0 => 'Zero',
-                    1 => 'One',
-                    2 => 'Two',
-                   3 => 'Three',
-                   4 => 'Four',
-                   5 => 'Five',
-                   6 => 'Six',
-                   7 => 'Seven',
-                   8 => 'Eight',
-                   9 => 'Nine',
-                  10 => 'Ten',
-                  11 => 'Eleven',
-                  12 => 'Twelve',
-                  13 => 'Thirteen',
-                  14 => 'Fourteen',
-                  15 => 'Fifteen',
-                  16 => 'Sixteen',
-                  17 => 'Seventeen',
-                  18 => 'Eighteen',
-                  19 => 'Nineteen',
-                  20 => 'Twenty',
-                  30 => 'Thirty',
-                  40 => 'Forty',
-                  50 => 'Fifty',
-                  60 => 'Sixty',
-                  70 => 'Seventy',
-                  80 => 'Eighty',
-                  90 => 'Ninety',
-                10**2 => 'Hundred',
-                10**3 => 'Thousand',
-               10**6 => 'Million',
-               10**9 => 'Billion',
-              10**12 => 'Trillion',
-               );
+  %{ $self->{numbername} } = (0      => 'Zero',
+                              1      => 'One',
+                              2      => 'Two',
+                              3      => 'Three',
+                              4      => 'Four',
+                              5      => 'Five',
+                              6      => 'Six',
+                              7      => 'Seven',
+                              8      => 'Eight',
+                              9      => 'Nine',
+                              10     => 'Ten',
+                              11     => 'Eleven',
+                              12     => 'Twelve',
+                              13     => 'Thirteen',
+                              14     => 'Fourteen',
+                              15     => 'Fifteen',
+                              16     => 'Sixteen',
+                              17     => 'Seventeen',
+                              18     => 'Eighteen',
+                              19     => 'Nineteen',
+                              20     => 'Twenty',
+                              30     => 'Thirty',
+                              40     => 'Forty',
+                              50     => 'Fifty',
+                              60     => 'Sixty',
+                              70     => 'Seventy',
+                              80     => 'Eighty',
+                              90     => 'Ninety',
+                              10**2  => 'Hundred',
+                              10**3  => 'Thousand',
+                              10**6  => 'Million',
+                              10**9  => 'Billion',
+                              10**12 => 'Trillion',);

 
 }
 
 
 }
 

-

 sub num2text {
   my ($self, $amount) = @_;
 
 sub num2text {
   my ($self, $amount) = @_;
 


@@ -90,79 +88,80 @@ sub num2text {
 
   while (@num) {
     @a = ();
 
   while (@num) {
     @a = ();

-    for (1 .. 3) {
-      push @a, shift @num;
+    for (1..3) {
+      push(@a, shift(@num));

     }
     }

-    push @numblock, join / /, reverse @a;
+    push(@numblock, join(" ", reverse @a));

   }
   }

-    
+

   while (@numblock) {
 
   while (@numblock) {
 

-    $i = $#numblock;
-    @num = split //, $numblock[$i];
-    
+    $i   = $#numblock;
+    @num = split(//, $numblock[$i]);
+

     if ($numblock[$i] == 0) {
       pop @numblock;
       next;
     }
     if ($numblock[$i] == 0) {
       pop @numblock;
       next;
     }

-   
+

     if ($numblock[$i] > 99) {
     if ($numblock[$i] > 99) {

+

       # the one from hundreds
       # the one from hundreds

-      push @textnumber, $self->{numbername}{$num[0]};
-     
+      push(@textnumber, $self->{numbername}{ $num[0] });
+

       # add hundred designation
       # add hundred designation

-      push @textnumber, $self->{numbername}{10**2};
+      push(@textnumber, $self->{numbername}{ 10**2 });

 
       # reduce numblock
       $numblock[$i] -= $num[0] * 100;
 
       # reduce numblock
       $numblock[$i] -= $num[0] * 100;

-      
+

     }
     }

-    
+

     $numblock[$i] *= 1;
     $numblock[$i] *= 1;

-    
+

     if ($numblock[$i] > 9) {
     if ($numblock[$i] > 9) {

+

       # tens
       # tens

-      push @textnumber, $self->format_ten($numblock[$i]);
+      push(@textnumber, $self->format_ten($numblock[$i]));

     } elsif ($numblock[$i] > 0) {
     } elsif ($numblock[$i] > 0) {

+

       # ones
       # ones

-      push @textnumber, $self->{numbername}{$numblock[$i]};
+      push(@textnumber, $self->{numbername}{ $numblock[$i] });

     }
     }

-    
+

     # add thousand, million
     if ($i) {
     # add thousand, million
     if ($i) {

-      $num = 10**($i * 3);
-      push @textnumber, $self->{numbername}{$num};
+      my $num = 10**($i * 3);
+      push(@textnumber, $self->{numbername}{$num});

     }
     }

-      
-    pop @numblock;
-    
+
+    pop(@numblock);
+

   }
 
   }
 

-  join ' ', @textnumber;
+  join(' ', @textnumber);

 
 }
 
 
 }
 

-

 sub format_ten {
   my ($self, $amount) = @_;
 sub format_ten {
   my ($self, $amount) = @_;

-  
+

   my $textnumber = "";
   my $textnumber = "";

-  my @num = split //, $amount;
+  my @num        = split(//, $amount);

 
   if ($amount > 20) {
 
   if ($amount > 20) {

-    $textnumber = $self->{numbername}{$num[0]*10};
-    $amount = $num[1];
+    $textnumber = $self->{numbername}{ $num[0] * 10 };
+    $amount     = $num[1];

   } else {
     $textnumber = $self->{numbername}{$amount};
   } else {
     $textnumber = $self->{numbername}{$amount};

-    $amount = 0;
+    $amount     = 0;

   }
 
   }
 

-  $textnumber .= " ".$self->{numbername}{$amount} if $amount;
+  $textnumber .= " " . $self->{numbername}{$amount} if $amount;

 
   $textnumber;
 
   $textnumber;

-  
-}

 
 

+}

 
 1;
 
 
 1;