vowel_search

This program will search a file specified on the command line for any strings that contain all of "aeiou" in arbitrary places. It parsed a 12.3MB ascii text file matching 17000+ lines in 5 seconds.

#!/usr/bin/perl
if (<>) {
    @dog = <>;
    foreach $cat (@dog) {
        if ($cat =~ /a/i && $cat =~ /e/i && $cat =~ 
/i/i && $cat =~ /o/i && $cat =~/u/i) {
            print "$cat";
                                 }
                }
}
[download]

Back to Cool Uses for Perl