2008/11/22 sftriman <[EMAIL PROTECTED]>: > On Nov 22, 6:16 am, [EMAIL PROTECTED] (Dermot) wrote: >> 2008/11/22 Sureshkumar M (HCL Financial Services) <[EMAIL PROTECTED]>:
>> I could be wrong but I don't think \w will not match a hypen "-" so >> the test will fail. >> This works for me: >> >> if ($_=~/\d{1,2}-(\d{2}|\w{3})-\d+/) >> >> HTH, >> Dp. Opps, yes John that correct. I didn't scroll down to the bit where it said Output should be. > > Thanks for the reply. I added strict and warning, and thankfully, > there were no messages. > > The while loop on the file handle makes sense - I should do that. > > What are you referring to in the if part? I see I have an unescaped > hyphen which > I will make \- in the regexp compare. Who escaped a hypen? There is no need to escape a hypen. You escape meta-characters and a hypen isn't. But what is the compare you are > writing? My Regex was incorrect, as John pointed out. I was looking for 1 or 2 digit, a hypen, a 2 digit number of 3 character string, a hypen and any number of word characters. You only want two digit day values and a 2-4 digit year value so /\d{2}-(\d{2}|\w{3}-\d{2,4}/ would be the regex I would use. Have a look at perldoc perlretut > Also, I ran the script many times just now - it runs so fast, I can't > see why it's > causing the CPU surge: > > <Q>$ time proc-js*pl > 0.29s real 0.24s user 0.04s system > <Q>$ time proc-js*pl > 0.33s real 0.28s user 0.03s system > <Q>$ time proc-js*pl > 0.39s real 0.34s user 0.05s system Can't help with that. :-/ Dp. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/