☰

» »

Find and replace v Perlu

Find and replace v Perlu

poweroff ::

Spet jaz s svojimi Perl problemi... Rad bi naredil skripto, ki v datoteki poisce vse linke tipa show=1.txt in jih zamenja tako da tisto cifro poveca.
Se pravi iz "show=1" naredi "show=2", iz "show=2" "show=3", itd.
Imam znano kaj je pred cifro ("show=) in kaj je za njo ("). V bistvu pa bi moral nekako zagrabit to cifro (split, samo ne vem tocno kako, ker sta dva dividorja - "show= in ", potem pa to cifro povecat in jo vstavit nazaj.

simon :: 


 #!/usr/bin/perl -w
 $i=0;
 while (<>)
 {
 s/(show=\d+)/show=$i/;
 $i++;
 print;
 }

Zgornje si skopiraj v en fajl, ga chmodaj na 755, potem pa klici cat /fajl/za/spremenit | ./moj_skript.pl in na standardnem izhodu bos dobil obdelan fajl tako kot hoces.
Ce rabis vec informacij mi pisi

Vredno ogleda ...

TemaSporočilaOglediZadnje sporočilo
TemaSporočilaOglediZadnje sporočilo
»

Poliranje stekel na žarometih (strani: 1 2 )

Oddelek: Na cesti		7726699 (21185) RED_line
»

Prvi avto (strani: 1 2 3 4 5 6 )

Oddelek: Na cesti		26144377 (34484) matobeli
»

Eee Keyboard na trgu oktobra

Oddelek: Novice / Ostala programska oprema		164266 (3131) opeter
»

Linux-par vprašanj

Oddelek: Operacijski sistemi		191202 (989) leinad

Več podobnih tem