Может ли какой-либо орган объясняет при заданных строк кода, и испытывают трудности в понимании его,


моя $ errorlog \u003d "/ VAR / Журнал / controler.log";

И initLanguage ($ языке);
И launchCbox ();
к югу launchCbox (

$ SCR \u003d Срок:: ScreenColor-> New;
$ SCR-> clrscr ();
мое ($ режиме) \u003d @ _;
моя ошибка $ \u003d 0;
моя cbox_x $ \u003d $ dog_x + 3;

$ мои аргументы;
моя box_args% \u003d% ($ аргумент [3]);
$ аргументы .\u003d "-D", если $ box_args ( "отладочной");
.\u003d $ аргументы "-L", если $ box_args ( "журнала");
.\u003d $ аргументы "-L". box_args $ ( "язык"), если $ box_args ( "язык");

если ($ режиме NE "перезагрузить") ($ 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". "" X ($ status_bar_pos - (длина ($ txth-> getText ( "5016")) 7 ))));)

если (! $ XWindow) ( `Perl . / cbox.pl 2>> / VAR / Журнал / cbox.log $ аргументы> / dev/tty9 `;)
еще ( `Perl . / cbox.pl 2>> / VAR / Журнал / cbox.log $ аргументы> / dev/pts/2 `;)
$ ошибка? И printNOK: &printOK;

)

Kindest С уважением,
Raheel.