> mam duzo plikow tekstowych w ktorych czesc akapitow rozpoczyna sie od
> numeru, numeru z kropka. Jak zrobic skrypt w perlu, zeby automatycznie
> zmienic KOLEJNE pojawiajace sie numery na tekst i odpowiedni
> numer, ALE
> w tekscie wystepuja podobne sekwencje numerow z kropka. Trzeba wykryc
> czy jest to dowolna liczba z kropka czy tez KOLEJNE oznaczenie
> akapitu.
Na przyklad tak. Pewnie mozna sprytniej. Wywolanie przez rure, czyli
`cat plikwe | perl ponizszyskrypt > plikwy`
use strict;
my $licznik = 1;
my $lancuchDoWsadzenia = "KDK";
while (<>) {
if (/^($licznik\.)/) {
s/^$1/\{${lancuchDoWsadzenia} $licznik\}\./;
$licznik++;
}
print;
}Pozdrawiam,
Wojtek Chemijewski
*************************
Taniej do końca 2001r.!
http://www.tpi.pl
