Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision c510d88b

Von Sven Schöling vor etwa 15 Jahren hinzugefügt

und die restlichen .pm Module.

Unterschiede anzeigen:

SL/Num2text.pm
32 32 
#
33 33 
#=====================================================================
34 34 

  		




  
  35
  
    
use strict;


  		




  
  36
  
    

  		




  35
  37
  
    
sub init {


  		




  36
  38
  
    
  my $self = shift;


  		




  37
  39
  
    

  		




  ......




  129
  131
  
    

  		




  130
  132
  
    
    # add thousand, million


  		




  131
  133
  
    
    if ($i) {


  		




  132
  
  
    
      $num = 10**($i * 3);


  		




  
  134
  
    
      my $num = 10**($i * 3);


  		




  133
  135
  
    
      push(@textnumber, $self->{numbername}{$num});


  		




  134
  136
  
    
    }


  		




  135
  137
  
    

  		












Auch abrufbar als:  Unified diff