任意のコードを私は与えられたボディラインの下に理解する上での困難があると説明


私の$エラー\u003d "の/ var / log / controler.log " ;

＆ initLanguage （ $言語） ;
＆ launchCbox （ ） ;
サブlaunchCbox （

$ scr \u003d期間： ： ScreenColor - >新;
$ scr - > clrscr （ ） ;
私の（ $モード） \u003d @ _ ;
私の$エラー\u003d 0 ;
私の$ cbox_x \u003d $ dog_x + 3 ;

私の$ args ;
私％ box_args \u003d ％ （ $ args [ 3 ] ） ;
$ args .\u003d " - D "はbox_args場合、 $ （ " " ）デバッグ;
$ args .\u003d " - L "の場合、 $ box_args （ " " ）ログ;
$ args .\u003d " - L "を。 box_args $ （ "言語" ） $ box_args （ "言語" ） ;

もし（ $モード北東" " ） （ scr $再起動- > （ $ y_pos 、 3 ） - >を置く（ $ Xの" 。 " 。 $ txth - > gettextの（ " 5016 " ） ） ; ）
他y_pos \u003d $ （ $ dog_y_pos +3 ; $ scr - > （ $ dog_y_pos +3,3 ） - >を置く（ $ cbox_x 。 " 。 "です。 $ txth - > gettextの（ " 5016 " " " × （ $ status_bar_pos - （長さ（ $ txth - > gettextの（ " 5016 " ） ） +7 )))); ）

（ ！ $ xwindow ） （ `perlの 。 / cbox.pl 2 > >の/ var / log / $ args cbox.log > / dev/tty9 ` ; ）
他（ `perlの 。 / cbox.pl 2 > >の/ var / log / $ args cbox.log > / dev/pts/2 ` ; ）
$エラー？ ＆ printNOK ： &printOK;

）

くれぐれもよろしく、
Raheel 。

今日のヒント： "を使用して[コード] [ /コード]タグ（サンセリフのスペース） 、または高度なエディタでは、 ' ＃ '記号は、ソースを他のユーザーが読める以上のリストです。 "

それは、グローバル変数に大きく依存しており、私は、このコードが何をしているかもしれないが、推測できるという。

my $errorlog = "/var/log/controler.log";

&initLanguage($language); # I18N / L10N?
&launchCbox();

sub launchCbox {

    $scr = Term::ScreenColor->new; # Enable us to use pretty colors and
                                   # positioning on the terminal
    $scr->clrscr(); # Clear the screen
    my ($mode) = @_;
    my $error  = 0;
    my $cbox_x = $dog_x + 3; # Global. Source unknown. Meaning
                             # unknown.

    my $args;
    my %box_args = %{ $args[3] }; # Same as above
    $args .= "-d "                         if $box_args{"debug"};
    $args .= "-l "                         if $box_args{"log"};
    $args .= "-L " . $box_args{"language"} if $box_args{"language"};

    if ( $mode ne "restart" ) {
        
        # Print at line $y_pos, column 3 of the terminal the translation with
        # the key 5016 (whatever that is)
        $scr->at( $y_pos, 3 )->puts( $x . ". " . $txth->getText("5016") );
    }
    else {
        $y_pos = $dog_y_pos + 3; # Globals again
        $scr->at( $dog_y_pos + 3, 3 )->puts(
            $cbox_x . ". "
              . $txth->getText(
                "5016"
                  . " " x (
                    $status_bar_pos - ( length( $txth->getText("5016") ) + 7 )
                  )
              )
        ); # Write at position $dog_y_pos+3, 3 the content of $cbox_x,
           # the translation for key 5016, and a space (' ') times
           # the position of the status bar minus (about) the length of
           # text #5016
    }

    if ( !$xwindow ) { # If a xterm (or similar) is there, write to one
                       # hardcoded TTY, to another hardcoded TTY otherwise.
                       #Either way call cbox.pl
        `perl ./cbox.pl 2>>/var/log/cbox.log $args > /dev/tty9`;
    }
    else { `perl ./cbox.pl 2>>/var/log/cbox.log $args > /dev/pts/2`; }
    $error ? &printNOK : &printOK;

}