--- Robin Sheat <[EMAIL PROTECTED]> wrote:
> On Monday 23 October 2006 12:37, chen li wrote:
> > my $file_name='OT-q1.001';
> >
> > if ($file_name=~/(OT)*.(\d+$)/){
> Maybe you mean:
> if ($file_name=~/^OT.*\.(\d+$)/){
>
Thank you and it is what I want.
Li
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
