🚀 go-pugleaf

On Mon, 29 Nov 2010 11:56:32 +0000 (UTC), tomjas wrote:
> On Mon, 29 Nov 2010 11:33:44 +0000 (UTC), tomjas wrote:
>> Witam.
>> Temat dosc enigmatyczny wiec objasnie na przykladzie o co mi chodzi.
>> Klasyczny przyklad - napisy do filmu w formacie MicroDVD czyli
>> ...
>> {63245}{63250}Jakis tekst
>> ...
>> No wlasnie - jak teraz zwiekszyc te druga liczbe (napisy wyswietlaja sie
>> za krotko). Zapewne jako poczatkujacy zabieram sie od dupy strony
>> i probuje cos takiego:
>> while(<>){s/{(\d+)}{(\d+)}/{$1}{$2}/}
>> No i teraz - co podstawic pod $2, tak by nowe $2=$2+50?
>> Z gory dzieki - na przekor twierdzeniom ostatnio na grupie ze perl
>> umiera postanowilem sie nauczyc w nim regexpow.
>>
> Dobra - zrobilem to tak:
> while(<>){/{(\d+)}{(\d+)}/;$k=$2+50}
> choc wyczuwam ze nie jest to nazbyt eleganckie i na pewno mozna to
> zrobic lepiej...
A raczej tak:
while(<>){/{(\d+)}{(\d+)}/;$k=$2+50;s/$2/$k/}