www.pudn.com > pwl_h410.zip > CREATVOC.PL

# Hi, All! It's just an example on "How to create the vocabulary file" 
# and "How to maintain the vocabulary files" ;-) Use the ActiveWare 
# Perl or something other to run it. Command line must contain vocabularyes 
# to concatenate them to stdout and text files to convert and glue them. 
# For instance: PERL.EXE CREATVOC.PL SOMEFILE.TXT ANOTHER.TXT >COOL.VCB 
 
# Здорова, All! Я решил включить в этот релиз программы утилиту для 
# управления словарями (создание из текстовых файлов, склейка и т.п.) 
# Используйте для запуска, например, ActiveWare Perl или что-либо еще, 
# скажем, так: PERL.EXE CREATVOC.PL SOMEFILE.TXT ANOTHER.TXT >COOL.VCB 
 
 
         ;;q#wow it works#;%-=();while(<>){chomp;y/a-z/A-Z/; 
         for(split/:|\;|\s|,|\.|\(|\)|\\|\/|\{|\}|\[|\]|\"/) 
         {$-{$_}++}}for(sort keys(%-)){$_.="\n";print}//;m## 
 
 
# How do You like it? 
# Ну как сила Перла? 
#                                    (C) 21-May-1999y by Hard Wisdom