sergiotarxz
/
15giftsTask
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Adding range support.

This commit is contained in:
Sergiotarxz 2023-11-14 12:13:03 +01:00
parent 599493ac7b
commit d7a80c2c47
2 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
README.md
View File

@ -5,6 +5,6 @@
Perl 5.36.0 or later is required to run this script. Perl 5.36.0 or later is required to run this script.
```shell ```shell
perl number_generator.pl <The desired number to convert into text> perl number_generator.pl <start of range> <end of range>
``` ```

14
number_generator.pl
View File

@ -12,11 +12,17 @@ my @numbers_one_to_nineteen = (@numbers_one_to_nine, qw/ten eleven twelve thirte
my @decenes = (undef, qw/twenty thirty forty fifty sixty seventy eighty ninety/); my @decenes = (undef, qw/twenty thirty forty fifty sixty seventy eighty ninety/);
sub main { sub main {
my $number = $ARGV[0]; my $start_of_range = $ARGV[0];
if (!defined $number) { my $end_of_range = $ARGV[1];
$number = 1_111_111; if (!defined $end_of_range) {
$end_of_range = 9_999_999;
}
if (!defined $start_of_range) {
$start_of_range = 0;
}
for (my $i = $start_of_range; $i <= $end_of_range; $i++) {
say convert_number_to_words($i)
} }
say convert_number_to_words($number)
} }
sub convert_number_to_words($number) { sub convert_number_to_words($number) {