search and replace a | for a +

[spewn]

here's the string i have:

$sn='Males, 18| Years Old';
$sx =~ s/|/+/g;

Need to have it as:

$sn='Males, 18+ Years Old';

But my search/replace code isn't working.

Any ideas?

- g

 

[Kirsle]

$sx =~ s/[red]\[/red]|/+/g;

Kirsle.net | My personal homepage

perl -e '$|=$i=1;print" oo\n<|>\n_|_";x:sleep$|;print"\b",$i++%2?"/":"_";goto x;'

 

[iggitme]

You are pushing two different thing

$sn='Males, 18| Years Old';
$sx =~ s/|/+/g;

$sn is not $sx
also escape those characters

new one

$sn =~ s/\|/\+/ig;

 

[Kirsle]

Very little needs to be escaped in the right end of a substitution except for the delimiting characters you use (the / in this case), and all the usual things you'd want to escape ($ and @ if you want the literals and not interpolate vars).

$ perl
my $t = "test|test";
$t =~ s/\|/+/g;
print "$t\n";
__END__
test+test

Kirsle.net | My personal homepage

perl -e '$|=$i=1;print" oo\n<|>\n_|_";x:sleep$|;print"\b",$i++%2?"/":"_";goto x;'

 

[feherke]

Hi

Personally I would say, there is no need for [tt]s///[/tt] substitution, so neither for regular expression, so neither for escaping :

  [blue]DB<1>[/blue] $sn='Males, 18| Years Old';

  [blue]DB<2>[/blue] $sn=~[url=http://perldoc.perl.org/functions/y.html]y[/url]/|/+/;

  [blue]DB<3>[/blue] print $sn;
Males, 18+ Years Old

Feherke.

http://rootshell.be/~feherke/