Menu
Forums
New posts
Search forums
Members
Current visitors
Log in
Register
What's new
Search
Search
Search titles only
By:
New posts
Search forums
Menu
Log in
Register
Install the app
Install
Forums
Archive
Archive
Perl
Perl Misc
Unexpected RegEx results
JavaScript is disabled. For a better experience, please enable JavaScript in your browser before proceeding.
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an
alternative browser
.
Reply to thread
Message
[QUOTE="Mirco Wahab, post: 4834326"] Thats better. Real data ;-) My first shot: .... my $data=' Some Text:0000:0:More Text Text text Text text text '; my $rg = qr/ ^([^:]+) : \d+ : \d+ : ([^\n]+)?\n (?: ^([^:\n]+?) \n)? (?: ^([^:\n]+?) (?:\n|$) )?/mx; if( $data =~ /$rg/ ) { print join "\n", map defined $_?$_:'undef', ($1, $2, $3, $4); } Regards M. [/QUOTE]
Verification
Post reply
Forums
Archive
Archive
Perl
Perl Misc
Unexpected RegEx results
Top
