Perl поиск и замену с новыми линиями

Question

мне нужно, чтобы иметь возможность запускать скрипт на языке Perl, который ищет и заменяет 3 строки под [RemotePhoneBook0]

так вот отрывок из файла:

[ RemotePhoneBook0 ] 
path = /config/Setting/Setting.cfg 
URL = 
Name = 

[ RemotePhoneBook1 ] 
path = /config/Setting/Setting.cfg 
URL = 
Name = 

Я не могу коснуться [RemotePhoneBook1]. Когда я закончу этот же отрывок выше должен выглядеть следующим образом:

[ RemotePhoneBook0 ] 
path = /somePath/to/someDir 
URL = someUrl 
Name = someName 

[ RemotePhoneBook1 ] 
path = /config/Setting/Setting.cfg 
URL = 
Name = 



s/^<<<what can i put here>>>\s*=.*/somePath/; 
s/^<<<what can i put here>>>\s*=.*/someUrl/; 
s/^<<<what can i put here>>>\s*=.*/someName/; 

Answer 1

Для потомков этого является то, что я сделал:

open my $in,"<","$directory/$files"; 
    open my $out,">","$directory/temp.txt"; 

    my @lines = <$in>; 
    close $in; 
    #print "@lines"; 
    for($index=0;$index<=$#lines;$index++){ 
      my $this = $lines[$index]; 
      if ($this eq "[ RemotePhoneBook0 ]\n"){ 
        $lines[$index] = "[ RemotePhoneBook0 ]\n"; 
        $lines[$index+1] = "path=\n"; 
        $lines[$index+2] = "URL = http:\/\/someUrl\n"; 
        $lines[$index+3] = "Name = Users\n"; 
        $lines[$index+4] = "\n"; 
        $index++; 
        $index++; 
        $index++; 
        $index++; 
        }else{ 
          $lines[$index] = $this,"\n"; 
        } 
    } 
    print $out @lines; 

это печатает каждую строку при замене строк, о которых я забочусь.

Answer 2

Я хотел бы использовать Config::IniFiles для такой задачи:

use warnings; 
use strict; 

use Config::IniFiles; 

my $ini = Config::IniFiles->new(-file => "stackoverflow_30472923.ini"); 

# print $ini->val("RemotePhoneBook0", "path"); 

$ini -> setval('RemotePhoneBook0', 'path', '/somePath/to/someDir'); 
$ini -> setval('RemotePhoneBook0', 'URL' , 'someUrl'   ); 
$ini -> setval('RemotePhoneBook0', 'Name', 'someName'   ); 

$ini -> WriteConfig("stackoverflow_30472923.modified.ini");