Re: sed isn't working within a perl script

:D Calling sed from perl is like driving a bicycle inside a car -- just drive the car

The perl oneliner equivalent (as s2p helps me understand it)

perl -i -l -p -e ' s /(.*)/Number => ${1}/s; '  test.txt
[download]

But you still don't want to use system to run that oneliner

instead use

use File::Slurp qw/ edit_file /;
edit_file { s /(.*)/Number => ${1}/s; } 'test.txt';
[download]

or some such

Comment on Re: sed isn't working within a perl script Select or Download Code

Replies are listed 'Best First'.
Re^2: sed isn't working within a perl script by Anonymous Monk on Oct 19, 2012 at 09:42 UTC
You want edit_file_lines because edit_file reads the whole file and not line-by-line	[reply]
Re^2: sed isn't working within a perl script by nvivek (Vicar) on Oct 19, 2012 at 10:37 UTC
I don't want to include new module to do this stuff. That's why, I preferred system function with sed command. Reason is I am going to add this stuff in 1000 lines of code which does other operation.	[reply]
Re^3: sed isn't working within a perl script by Anonymous Monk on Oct 19, 2012 at 11:48 UTC
I don't want to include new module to do this stuff. Reason is I am going to add this stuff in 1000 lines of code which does other operation. :) Like they say, do what makes sense to you But you might be interested in these other viewpoints :) You could always use open/readline ... see Re: modifying a file with regex! Or the instant classics on the subject of wheels :) Yes, even you can use CPAN Top 11 (GOOD) reasons not to use someone else's Modules, Top Seven (Bad) Reasons Not To Use Modules	[reply]