Wrapping a command in perl

asram · #1 (**permalink**) 10-19-07, 10:53

We are using the following command on LINUX servers to swith the fields in a file.

perl -pi -e 's/(.*?)=\s+(.*?)\s+\#(.*?) Replace (.*?)\s+(.*)/$1= $4 \# $5 Replace $2 $3/' ${file}

I am trying to wrap it in a perl script. Please help.

sco08y · #2 (**permalink**) 10-22-07, 17:32

What do you mean "wrap" it in a perl script?

If you want to make it a standalone perl script, it's just:

Code:

#!/usr/bin/perl -pi
s/(.*?)=\s+(.*?)\s+\#(.*?) Replace (.*?)\s+(.*)/$1= $4 \# $5 Replace $2 $3/

The command line parameters can go into the shebang (# is a sharp, ! is a bang) just fine. See perldoc perlrun to see why this works, and to see what -pi does.

Also, change /usr/bin to whatever "which perl" tells you.

asram · #3 (**permalink**) 11-07-07, 09:42

Sorry for the late response. Thanks for the help..it worked.

Internet Services

Web Development

Digital Marketing

Consumer Tech