Revision c510d88b
Von Sven Schöling vor fast 15 Jahren hinzugefügt
| 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
und die restlichen .pm Module.