haiku_check.pl

#!/usr/bin/local/perl

# a quick and dirty numeric syllable counter

use Number::Spell;


@one = qw/one two three four five six eight nine ten twelve/;
@two = qw/seven thirteen fourteen fifteen sixteen eighteen nineteen twenty thirty forty fifty sixty eighty ninety hundred thousand million billion trillion/;
@three = qw/eleven seventeen seventy/;

%ones;
%twos;
%threes;

foreach (@one){
	$ones{$_} = 1;
}

foreach (@two){
	$twos{$_} = 2;
}

foreach (@three){
	$threes{$_} = 3;
}

$int = 0;
for ($int = 0; $int <= 1000000; $int++){
	$int += 1;

	my $spelled = spell_number($int);
	my $count = syll($spelled);

	if ($count == 5){
		print "five!\n";
		open WRITE, ">>fives.txt";
		print WRITE "$int\t$spelled\n";
		close WRITE;
	}elsif($count == 7){
		print "seven!\n";
		open WRITE, ">>sevens.txt";
		print WRITE "$int\t$spelled\n";
		close WRITE;
	}

}

sub syll {
	$string = @_[0];
	my $count = 0;
	foreach (split(' ', $string)){
		if($ones{$_} == 1){
			$count += 1;
		}elsif($twos{$_} == 2){
			$count += 2;
		}elsif($threes{$_} == 3){
			$count += 3;
		}else{
			die "Couldn't find a count for $_!!\n";
		}
	}
	return $count;
}


exit;