Article View: pl.comp.lang.perl
Article #52070Re: Jak w zmienic wartosc liczbowa w regexpie
From: tomjas
Date: Mon, 29 Nov 2010 11:56
Date: Mon, 29 Nov 2010 11:56
19 lines
1608 bytes
1608 bytes
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...
Technical Details
Message-ID:
<slrnif757g.qu2.tomjas@krusty.localhost>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!not-for-mailReferences:
<slrnif73so.ps1.tomjas@krusty.localhost>Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!not-for-mail From: tomjas <tomjas@WYTNIJTOpoczta.onet.pl> Newsgroups: pl.comp.lang.perl Subject: Re: Jak w zmienic wartosc liczbowa w regexpie Date: Mon, 29 Nov 2010 11:56:32 +0000 (UTC) Organization: "Portal Gazeta.pl -> http://www.gazeta.pl" Lines: 19 Message-ID: <slrnif757g.qu2.tomjas@krusty.localhost> References: <slrnif73so.ps1.tomjas@krusty.localhost> Reply-To: tomjas NNTP-Posting-Host: 77-223-206-237.lublin.hypnet.pl Mime-Version: 1.0 X-Trace: inews.gazeta.pl 1291031792 25129 77.223.206.237 (29 Nov 2010 11:56:32 GMT) X-Complaints-To: usenet@agora.pl NNTP-Posting-Date: Mon, 29 Nov 2010 11:56:32 +0000 (UTC) X-User: tomasz.jasinski User-Agent: slrn/0.9.9p1 (Linux) Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 7bit