substitute character in variable

[Michael Goodman]

Pardon my ignorance but,

How do you parse a variable to find every occurrence of a string and
replace the string with another. I tried using ~s/ but it doesn't work.
Thanks,

[Marcos Rebelo]

give one example

-----Original Message-----
From: Michael Goodman [mailto:mgoodman@BTBOCES.ORG]
Sent: Friday, September 12, 2003 3:27 PM
To: [email]beginners@perl.org[/email]
Subject: substitute character in variable


Pardon my ignorance but,

How do you parse a variable to find every occurrence of a string and
replace the string with another. I tried using ~s/ but it doesn't work.
Thanks,

--
To unsubscribe, e-mail: [email]beginners-unsubscribe@perl.org[/email]
For additional commands, e-mail: [email]beginners-help@perl.org[/email]

[Rob Dixon]

Hi Michael

Michael Goodman wrote:

>
> Pardon my ignorance but,

This is a beginners list :)

> How do you parse a variable to find every occurrence of a string and
> replace the string with another. I tried using ~s/ but it doesn't work.

use strict;
use warnings;

my $variable = "A and B and C and D and E";

$variable =~ s/and/or/g;

print "$variable\n";

OUTPUT

A or B or C or D or E


HTH,

Rob

[James Edward Gray II]

On Friday, September 12, 2003, at 08:27 AM, Michael Goodman wrote:

> Pardon my ignorance but,
>
> How do you parse a variable to find every occurrence of a string and
> replace the string with another. I tried using ~s/ but it doesn't
> work.

For replacing a string, you want:

$variable =~ s/STRING/REPLACEMENT/g;

Just remember that's a Regular Expression, so some characters have
special meaning in there. Good luck.

James

[Robin Norwood]

"Michael Goodman" <mgoodman@BTBOCES.ORG> writes:

> Pardon my ignorance but,
>
> How do you parse a variable to find every occurrence of a string and
> replace the string with another. I tried using ~s/ but it doesn't work.

Michael,

It's usually better to post a code example so that we can see what's
going wrong. However, this quick example does what I think you are
asking for:

#!/usr/bin/perl

use strict;
use warnings;

my $string = "How much wood would a woodchuck chuck if a woodchuck could chuck wood?\n";
$string =~ s/wo/qu/g;
print $string;

returns:
How much quod quuld a quodchuck chuck if a quodchuck could chuck
quod?

Note the 'g' tacked on to the end of the substitution...

-RN

--
Robin Norwood
Red Hat, Inc.

"The Sage does nothing, yet nothing remains undone."
-Lao Tzu, Te Tao Ching