Re: Reg..Regular expression

[Miguel Santinho (Simplicidade.com)]

One idea

######################################################################

#!/usr/bin/perl -w

use strict;
use Text::Balanced qw(extract_quotelike extract_multiple);
use Data::Dumper;

my @array = (<DATA>);
my @strings;
foreach my $line (@array) {
        push @strings,
        extract_multiple($line,[sub { extract_quotelike($_[0]) },],undef, 1);
}

print Dumper @strings;

__DATA__
Lorper autpat. "Lor sent vel del" utate el irilit, con exeros 
nit lum "num zzrilis nos nullaore "dolum dunt nonsenisl et 
augiat. "Ut wismolorem ea cortin" henis adipit aliquis am, 
consequi "bla feum iure dipit" eugue core ting ea consectet 
alis dolummy nos nonse delis "nonsequismodo coreros" nulput 
volobor "ipsustrud tatem dunt lutpat".
Lorper alit praestie molute "dipit aliquat" amet ilit delisi.

######################################################################

Will print :

$VAR1 = '"Lor sent vel del"';
$VAR2 = '"num zzrilis nos nullaore "';
$VAR3 = '"Ut wismolorem ea cortin"';
$VAR4 = '"bla feum iure dipit"';
$VAR5 = '"nonsequismodo coreros"';
$VAR6 = '"ipsustrud tatem dunt lutpat"';
$VAR7 = '"dipit aliquat"';

pgpYnrAA9cmJU.pgp
Description: PGP signature