diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-05-26 20:35:09 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-05-26 20:35:09 +0100 |
| commit | 5164ca32bf33dfa4401e741da0dfc97dfab0e740 (patch) | |
| tree | 3b024485fd447fc1f8e0280d035560d0a6870b8c | |
| parent | 98b9c733b5f45d241432589524a9be181d2fcf2c (diff) | |
| download | perlweeklychallenge-club-5164ca32bf33dfa4401e741da0dfc97dfab0e740.tar.gz perlweeklychallenge-club-5164ca32bf33dfa4401e741da0dfc97dfab0e740.tar.bz2 perlweeklychallenge-club-5164ca32bf33dfa4401e741da0dfc97dfab0e740.zip | |
- Fixed Perl solution further.
| -rw-r--r-- | challenge-062/mohammad-anwar/perl/ch-1.pl | 4 | ||||
| -rw-r--r-- | challenge-062/mohammad-anwar/perl/ch-1a.pl | 6 |
2 files changed, 5 insertions, 5 deletions
diff --git a/challenge-062/mohammad-anwar/perl/ch-1.pl b/challenge-062/mohammad-anwar/perl/ch-1.pl index 030b543483..6bcfd79c90 100644 --- a/challenge-062/mohammad-anwar/perl/ch-1.pl +++ b/challenge-062/mohammad-anwar/perl/ch-1.pl @@ -28,7 +28,7 @@ sub sort_data { my ($mailbox, $domain) = split /\@/, $row, 2; push @source, [$mailbox, $domain]; if ($flag) { - $source->{$mailbox} = lc $domain; + $source->{$mailbox} = $domain; } } @@ -36,7 +36,7 @@ sub sort_data { my $sorted = []; if ($flag) { - foreach (sort { $source->{$a} cmp $source->{$b} } sort keys %$source) { + foreach (sort { lc $source->{$a} cmp lc $source->{$b} } sort keys %$source) { push @$sorted, sprintf("%s@%s", $_, $source->{$_}); } } diff --git a/challenge-062/mohammad-anwar/perl/ch-1a.pl b/challenge-062/mohammad-anwar/perl/ch-1a.pl index 3e4f911fdc..6643c8eafd 100644 --- a/challenge-062/mohammad-anwar/perl/ch-1a.pl +++ b/challenge-062/mohammad-anwar/perl/ch-1a.pl @@ -17,7 +17,7 @@ is_deeply ( sort_data('data.txt'), is_deeply ( sort_data('data.txt', '-u'), [ 'user@alpha.example.org', - 'rjt@cpan.org', + 'rjt@CPAN.org', 'Name@example.org', 'name@example.org', ], @@ -44,7 +44,7 @@ sub sort_data { my ($mailbox, $domain) = split /\@/, $row, 2; push @source, [$mailbox, $domain]; if ($flag) { - $source->{$mailbox} = lc $domain; + $source->{$mailbox} = $domain; } } @@ -52,7 +52,7 @@ sub sort_data { my $sorted = []; if ($flag) { - foreach (sort { $source->{$a} cmp $source->{$b} } sort keys %$source) { + foreach (sort { lc $source->{$a} cmp lc $source->{$b} } sort keys %$source) { push @$sorted, sprintf("%s@%s", $_, $source->{$_}); } } |