Help for this page

Select Code to Download


  1. or download this
    my %subs = (home => 'HomePathFromConfigOrEnv');
    my $keyMatch = join '|', keys %subs;
    ...
    
    $cfgStr =~ s/!($keyMatch)!/$subs{$1}/g;
    print $cfgStr;
    
  2. or download this
    HomePathFromConfigOrEnv/path