diff options
| -rw-r--r-- | challenge-060/yet-ebreo/perl/ch-1.pl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/challenge-060/yet-ebreo/perl/ch-1.pl b/challenge-060/yet-ebreo/perl/ch-1.pl index 556dbc1ba4..7c1fc0ce0b 100644 --- a/challenge-060/yet-ebreo/perl/ch-1.pl +++ b/challenge-060/yet-ebreo/perl/ch-1.pl @@ -13,7 +13,7 @@ sub to_exl { } chr(64 + $%).$" } -my $excelcol = uc $ARGV[0]; +my $excelcol = uc ($ARGV[0]||2708874); if ($excelcol=~/\D/) { say to_num($excelcol); @@ -21,6 +21,9 @@ if ($excelcol=~/\D/) { say to_exl($excelcol); } =begin +perl .\ch-1.pl 2708874 +EXCEL + perl .\ch-1.pl 1 A |