#!/bin/perl -w 
 
use strict; 
 
print qq~Finding "$find" and replacing it with "$replace"\n~; 
my $filename="/test/perl/test.jil"; 
my $filename1="/test/perl/new_test.jil"; 
 
my %dict; 
#the pairs.txt is the file which contains key value combinations. 
 
my $filename3="/test/perl/pairs.txt"; 
open(DICTFILE, "<$filename3") || die "Can't open $filename3"; 
while(<DICTFILE>){ 
chomp; 
   my ($key, $val) = split /=/; 
   $dict{$key} .= exists $dict{$key} ? "$val" : $val; 
} 
 
open(IN, "<$filename") || die "Can't open $filename"; 
open(OUT,">$filename1") || die "Can't open $filename1"; 
 
while( my $line = <IN> ){ 
foreach my $s (keys %dict){ 
$line =~ s/$s/$dict{$s}/g; 
} 
print OUT "$line"; 
         } 
close(IN); 
close(OUT); 
print "Finished";

#!/bin/perl 
use strict;  
use warnings; 
 
print qq{Finding "$find" and replacing it with "$replace"\n};  
 
my $filename = '/test/perl/test.jil';  
my $filename1 = '/test/perl/new_test.jil';  
my $filename3 = '/test/perl/pairs.txt';  
my %dict;  
#the pairs.txt is the file which contains key value combinations.  
  
 
open(my $DICTFILE, "<", $filename3) or die "Can't open $filename3: $!";  
while(<$DICTFILE>){  
chomp;  
   my ($key, $val) = split /=/;  
   $dict{$key} .= $val;  
} 
close $DICTFILE;  
  
open(my $IN, "<", $filename) or die "Can't open $filename: $!";  
open(my $OUT,">", $filename1) or die "Can't open $filename1: $!";  
  
while( my $line = <$IN> ){  
   foreach my $s (keys %dict){ 
      $line =~ s/$s/$dict{$s}/g;  
   }  
   print $OUT $line; 
}  
close($IN);  
close($OUT);  
print 'Finished';

print OUT "$line";

$dict{$key} .= exists $dict{$key} ? "$val" : $val;

$dict{$key} .= $val;

 open(my $IN, "<$filename") or die "Can't open $filename: $!";

 #!/bin/perl -wuse strict; 
use POSIX; 
use Env qw(RDAT); my $filename="$ARGV[1]"; 
my $filename1="$ARGV[2]"; 
my $ENV ; 
print "$ARGV[0] \n"; 
 my $type="$ARGV[0]"; 
print "$type \n"; 
if ($type eq 'D') { 
$ENV= "$RDAT/DEV.txt"; 
} 
if ($type eq 'U') { 
print "$RDAT/UAT.txt \n"; 
$ENV= "$RDAT/UAT.txt"; 
} 
elsif ($type eq 'U2') { 
$ENV= "$RDAT/UAT2.txt"; 
} 
elsif ($type eq 'U3') { 
$ENV= "$RDAT/UAT3.txt"; 
} 
print "$ENV \n";  
 
   
 
my %dict; 
open(DICTFILE, "<$ENV") or die "Can't open $ENV:  $!"; 
while(<DICTFILE>){ 
chomp; 
   my ($key, $val) = split /=/; 
   $dict{$key} .= $val; 
} 
close DICTFILE;  
 
   
 
open(my $IN, "<$filename") or die "Can't open $filename: $!"; 
open(my $OUT,">$filename1") or die "Can't open $filename1: $!";  
 
   
 
while( my $line = <$IN> ){ 
foreach my $s (keys %dict){ 
$line =~ s/$s/$dict{$s}/g; 
} 
  
 
print $OUT $line; 
         } 
close($IN); 
close($OUT); 
print "Finished";