Alpha(bet) Geek

view plainprint?

1. #/usr/bin/perl  
2. use strict;  
3. use warnings;  
4. my $str = $ARGV[0];  
5. my @alpha_arr = ('a' .. 'z');  
6. my %str_tok_hash = map { lc($_) => undef }   
7.                    grep { /[a-z]/i }   
8.                    split(//, $str);  
9. my @diff = grep { not exists $str_tok_hash{$_} } @alpha_arr;  
10. $str = "'The string ($str) contains all the letters of the alphabet";  
11. $str .= " except (".join(' ', sort @diff).").' - contains all the letters";   
12. $str .= " of the alphabet. :)";  
13. print "$str\n";  

#/usr/bin/perl
use strict;
use warnings;
my $str = $ARGV[0];
my @alpha_arr = ('a' .. 'z');
my %str_tok_hash = map { lc($_) => undef } 
                   grep { /[a-z]/i } 
                   split(//, $str);
my @diff = grep { not exists $str_tok_hash{$_} } @alpha_arr;
$str = "'The string ($str) contains all the letters of the alphabet";
$str .= " except (".join(' ', sort @diff).").' - contains all the letters"; 
$str .= " of the alphabet. :)";
print "$str\n";