Rejstrik (index)
Ladislav Dobias
dobias at labe.felk.cvut.cz
Thu Nov 8 11:27:46 CET 2001
Dobry den,
On Thu, 8 Nov 2001, Miroslav BALDA wrote:
> 1. doporucovany povel >>cat<< nemam k dispozici, protoze
> pracuji pod Windows 2000. Podobne je to s programen
> >>detex<<, ktery je k dispozici rovnez pro Linux. Alespon
> jsem jinou verzi na CTAN nenasel.
Program "detex", "dvispell", popr. "dvi2tty" je vhodny pro
predzpracovani, neni vsak nutny (pokud vam nevadi, ze ve
vypisu slov budou i jmena maker).
"cat" neni potreba, ten jen vypisuje soubor - neco jako type
v DOSu. Staci presmerovani. Problem asi bude spise s programy
'tr', 'sort'...
Tyto vsechny programy by podle mne (nemam Windows), mely
byt v baliku CYGWIN (viz http://www.cygwin.com/) a nebo
DJGPP, coz jsou GNU programy pro Windows, resp. pro DOS
(vcetne bash, cat, tr, sort, ale i prekladace gcc... :-)
Nebo pokud mate Perl, tak muzete pouzit jednoduchy
programek:
==== cut here ====
#! /usr/bin/perl
# slova.pl
# Spocte pocet vyskytu slov a vytiskne to od nejvyssiho vyskytu
# 2000 Ladislav Dobias, xdobiasl at fel.cvut.cz
use locale;
while (<>) {
chop;
# nahradime znaky, ktere nejsou [A-Za-z0-9_] mezerou:
s/\W+/ /g;
$_=lc;
split;
foreach $_ (@_) {
$i{$_}++;
}
}
foreach $_ (sort {$i{$b} <=> $i{$a} } keys %i) {
printf "%3i %s\n",$i{$_},$_;
}
==== cut here ====
Ale stejne si myslim, ze slova pro rejstrik je asi nejlepsi
oznacovat ihned, kdyz je pisete... (i kdyz to nevim z praxe,
protoze jsem jeste v zivote nedelal rejstrik :-)
Zdravi
Lada Dobias
--
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
,v
## ## ##### ##### Ladislav DOBIAS
## #### ## ## ##O-O## xdobiasl at fel.cvut.cz
## ## ## ## ## ## > ## <http://cs.felk.cvut.cz/~xdobiasl/>
## ###### ## ## ## v ## I'm a Ph.D. student on Czech
###### ## ## ##### ##### Technical University
Interests: AI, music, TeX, Unix
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
More information about the csTeX
mailing list