diff options
| author | Simon Miner <simon.miner@gmail.com> | 2020-05-25 16:48:43 -0400 |
|---|---|---|
| committer | Simon Miner <simon.miner@gmail.com> | 2020-05-25 16:48:43 -0400 |
| commit | c15f69e800292020dc94c7ee60a6c9be85eec854 (patch) | |
| tree | 56ab7a4c247e6777795976f4ca4953f6765343ba /challenge-062 | |
| parent | d2913e75a239bf4534d1ac60e9a515314c962cfa (diff) | |
| download | perlweeklychallenge-club-c15f69e800292020dc94c7ee60a6c9be85eec854.tar.gz perlweeklychallenge-club-c15f69e800292020dc94c7ee60a6c9be85eec854.tar.bz2 perlweeklychallenge-club-c15f69e800292020dc94c7ee60a6c9be85eec854.zip | |
Add ch-01.pl to sort email addresses
Diffstat (limited to 'challenge-062')
| -rw-r--r-- | challenge-062/simon-miner/perl/ch-1.pl | 17 | ||||
| -rw-r--r-- | challenge-062/simon-miner/perl/emails.txt | 5 |
2 files changed, 22 insertions, 0 deletions
diff --git a/challenge-062/simon-miner/perl/ch-1.pl b/challenge-062/simon-miner/perl/ch-1.pl new file mode 100644 index 0000000000..eadfcd1b17 --- /dev/null +++ b/challenge-062/simon-miner/perl/ch-1.pl @@ -0,0 +1,17 @@ +#!/usr//bin/perl + +use strict; +use warnings; + +my %domains = (); +while ( <> ) { + chomp; + my ( $mailbox, $domain ) = split( m/\@/ ); + push( @{ $domains{$domain} }, $mailbox ); +} + +my @sorted = (); +for my $domain ( sort( { lc( $a ) cmp lc( $b ) } keys( %domains ) ) ) { + push( @sorted, map( {"$_\@$domain"} sort( @{ $domains{$domain} } ) ) ); +} +print join( "\n", @sorted ) . "\n"; diff --git a/challenge-062/simon-miner/perl/emails.txt b/challenge-062/simon-miner/perl/emails.txt new file mode 100644 index 0000000000..5dc3f2ceb0 --- /dev/null +++ b/challenge-062/simon-miner/perl/emails.txt @@ -0,0 +1,5 @@ +name@example.org +rjt@cpan.org +Name@example.org +rjt@CPAN.org +user@alpha.example.org |