Too fast!
When there are two or more spaces then it does not work.
Correction:
my $x = 'test "ROYALE JEWEL LER"@omr12.test.com test';
while ( $x =~ s/"([^"]*)\s([^"]*)"/"$1$2"/ ) {
$x =~ s/"([^"]*)\s([^"]*)"/"$1$2"/g;
}
print $x,"\n";
Dnia poniedziałek 31 maj 2010 o 21:00:04 activeperl-
[email protected] napisał(a):
> Send ActivePerl mailing list submissions to
> [email protected]
>
> 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
> [email protected]
>
> You can reach the person managing the list at
> [email protected]
>
> 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 <[email protected]>
> Subject: Replace white space between ""
> To: [email protected]
> Message-ID: <[email protected]>
> Content-Type: text/plain; charset="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='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/attachments/20100531/
> 60106a70/attachment-0001.html
>
> ------------------------------
>
> _______________________________________________
> ActivePerl mailing list
> [email protected]
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>
> End of ActivePerl Digest, Vol 46, Issue 5
> *****************************************
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
