Re: simple regexp question

Something like this perhaps?

$ perl -w
use strict;
my $str = q{sometext with conetnst add kklkk&dfaf:dfaÜÄmlddö;};
$str =~ s/&(.*?);/&$1 ;/g;
print $str;
__END__
sometext with conetnst add kklkk&dfaf:dfaÜÄmlddö ;
[download]

Update: Thanks to johngg for identifying glitch.

--
Andreas

Comment on Re: simple regexp question Download Code

Replies are listed 'Best First'.
Re^2: simple regexp question by johngg (Canon) on Nov 21, 2007 at 09:49 UTC
Did you mean `$str =~ s/&(.*?);/&$1 ;/g;` [download] perhaps? Your code as it stands seems to lose the text after the ampersand. Cheers, JohnGG	[reply] [d/l]
Re^2: simple regexp question by Punitha (Priest) on Nov 21, 2007 at 10:57 UTC
In customising the andreas1234567 code, you can use it as `use strict; my $str = q{sometext with conetnst add kklkk&dfaf:dfaÜÄmlddö;}; $str =~ s/&([^;]+);/&$1 ;/g; #This includes all the characters til +l the semicolon print $str;` [download] Punitha	[reply] [d/l]