diff options
| author | Ysmael Ebreo <Ysmael.Ebreo@latticesemi.com> | 2020-05-11 23:11:16 +0800 |
|---|---|---|
| committer | Ysmael Ebreo <Ysmael.Ebreo@latticesemi.com> | 2020-05-11 23:11:16 +0800 |
| commit | b0c9decdf1f79502fd477b53289dbe9338bbf0bc (patch) | |
| tree | eab808574d02cc692c2ada78e5aa22d9d3a9299b | |
| parent | 56be3bb66222f96b7fdef9c4493ba231a6a2bb92 (diff) | |
| download | perlweeklychallenge-club-b0c9decdf1f79502fd477b53289dbe9338bbf0bc.tar.gz perlweeklychallenge-club-b0c9decdf1f79502fd477b53289dbe9338bbf0bc.tar.bz2 perlweeklychallenge-club-b0c9decdf1f79502fd477b53289dbe9338bbf0bc.zip | |
Updated task #1 for default value
| -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 |