Dobre nqma da q prodyljavame.Iskam samo da poso4a za posledno mqstoto ot kadeto si4ko se skapva kogato se povika ot &rehashing();
### sub scanconfig {
=> open(CONF, $conffile) || die "Can't open configuration file!\n";
=> while (chomp ($_ = <CONF>)) {
##last if /^\s*1;\s*$/;
##next if /^$/;
## next if /^#/;
##if ($_ =~ /^\s*\$(.+?)\s*=\s*(?!\\)["']?(.+?)(?!\\)['"]?;\s*$/) {
##$nick = .........
Zna4i redyt na koito se otvarq config-a (s 4ervenata strelka) se izpylnqva,a ot sledvashtiqt red (sinqta strelka) nadolu go preska4a,dori cikylyt while ne se izpylnqva,a tam nqma promenliva zq obqvqvane
Ako ne iska nikoi da ne otgovarq,za da ne stavat izlishni drazgi.

Съдържаниет е скрито
Влезте за да го видите