diff options
| -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->{$_}); } } |