Re: ActivePerl Digest, Vol 46, Issue 5

try this:

my $x =3D '"ROYALE JEWELLER"@omr12.test.com test';
$x =3D~ s/"([^"]*)\s([^"]*)"/"$1$2"/g;

print $x,"\n";


Dnia poniedzia=B3ek 31 maj 2010 o 21:00:04 activeperl-
request@listserv.activestate.com napisa=B3(a):
> Send ActivePerl mailing list submissions to
> activeperl@listserv.ActiveState.com
> =

> To subscribe or unsubscribe via the World Wide Web, visit
> http://listserv.ActiveState.com/mailman/listinfo/activeperl
> or, via email, send a message with subject or body 'help' to
> activeperl-request@listserv.ActiveState.com
> =

> You can reach the person managing the list at
> activeperl-owner@listserv.ActiveState.com
> =

> When replying, please edit your Subject line so it is more specific
> than "Re: Contents of ActivePerl digest..."
> =

> =

> Today's Topics:
> =

> 1. Replace white space between "" (Stephane Legault)
> =

> =

> ------------------------------------------------------------ ----------
> =

> Message: 1
> Date: Mon, 31 May 2010 10:53:58 -0700 (PDT)
> From: Stephane Legault
> Subject: Replace white space between ""
> To: activeperl@listserv.activestate.com
> Message-ID: <845109.19803.qm@web30908.mail.mud.yahoo.com>
> Content-Type: text/plain; charset=3D"utf-8"
> =

> Hi,
> =

> I need to replace white space between delemiter "". After looking for do
> this I need to tell I did not find the solution! $test=3D'test "ROYALE
> JEWELLER"@omr12.test.com test';
> =

> And I would like have this in $test3 (look the space between royale and
> jeweller is gone): test "ROYALEJEWELLER"@omr12.networksolutionsemail.com
> test
> =

> -------------- next part --------------
> An HTML attachment was scrubbed...
> URL:
> http://listserv.ActiveState.com/pipermail/activeperl/attachm ents/20100531/
> 60106a70/attachment-0001.html
> =

> ------------------------------
> =

> _______________________________________________
> ActivePerl mailing list
> ActivePerl@listserv.ActiveState.com
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
> =

> End of ActivePerl Digest, Vol 46, Issue 5
> *****************************************
_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs