note
Not_a_Number
<blockquote>I'm trying to find a regex that will...</blockquote>
<p>You don't need no steenkin' regex:</p>
<c>open my $fh, '<', 'whatever'; # or whatever
my %hash = ( a => 0, e => 1, i => 2, o => 3, u => 4 );
while ( <$fh> ) {
chomp;
my $copy = $_;
my @array;
while ( my $char = lc chop $copy ) {
no warnings 'uninitialized';
$array[ $hash{ $char } ] = 1;
}
say if ( grep $_, @array ) == 5;
}</c>
<p>Pretty fast, too, you'll find...</p>
Update: Hmm, if you take out the line <c>no warnings 'uninitialized';</c> (and therefore remove <c>use warnings</c> or whatever from the start of the code), it seems to run nearly 20% faster still...</p>
<p>Comments welcome.</p>
<p>Update 2: Oops, just realised that my code doesn't work! Change the contents of the inner <c>while</c> loop to:</p>
<c>$array[ $hash{ $char } ] = 1 if defined $hash{ $char };</c>
<p>Which is what I had originally, before playing with <c>no warnings 'uninitialized';</c>. And then I didn't test properly.</p>
<p>Mea culpa.</p>
944253
944253