Hi!,

Care to test this one aswell ?

I had the following results (25143 words):

ChOas@xxx$ time ./yours words

real    0m1.21s
user    0m1.01s
sys     0m0.07s
ChOas@xxx$ time ./mine words

real    0m0.68s
user    0m0.54s
sys     0m0.05s
ChOas@xxx$
[download]

This is the code:

#!/usr/bin/perl -w 

use strict;

my %Word;
my $File;

# Fill the hash/list here, ignoring the chomp

push @{$Word{length$_}},$_ while (<>);

# Itterate over the different lenghts of words

for (keys %Word)
{
# This is what is called a dirty hack, subtract 
# one from the length of the string to compensate 
# for the '\n' (but hey, it saves a chomp for every word :) )

 $File=$_-1 . ".mine";

# Write the file

 open OUT,">$File" or die "Cannot open $File.mine: $!\n";
 print OUT @{$Word{$_}};
 close OUT;
};
[download]

p.s. You REALLY want to run/develop code with use strict; and -w...

GreetZ!,

ChOas

print "profeth still\n" if /bird|devil/;

---

---

• 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.