Pokusím se to napsat z hlavy, takže to asi nebude úplně fungovat :-) Regulární skripty pro Perl (nebo možná i pro awk):
Úplně základní, který náhradu provede všude:
s/(a|v|k|další předložky a spojky)(\s+?)(\w)/$1 $3/ig
Jenom v sekci <body>
s/<body>.*(a|v|k|další předložky a spojky)(\s+?)(\w)/$1 $3/ig
Jenom v sekci <body>, vně tagů (za textem musí být alespoň jeden tag, např. </body>)
s/<body>.*(a|v|k|další předložky a spojky)(\s+?)(\w[^>]*<)/$1 $3/ig
A teď by to chtělo ještě to nějak zoptimalizovat a upravit, ale to už neudělám z hlavy... Třeba je zbytečné, aby to pokaždé procházelo text od <body>, regulárná výryzy si umí zapamatovat pozici posledního výskytu, takže to by asi chtělo využít...
Názor k článku
Jak si přizpůsobit Vim (4)
Filip Jirsák (neregistrovaný)
22. 6. 2001 14:34
