#!/usr/bin/perl # # svn $Id: substitute 889 2018-02-10 03:32:52Z arango $ ####################################################################### # Copyright (c) 2002-2019 The ROMS/TOMS Group # # Licensed under a MIT/X style license # # See License_ROMS.txt # ################################################## Hernan G. Arango ### # # # This script is used to globally substitute a string in specified # # file: # # # # Usage: # # # # substitute $ARGV[0] $ARGV[1] $ARGV[2] # # # # where # # # # $ARGV[0] file name # # $ARGV[1] old string # # $ARGV[2] new string # # # ####################################################################### use strict; my $file = $ARGV[0]; my $tmp = "tmp.$$"; open(FILE, "$file"); open(TMP, ">$tmp") || die "Can't open tmp file"; $/=undef; my $string = ; close FILE; $string=~ s|$ARGV[1]|$ARGV[2]|g; print TMP "$string"; close(TMP); rename ($tmp, $file)