in reply to Re: Repeated substitution on 1 side of a line only
in thread Repeated substitution on 1 side of a line only

Or skip the hash altogether... 

#!/usr/bin/perl

# http://perlmonks.org/?node_id=1177915

use strict;
use warnings;

while(<DATA>)
  {
  s#-|(:.*)# $1 // '_' #ge;
  print;
  }

__DATA__
session-redis-hosts-fault-tolerant: "tyk-redis-1.gateways.svc.cluster.
+local,tyk-redis-2..."
message-center-db: "http://message-center-db-1b.message-center-db.svc.
+cluster.local"

[download]

Replies are listed 'Best First'.
Re^3: Repeated substitution on 1 side of a line only
by choroba (Cardinal) on Dec 16, 2016 at 21:46 UTC
    I wanted to get the result without /e or any other "advanced" tricks.

    ($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom