Multiple matches and replacements 1

[cryptoadm]

How would you do a match and replace for multiples in a variable?

Example:
PATH=$PATH:/home/userx:/usr/X11:.:/usr/sbin:..:/usr::/var:.

I need to remove any . and .. and :: in the path and also if any of those 3 characters are at the end of the line they need to be removed.

My code works to remove the . and .. and the first instance of :: but not any subsequent instances. Also cannot get the end of line match/replace to work.

while (<>) {
      chomp ($_);
      if ($_ =~ m/^PATH/) {
              s/\.//;
              s/\.\.//;
              s/::/:/;
              print;
      }
}

 

[KevinADC]

add the "g" modifier:

while (<>) {
      chomp;
      if (/^PATH/) {
              s/\.{1,2}//g;
              s/::/:/g;
              print;
      }
}

Look up the "g" modifier in any regexp tutorial for more details.

------------------------------------------
- Kevin, perl coder unexceptional!

 

[cryptoadm]

Thank you