On Fri, 20 Jul 2001 22:08:13 +0200, allan wrote:
>my $str = qq(this word should have 'doubleqoutes' and this should have
>"singleqoutes");
>
>$str =~ s/'/some_temp_for_singles/g;
>$str =~ s/\"/some_temp_for_doubles/g;
>$str =~ s/some_temp_for_singles/"/g;
>$str =~ s/some_temp_for_doubles/'/g;
>print "OK: ", $str;
If tr/// were not available... or if you want to replace longer strings,
like replacing "ab" with "ba" and vice versa:
There's no reason in Perl to do any replacement in multiple passes. Use
the combination of s/// with a replacement hash.
%replace = ( "\"" => "'", "'" => "\"");
s/(['"])/$replace{$1}/g;
--
Bart.
