Как записать с помощью perl-скрипта многострочный текст в файл?

Question

[Arteben]

Имеется текстовый файл в который необходимо записать текст(многострочный) после определенной строки.

Answer 1

[Konkase]

Как вариант:

#!/usr/bin/perl

    $string="string";
     
    open($fh, "data1.txt");     
    open($fh2,"data2.txt");
    
    while ($row = <$fh>) {
    chomp $row;
    
	if ($row =~ /$string/ ) {
	    print $string."\n";
	   while ($row2 = <$fh2>) {
	      chomp $row2;	      
	      print $row2."\n"; 
	      }
	  } else {
	    print $row."\n";}
	  
    }

Comments

[Arteben]

Можно пару уточняющих вопросов? В файле data1.txt происходит замена. А data2;txt является источником для строк, которое будут вставляться?

[Konkase]

в data1.txt исходный файл в котором необходимо искать строку, после нахождения которой вставляется текст файла data2.txt, вывод в консоль. чтобы сохранить в файл, запускайте так: perl script.pl > data3.txt

[Arteben]

А как тут, в этом же скрипте, записать строки из data2.txt в data1.txt

$string="string";
     
    open($fh, "data1.txt");     
    open($fh2,"data2.txt");
    open(my $WRITEFILE, ">", data1.txt)
    
    while ($row = <$fh>) {
    chomp $row;
    
	if ($row =~ /$string/ ) {
	    print $WRITEFILE $string."\n";
	   while ($row2 = <$fh2>) {
	      chomp $row2;	      
	      print $WRITEFILE $row2."\n"; 
	      }
	  } else {
	    print $WRITEFILE $row."\n";}
    }

Так можно написать?