Понедельник (05/14/12)

/dev/pts/1
01:31:27
#lilalo.conf [----] 0 L:[ 1+ 0 1/ 1] *(0 / 0b)= <EOF>

01:31:27
#lilalo.conf [----] 0 L:[ 1+ 0 1/ 1] *(0 / 0b)= <EOF>

01:31:27
#35 0x23

01:31:27
#lilalo.conf [----] 0 L:[ 1+ 0 1/ 1] *(0 / 0b)= <EOF>

01:31:27
# Left File Command Options Right
l3config.pm        [----]  0 L:[163+10 173/184] *(5252/5579b)= .   9 0x09
 <┠           my ($var, $val) =  split /\s*=\s*/, $_, 2;             v>┐┌<─/etc/lilalo                                                       v>
                $var =~ s/\s*//;
                $config->{$var} = $val;
        }                                                                                                                                       02
        close(CONFIG);                                                   1
                                                                         1 1 ▒│                                                │       ┠             ▒
}                                                                        1
                                                                         7
    "start_from_command" => "0",                                         1
sub init_config                                                          1
        my %argv_config;                                                 1
{ b read_config_file                                                     4 ▒
        my %file_config;                                                 1
        read_config_file(\%file_config, $User_Config_File);              1
        GetOptions(\%argv_config, map "$_=s", keys %Config);;            0
        %Config = (%Config, %file_config, %argv_config);                 8
    for my $key (keys %Config) {                                         9
        utf8::decode($Config{$key});
    }
                s/#.*//;
                next if /^\s*$/;
                my ($var, $val) =  split /\s*=\s*/, $_, 2;
         Save   3Mark   4Replac          Move   7Search