a regular expression issue

2008-04-04 Thread 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

Re: a regular expression issue

2008-04-04 Thread John W. Krahn
icarus wrote: Hi, Hello, 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"); my @xfiles = ("canada", "cane", "can

Re: a regular expression issue

2008-04-04 Thread Wolf Blaum
hi, #!/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 =~ /(canada)/){print "$file\n - end first if - \n";} #wb: (expression)

Re: a regular expression issue

2008-04-04 Thread John W. Krahn
Wolf Blaum wrote: #!/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 =~ /(canada)/){print "$file\n - end first if - \n";} #w