[LUGOS] perl

[Aleksander Kmetec]

Robert Ludvik wrote:
> zdravo
> v txt datoteki zelim zamenjati vse ">" z ">" v vseh vrsticah, ki se 
> NE zacnejo z "****". ker sem na win masini, sem se lotil s Perlom:
> 
> perl -p -i*.bak -e "if ( $_ != /^\*\*/) {s/>/>/g}" c.txt

Operator za neujemanje patterna je !~ in ne !=.

Lahko pa poskusiš tudi s spodnjim primerom, ki bi naj "matchal" začetek 
vrstice, ki mu NE sledijo 3 zvezdice. Nisem pa stestiral.
=~ ^(?!\*\*\*)

LP,
Aleksander