Find/replace to new file: ksh -> perl

McLan · #1 (**permalink**) 05-15-2008

I have korn shell script that genretaets 100 file based on template replacing the number.
The template file is as below:

Code:

$ cat template
file number: NUMBER

The shell script is as below:

Code:

$ cat gen.sh
#!/bin/ksh
i=1;
while ((i <= 100)); do
        sed "s/NUMBER/$i/" template > file_${i}
(( i = i + 1));
done

Now I want to migrate this code into perl script called gen.pl
How can I fine replace NUMBER is template file and generate new output file?

era · #2 (**permalink**) 05-16-2008

Conveniently, Perl syntax is identical to sed syntax for this part.

Code:

s/NUMBER/$i/

Other UNIX.COM Threads You Might Find Helpful
Thread	Thread Starter	Forum	Replies	Last Post
replace space with delimiter in whole file -perl	meghana	Shell Programming and Scripting	11	02-19-2008 05:35 PM
Parentheses in perl find/replace	Jeffish	Shell Programming and Scripting	3	08-21-2007 08:10 AM
find and replace pattren in file	gopalss	Shell Programming and Scripting	5	08-09-2007 12:06 AM
find and replace a pattern in a file	krishnamaraju	Shell Programming and Scripting	1	08-29-2006 07:02 AM
Find replace within a file?	yankee428	UNIX for Dummies Questions & Answers	2	06-15-2005 09:32 AM

Thread Tools	Search this Thread
Show Printable Version Email this Page	Search this Thread: Advanced Search
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode