diff options
| -rw-r--r-- | challenge-062/simon-miner/perl/ch-1.pl | 27 | ||||
| -rw-r--r-- | challenge-062/simon-miner/perl/emails.txt | 5 |
2 files changed, 32 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..6cce429f77 --- /dev/null +++ b/challenge-062/simon-miner/perl/ch-1.pl @@ -0,0 +1,27 @@ +#!/usr//bin/perl + +use strict; +use warnings; +use Getopt::Std; + +my %args = (); +getopts( 'u', \%args ); + +my %domains = (); +my %seen = (); +while ( <> ) { + chomp; + my ( $mailbox, $domain ) = split( m/\@/ ); + + my $normalized = $mailbox . '@' . lc( $domain ); + next if $args{u} && exists( $seen{$normalized} ); + + push( @{ $domains{$domain} }, $mailbox ); + $seen{$normalized} = 1; +} + +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 |