c:\@Work\Perl\monks\lewars>perl -wMstrict -le
"use Data::Dump qw(dd);
;;
my $xlate_file = 'lookup.dat';
open my $fh_xlate, '<', $xlate_file or die qq{opening '$xlate_file': $!};
;;
my %xlate =
map { m{ \A (\S+) \s+ (.+?) \s+ \z }xms }
<$fh_xlate>
;
dd \%xlate;
close $fh_xlate or die qq{closing '$xlate_file': $!};
;;
my ($rx_ref) =
map qr{ \b (?: $_) \b }xms,
join ' | ',
map quotemeta,
reverse sort
keys %xlate
;
print $rx_ref;
;;
my $master_file = 'master.dat';
open my $fh_master, '<', $master_file or die qq{opening '$master_file': $!};
;;
my $master = do { local $/; <$fh_master> };
close $fh_master or die qq{closing '$master_file': $!};
;;
$master =~ s{ ($rx_ref) }{$xlate{$1}}xmsg;
print qq{[[$master]]};
"
{
Ref00004 => "https://dealerportal4.xx.com/siteminderagent/forms/xx.fcc;ACS=0",
Ref00005 => "https://sso.xx.com/siteminderagent/forms/xx.fcc;ACS=0;REL=0",
Ref00006 => "https://secure3.xx.com/siteminderagent/forms/xx.fcc;ACS=0;REL=0",
Ref00007 => "https:///siteminderagent/cert/smgetcred.scc?cert",
Ref00008 => "https://secure4.xx.com/siteminderagent/forms/xx.fcc;ACS=0;REL=0",
Ref00009 => "https://vbos-uat.xx.com/siteminderagent/forms/xx.fcc;ACS=0;REL=0",
}
(?msx-i: \b (?: Ref00009 | Ref00008 | Ref00007 | Ref00006 | Ref00005 | Ref00004) \b )
[[
false
TCP portal auth scheme
5
false
https://sso.xx.com/siteminderagent/forms/xx.fcc;ACS=0;REL=0
]]