[SOLVED] perl problem

qrange · 07-04-2011, 06:20 AM

sorry if this is offtopic..

I got a problem in perl, this line:

Code:

if( $text =~ /^\s*\d+-\d+-\d+\s+(Monday|Tuesday|Wednesday|Thursday|Friday|Saturday|Sunday)\s*$/i ){

should match this line:
2011-06-27 Monday

but it doesn't

why?

grail · 07-04-2011, 07:03 AM

Seems to work just fine for me??

qrange · 07-04-2011, 09:45 AM

hm, perhaps then the problem is that line ends with CR+LF?

markush · 07-04-2011, 01:49 PM

Hello grange,

first thing, use the report button at the bottom of your post and ask a moderator to move this thread to the "Programming" forum of LQ: http://www.linuxquestions.org/questions/programming-9/

And please post more of your code, we'll need to see this line of code in relationship to the whole script in order to answer your question.

If the problem comes from the "CR-LF" you may use

Code:

if( $text =~ /^\s*\d+-\d+-\d+\s+(Monday|Tuesday|Wednesday|Thursday|Friday|Saturday|Sunday).*/i ){

which makes the end of the pattern independent of the following linebreak (which differs on Linux or Windows respectively).

Markus

Tinkster · 07-04-2011, 06:44 PM

Moved: This thread is more suitable in <PROGRAMMING> and has been moved accordingly to help your thread/question get the exposure it deserves.

qrange · 07-05-2011, 02:10 AM

solved. the problem was that input file contained some nonprintable characters at beginning of line, so this did the trick:

Code:

 if( $text =~ /^.*\d+-\d+-\d+\s+(monday|tuesday|wednesday|thursday|friday|saturday|sunday)\s*$/i ){