perl

Robert Ludvik robert.ludvik at zd-lj.si
Fri Nov 14 23:21:36 CET 2003


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

tale stvar mi naredi ravno obratno - zamenja v vrsticah, ki SE zacnejo 
z "**". ce dam ! stran iz pogoja, dobim 1kB datoteko, polno enic 
(verjetno zato, ker je pogoj pravilen :-)
bolj gledam, bolj se cudim :-) mi lahko kdo razjasne, pomaga?

primer datoteke:

...
** to mora ostati kot je > itd.
tukaj pa se mora popraviti > v znak "je vecje od"
...

lp
robert ludvik





More information about the lugos-list mailing list