Lehet bármilyen szervezet kifejti az alapján megadott sornyi kódot i nehezen érti meg,


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

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

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

my $ args;
Saját box_args% \u003d% ($ args [3]);
$ args .\u003d "d" ha $ box_args ( "debug");
$ args .\u003d "-l" ha $ box_args ( "log");
$ args .\u003d "L". $ box_args ( "nyelvet") (if $ box_args "nyelv");

if ($ mode ne "restart") ($ scr-> a ($ y_pos, 3) -> puts ($ x. ".. $ txth-> gettext (" 5016 "));)
else ($ y_pos \u003d $ dog_y_pos 3 $ scr-> a ($ dog_y_pos +3,3) -> puts ($ cbox_x... "$ txth-> gettext (" 5016 "." x ($ status_bar_pos - (hossz ($ 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;

)

Kindest Regards,
Raheel.