a regular expression issue

[icarus]

Hi,

I want to display 'canada', 'cane', 'canine, 'ca.e.02'.
Problem: It only displays 'canada'

#!/usr/bin/perl
use strict;
use warnings;

my $file;
my @xfiles;

@xfiles = ("canada", "cane", "cane02", "ca.e.02", "canine",
".hidden");

foreach $file (@xfiles){

#want canada only for this iteration
        if ($file =~ m/^ca/s){
                next if $file =~ m/e(\d\d)$/s; #don't want cane02
                next if $file =~ m/e.(\d\d)$/s; #don't want ca.e.02
                next if $file =~ m/e$/s; #don't want cane, canine
                next if $file =~ m/^\.{1}/; #skips .hidden files
                print "$file\n";

}

#then want cane, canine, ca.e.02
elsif ($file =~ m/e$/s or $file =~ m/^ca\.+e$/s or $file =~ m/e.(\d\d)
$/s){
                next if $file =~ m/^\.{1}/; #skips .hidden files
                print "$file\n";
       }
  }


[ no this is *not* homework. ]

Any ideas? Thanks in advance,


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/