Why are u using this.
local $/ = "\n\n";


-----Original Message-----
From: Charles K. Clarkson [mailto:[EMAIL PROTECTED] 
Sent: 29 November 2005 13:43
To: 'Perl Beginners'
Subject: RE: help about regex matching


Jeff Pang <mailto:[EMAIL PROTECTED]> wrote:

: Thanks for Charles.That code can work well,but I still want
: to know how to do it with regex expression.

use strict;
use warnings;

local $/ = "\n\n";
while ( <DATA> ) {
    chomp;
    printf "%-5s% 15s\n", /(.+)\n(.+)/;
}

__END__


HTH,

Charles K. Clarkson
-- 
Mobile Homes Specialist
254 968-8328



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>


--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>


Reply via email to