Multiple Substitutions in perl

[kd]

Hi,

I am trying to do multiple substitutions in same line using regular
expressions.

$parameters ="V,ATP,WDR,WSD";

I am trying to replace either the pattern "U," or "V," with "U,V,"

Here is the syntax I used.

$parameters=~s/[U,]|[V,]/U,V,/;

Can anyone help me in fixing this part.

Thanks in advance.

-
Karthik

 

[it_says_BALLS_on_your forehead]

Hi,

I am trying to do multiple substitutions in same line using regular
expressions.

$parameters ="V,ATP,WDR,WSD";

I am trying to replace either the pattern "U," or "V," with "U,V,"

Here is the syntax I used.

$parameters=~s/[U,]|[V,]/U,V,/;

Can anyone help me in fixing this part.

Thanks in advance.

try:

$parameters =~ s/(?:U|V),/U,V,/g;

 

[A. Sinan Unur]

I am trying to do multiple substitutions in same line using regular
expressions.

$parameters ="V,ATP,WDR,WSD";

I am trying to replace either the pattern "U," or "V," with "U,V,"

How is this a multiple substitution?

Here is the syntax I used.

$parameters=~s/[U,]|[V,]/U,V,/;

Did you read what [ ] means?

perldoc perlreref

[...] Matches any one of the characters contained within the
brackets

Can anyone help me in fixing this part.

#!/usr/bin/perl

use strict;
use warnings;

my $parameters = "V,ATP,WDR,WSD";
$parameters =~ s{ (?:V,) | (?:U,) }{U,V,}x;

print "$parameters\n";

__END__

Sinan

 

[Tad McClellan]

Hi,

I am trying to do multiple substitutions in same line using regular
expressions.

$parameters ="V,ATP,WDR,WSD";

I am trying to replace either the pattern "U," or "V," with "U,V,"

Here is the syntax I used.

$parameters=~s/[U,]|[V,]/U,V,/;

Can anyone help me in fixing this part.

$parameters =~ s/[UV],/U,V,/g;