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 if

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, cane02, ca.e.02,

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) groups what

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;} #wb: