#!/usr/bin/perl


#
# autor:Miroslaw.Prywata@fuw.edu.pl
#
# Skrypt konfiguracyjny --- pozwala stworzyć słownik czytając ustawienia z
# pliku slowniki.cfg
#
#  wersja: 990810
#



$configplik = "slowniki.cfg";

open (CONFIG,"<$configplik" )
        or die "Nie mogłem otworzyć pliku \n$configplik\n";

while (<CONFIG>){
        next if /^#/;
        next if/^\s*$/;
        if(/SŁOWNIKI FACHOWE:/){
                $k = "fachowe\/"
        }
        if(/X\s+(.*)$/){
                push @SL, "$k$1";
        }
    }
close(CONFIG);
print "Zostały wybrane następujące słowniki:\n";
for $S (@SL){
        print "$S\n";
        system "cat $S >>polish.dic";
        }