Kann eine Einrichtung, erläutert die unter den gegebenen Code-Zeilen Ich habe Schwierigkeiten zu verstehen ist,


my $ ErrorLog \u003d "/ var / log / controler.log";

& initLanguage ($ language);
& launchCbox ();
Unter launchCbox (

$ scr \u003d Term:: ScreenColor-> new;
$ scr-> clrscr ();
my ($ mode) \u003d @ _;
my $ error \u003d 0;
my $ cbox_x \u003d $ dog_x + 3;

my $ args;
my% box_args \u003d% ($ args [3]);
$ args .\u003d "-d", wenn $ (box_args "Debug");
$ args .\u003d "-l", wenn $ (box_args "log");
$ args .\u003d "-L". ($ box_args "Sprache") if ($ box_args "Sprache");

if ($ ne Modus "neu starten") ($ scr-> at ($ y_pos, 3) -> puts ($ x. "".. $ txth-> getText ( "5016"));)
else ($ $ \u003d y_pos dog_y_pos +3; $ scr-> at ($ dog_y_pos +3,3) -> puts ($ cbox_x.. "". $ txth-> getText ( "5016". "" x ($ status_bar_pos - (length ($ txth-> getText ( "5016")) +7 ))));)

if (! $ XWINDOW) ( "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;

)

Mit freundlichen Grüßen,
Raheel.

Tipp des Tages: "Mit [code] [/ code]-Tags (ohne die Leerzeichen), oder der" # "-Symbol in der erweiterten Editor, um Ihren Source-Liste oder besser lesbar für andere."

Das heißt, ich kann nur vermuten, was dieser Code kann tun, da sie in hohem Maße von globalen Variablen.

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;

}