Min inngang tekst har følgende pattens:

  func_a(3,
         4,
         5);

   
  func_b(3,
         4,
         5,
         6);

perl -p -e "s/func_a\((.*)?\);/func_b(\1,\n6)/s" < file |more

bruker $ 1 og $ 6 i stedet for \ 1 og \ 6, se om det hjelper. Bruk enkle anførselstegn rundt koden, med mindre du er på vinduer.

Takk, men det fungerer ikke. Forresten, jeg er ikke bruker \ 6, men heller \ n6.

Bruk $ 1 i stedet for \ 1

Endre kommandoen som nedenfor ...
perl -p-e "s / func_a \ ((.*)? \); / func_b \ ($ 1 \ n6 \); / s" <arkiv | mer

Ja, jeg brukte $ 1 i stedet for \ 1. Jeg tror det gjør ingen forskjell.
Når jeg har mønstre som ikke har nye linjer i dem, for eksempel:

  func_a(3);

perl -p -e "s/func_a\((.*)?\);/func_b($1,\n6)/s" < file |more

Problemet er at med perl -p, er du bare leser og undersøker en linje om gangen. Dermed mønsteret samsvarer ikke blir brukt til noe som ligger på begge sider en linje grense, selv om du har det / s modifier. Du kan fikse det ved å lese alle linjer samtidig, med perl -0777 Eller noe tilsvarende.

Se også Perl FAQ, som har en detaljert diskusjon om dette emnet.

perl burde ha gitt meg en feil / advarsel fordi s modifier gjelder ikke-p.
Allikevel, her er hva jeg prøvde, men denne gangen får jeg ingenting outputted:

perl -e -0777 "s/func_a\((.*)?\);/func_b(\1,\n6)/s" < file |more

perl -e "BEGIN {$/=undef} s/func_a\((.*)?\);/func_b(\1,\n6)/s"