Re: Re: Isn't there a print line function?

There's a difference between setting $/ to "\n\n" and and empty string. In this case, the empty string would probably be better. Also your regex line is far too complicated. I'd write this code as follows:

$/ = '';  # set to grab whole paragraphs, not lines
my @paras = <DATA>;
my $whatever = qr/paragraph/;
for (@paras) {
    print if /$whatever/m;
}

__DATA__
This is 
the first 
paragraph

And paragraph
two is here

Here is the 
third paragraph
to wrap it up
[download]

--
<http://www.dave.org.uk>

Perl Training in the UK <http://www.iterative-software.com>

Comment on Re: Re: Isn't there a print line function? Download Code

Replies are listed 'Best First'.
Re: Re: Re: Isn't there a print line function? by tachyon (Chancellor) on Sep 04, 2001 at 20:06 UTC
While I will agree that '' is probably better you are wrong on the regex. You just dump the whole paragraphs. The task (I believe) was only to dump the single line within that paragraph that contained the match which is what my example does. cheers tachyon s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print	[reply]
Re: Re: Re: Re: Isn't there a print line function? by davorg (Chancellor) on Sep 04, 2001 at 20:13 UTC
Yeah. you're absolutely right. I was getting confused with my earlier solution where I'd assumed that each para in turn was split into `@lines`. Sorry. -- <http://www.dave.org.uk> Perl Training in the UK <http://www.iterative-software.com>	[reply]