Interesting timing... I was just working this out too....found the answer on google. :-) Anyways, just for kicks, here is the way I used it.... I had a few dictionary files, which I wanted to split and merge into "alphabetical files" , like a, b, c, etc so I could search for a word faster. So I need to open filehandle variables pointing to a..z.

#!/usr/bin/perl
use warnings;
use strict;

my $file = shift;
open(FH, "< $file") or die $!;

my %fh;

foreach my $let('a'..'z'){
   open( $fh{$let}," >> letters/$let");
}
                              
while(<FH>){                  
my $count = 0;                
my $word = $_;                
chomp $word;                  
$word = lc $word;
$word =~ s/[[:^print:]\s+]+//g; #only printable characters 
                
#skip words with apostrophe, dashes, spaces, or a .w ending 
my $word1 = $word;
$count = $word1 =~ tr/\'-_ &,.0-9//;
if($count > 0){next}

 my $let = substr($word, 0, 1);
   if (!defined $fh{$let}){print $word;next}
       else{
   print { $fh{$let} } "$word\n";}
}
__END__
[download]

and then to "uniqify the files

#!/usr/bin/perl
use warnings;
use strict;

foreach my $file('a'..'z'){
   system("sort -u letters/$file > letters/$file.txt");
}
__END__
[download]

---

---

• Are you posting in the right place? Check out Where do I post X? to know for sure.
• Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:

  <code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>

• Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
• Want more info? How to link or How to display code and escape characters are good places to start.