#!/usr/bin/perl
#==============================
# Replace _db with given parm
#==============================
$dbname="_db" . $ARGV[0] ;
while (<STDIN>)
{
$line1 = $_ ;
for ($line1) {
s/(_db)(\s|\n|\.)/$1X$2/g ;
s/_db[0-9][0-9]/_dbX/g;
s/_db[0-9]/_dbX/g;
s/_dbX/$dbname/g;
}
print $line1 ;
}
|
|
