Puis tout organisme explique le titre de lignes de code donné i ont des difficultés à comprendre,


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

initLanguage & ($ langue);
& launchCbox ();
sous launchCbox (

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

my $ args;
mon box_args% \u003d% ($ args [3]);
$ args .\u003d "-d" (if $ box_args "debug");
$ args .\u003d "-l" (if $ box_args "log");
$ args .\u003d "-L". box_args $ ( "langue") (if $ box_args "langue");

if ($ mode ne "restart") ($ scr-> à ($ y_pos, 3) -> place ($ x. "".. $ txth-> gettext ( "5016"));)
else ($ y_pos \u003d dog_y_pos $ 3 $ scr-> à ($ dog_y_pos +3,3) -> place ($ 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 »;)
$ erreur? & printNOK: &printOK;

)

Bien amicalement,
Raheel.