Re: sed isn't working within a perl script

in reply to sed isn't working within a perl script

You will need to modify your string and properly quote the backslash so that it gets passed correctly to the shell. I recommend the following approach:

use strict;
use warnings;
my $cmd = "sed -ie 's/\(.*\)/Number => \1/' test.txt";

print "Launching [$cmd]\n";

system($cmd) == 0
    or die "Couldn't launch [$cmd]: $! / $?";
[download]

You will see that your single backslashes did not get passed through to the sed command. You will need to double them.

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 nvivek (Vicar) on Oct 19, 2012 at 10:39 UTC
You're right. Thank you so much. I just doubled the backslashes used in grouping and referring grouped pattern. Then it worked properly. I got confused because I didn't get any error while executing that code.	[reply]
Re^2: sed isn't working within a perl script by McA (Priest) on Oct 19, 2012 at 09:19 UTC
Hi, is it possible that a backslash gets lost in your solution or simply when posting your solution? I can't see a difference. Best regards McA	[reply]
Re^3: sed isn't working within a perl script by Corion (Patriarch) on Oct 19, 2012 at 09:20 UTC
I did only add the debugging help, not a solution to the problem itself.	[reply]
Re^4: sed isn't working within a perl script by McA (Priest) on Oct 19, 2012 at 09:28 UTC
Hi corion, I'm sorry. I have to admit that it seems that I stopped reading before the last sentence. That's more worse as I also prefer helping to help youself. Excuse me. Best regards McA	[reply]
Re^3: sed isn't working within a perl script by Anonymous Monk on Oct 19, 2012 at 09:21 UTC
corion posted the original with error checking, so the OP can see/understand what went wrong (how to debug, error check) and instructions on how to fix the problem (something for the OP to type)	[reply]

In Section Seekers of Perl Wisdom