http://qs1969.pair.com?node_id=314959


in reply to Re: Re: Re: Re: multi line matching problem
in thread multi line matching problem

Yeah, I didn't realise that \s was a whitespace (as opposed to a plain old space) matcher, hence the use of \s+\n.
  • Comment on Re: Re: Re: Re: Re: multi line matching problem

Replies are listed 'Best First'.
Re: Re: Re: Re: Re: Re: multi line matching problem
by Roger (Parson) on Dec 16, 2003 at 04:08 UTC
    Maybe you already know that if you want to match a whitespace character except '\n', you could use the [^\S\n] idiom. Where \S matches any non-white space character, \n matches the return, and then take the complement of the set gives you \s but not \n. Handy trick in situations when you want to differentiate between whitespace and \n.

    my $text = 'hello
   this is a multiline
   message';

$text =~ s/([^\S\n]+|\n)/$1 eq "\n" ?
                         print "New line\n" :
                         print "Whitespaces\n"; $1/gemi;

    [download]
    And you get -
    New line
Whitespaces
Whitespaces
Whitespaces
Whitespaces
New line
Whitespaces

    [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom