🚀 go-pugleaf

tomjas <tomjas@WYTNIJTOpoczta.onet.pl> pisze:
> 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.

W stylu "ochydny jednolinijkowiec":
#v+
while(<>){s/^{(\d+)}{(\d+)}/"{$1}{".($2+50)."}"/e
#v-

(IMHO) W stylu "jak jako tako szanujący się programista powinien":
#v+
while(<>){
  if( my($start,$end,$text) = (/^{(\d+)}{(\d+)}(.*)$/) ) {
    $_=sprintf("{%d}{%d}%s",$start,$end+50,$text;
  }
}
#v-

Przy czym "jako tako szanujący się programista" sprawdzałby czy czasy
kolejnych napisów "nie nachodzą na siebie".

P.S.
Sam napisałem już kilka skryptów które "może i warto byłoby rozpowszechnić"
ale niestety napisane były w stylu "wstydziłbym się innym pokazać" 
bo uważałem że są do użytku "jednoosobowego" ;-)

-- 
Andrzej Adam Filip : anfi@onet.eu : Andrzej.Filip@gmail.com
Zanika rękodzieło. Nawet w zbrodni.
  -- Lec, Stanisław Jerzy (1909-1966)