> Zmienia duze na male zostawiajac duza litere na poczatku wiersza. Tak mialo
> byc, prawda?
> P.S. Ale jest tez ten skrypt perlisty, co go ktos podeslal, wiec ... ja tylko
> dlatego, ze w pytaniu bylo:
a ja tak na wszelki wypadek (gdyby to się miało komuś przydać) podsyłam
poprawioną wersję skryptu w perlu:
#!/usr/bin/perl
use locale;
use POSIX qw(locale_h); setlocale(LC_CTYPE, "pl_PL.ISO_8859-2");
$_=lc(join('',<>));
s/\.(\s+)(.)/\.$1\U$2\E/sg;
print;
Ta linijka z use POSIX potrzebna gdy ktoś nie ma ustawionej prawidłowo
lokalizacji.
Skrypt działa tak, że zamienia wszystko na małe litery a potem na duże
te które znajdują się po kropce (nawet jeśli kropka była kilka linijek
wcześniej). Oczywiście nie jest to cud, no bo oczywiście wszystkie
kropki po skrótach itp. Są traktowane tj. Kropki na końcu zdania.
No i pierwsze zdanie nie jest po kropce więc będzie małą literą.
Acha, gdyby ktoś chciał oprócz kropek obsłużyć jeszcze '!' i '?' to
przedostatnia linijka powinna mieć postać:
s/([\.\!\?])(\s+)(.)/$1$2\U$3\E/sg;
pozdrawiam
marcin
ps. fajny ten perl :)
--
.d$$$$b, $d$$$$b. .d$$$$b, Marcin Gryszkalis <[EMAIL PROTECTED]>
$$' `"" $$' `"' $$' `$$
$$. .ss $$ $$ $$ (...) QED. (QED translates from the Latin
`"8$$8"' 88 88 88 as "So what?")
