#!/usr/bin/perl -w
use strict;
use Benchmark 'cmpthese';

sub demerphq {
	open my $IN,"words.txt" or die "words.txt:$!";
	my $outf;
	my @fh;
	my $nl_len=length("\n");
	foreach (1..35) {
		open $fh[$_+$nl_len],sprintf(">./len/%02d.demerphq",$_) or die "$_.demerphq:$!";
	}
	print {$fh[length $_]} $_ while <$IN>;
	$_ && close $_ foreach @fh;
	foreach (1..35) {
		unlink sprintf("./len/%02d.demerphq",$_) unless -s sprintf("./len/%02d.demerphq",$_);
	}
	close $IN;
}

sub ch0as {
	my %Word;
	my $File;
	open my $IN,"words.txt" or die "words.txt:$!";
	push @{$Word{length$_}},$_ while (<$IN>);
	for (keys %Word) {
	 	$File=sprintf("./len/%02d.ch0as",$_-1);
	 	open my $OUT,">$File" or die "Cannot open $File: $!\n";
	 	print $OUT @{$Word{$_}};
	 	close $OUT;
	};
}

sub gmax {
	my %Word;
	my $File;
	open my $IN,"words.txt" or die "words.txt:$!";
	$Word{length$_} .= $_ while (<$IN>);
	for (keys %Word) {
	 	$File=sprintf("./len/%02d.gmax",$_-1);
	 	open my $OUT,">$File" or die "Cannot open $File: $!\n";
	 	print $OUT $Word{$_};
	 	close $OUT;
	};
}

sub gmax_dem {
	my @Word;
	my $File;
	open my $IN,"words.txt" or die "words.txt:$!";
	$Word[length$_] .= $_ while (<$IN>);
	for (0..$#Word)	{
		next unless $Word[$_];
	 	$File=sprintf("./len/%02d.gmax.dem",$_-1);
	 	open my $OUT,">$File" or die "Cannot open $File: $!\n";
	 	print $OUT $Word[$_];
	 	close $OUT;
	};
}


cmpthese(10,{
	       	demerphq => \&demerphq,
            	gmax     => \&gmax,
            	gmax_dem => \&gmax_dem,
            	ch0as    => \&ch0as
            });