Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Re: Replace string in one file using input from another file

by tybalt89 (Priest)
on Feb 07, 2018 at 18:17 UTC ( #1208643=note: print w/replies, xml ) Need Help??


in reply to Replace string in one file using input from another file

#!/usr/bin/perl # http://perlmonks.org/?node_id=1208637 use strict; use warnings; use Inline::Files; my %replace = map /^(\S+)\s+(\S.*)$/, <LOOKUP>; while( <MASTER> ) { s#\bRef\d+# $replace{$&} // $& #ge; print; } __LOOKUP__ 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;AC +S=0;REL=0 Ref00007 https:///siteminderagent/cert/smgetcred.scc?cert Ref00008 https://secure4.xx.com/siteminderagent/forms/xx.fcc;AC +S=0;REL=0 Ref00009 https://vbos-uat.xx.com/siteminderagent/forms/xx.fcc;A +CS=0;REL=0 __MASTER__ <Property Name="CA.SM::AuthScheme.IsUsedbyAdmin"> <BooleanValue>false</BooleanValue> </Property> <Property Name="CA.SM::AuthScheme.Desc"> <StringValue>TCP portal auth scheme</StringValue> </Property> <Property Name="CA.SM::AuthScheme.Level"> <NumberValue>5</NumberValue> </Property> <Property Name="CA.SM::AuthScheme.IsTemplate"> <BooleanValue>false</BooleanValue> </Property> <Property Name="CA.SM::AuthScheme.Param"> <LinkValue><XREF>Ref00005</XREF></LinkValue> </Property> <Property Name="CA.SM::AuthScheme.Library">

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1208643]
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (6)
As of 2018-08-18 06:43 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Asked to put a square peg in a round hole, I would:









    Results (185 votes). Check out past polls.

    Notices?