01:30:59
#l3config.pm [----] 0 L:[ 1+ 3 4/184] *(29 /5579b)= u 117 0x75
package l3config;               148+ 4 152        4948         .  10 0x0A
    "year"              =>  "2006",                              ÑÑÑÐ°Ð¼
    "commands_to_show_at_a_go" => "100",
     show_host"             no",
    "start_from_command" => "0",un",
# Ð¤                 ORT                                                        ÐµÑÐ²Ð°ÑÐµÐ½Ð½ÑÑ ÐºÐ¾Ð¼Ð°Ð½Ð´
);                    nd                                      ²Ð°ÑÐ¸Ð°Ð½ÑÑ:
sub read_config_file    => "class",         # ÐÐ¼Ñ ÑÐ°Ð¹Ð»Ð° ÐºÐ»Ð°ÑÑÐ°
        my $config = $_[0];                                    »Ð° ÐºÐ»Ð°ÑÑÐ°
{       my $filename = $_[1];
        open(CONFIG, "$filename")
                or return;
# Ð    while (<CONFIG>) {            ¾Ð³ÑÐ°Ð¼Ð¼Ñ
        chomp;                            h/id_dsa.pub",
#"l3            s/#.*//;
    "lmssh"     next if /^\s*$/;-ssh",
                my ($var, $val) =  split /\s*=\s*/, $_, 2;
# Ð            $var =~ s/\s*//;
                $config->{$var} = $val;
        }
        close(CONFIG);
                                                                 ÑÑÑÐ°Ð¼
    "year"              =>  "2006",                              ÑÑÑÐ°Ð¼
Понедельник (05/14/12)
