Re: perl one liner to replace matching string (updated x2)


Your skill will accomplish what the force of many cannot
	PerlMonks

Re: perl one liner to replace matching string (updated x2)

by haukex (Bishop)

on Jun 10, 2018 at 10:18 UTC ( #1216313=note: print w/replies, xml )

Need Help??

in reply to perl one liner to replace matching string

qx("perl -p -i -e \"s/(\@Filetyp\\s*?:)/\\1$ext/\" /path/test.c")
[download]

It is extremely rare that you need to call another perl from inside a Perl script! I'm going to guess that you're doing it for the effect of the -i flag? You can get that feature from inside Perl using $^I:

{ # new scope for local
    local *ARGV; @ARGV = '/path/test.c';
    local $^I = ""; # -i command line switch
    while (<>) {
        s/(\@Filetyp\s*?:)/$1 c/;
        print;
    }
}
[download]

Update: qx// is often problematic anyway!

Update 2: Fixed this potential issue in the above example code.