/
MadDAD
/
alterplast
Обзор
Документация
Войти
/
MadDAD
/
alterplast
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
OpenConf_Scripts/CodeWorks/CodeIns.pl
28 строк
435 B
trdm
24 мар 2017, 12:42
24 мар 2017, 12:42
988c847
Код
Авторство
О чём код?
$ENGINE PerlScript $NAME CodeIns use CodeWorks; sub CodeIns($$$) { my $Text = shift; my $ObjName = shift; my $pattern_fname = shift; @CodeWorks::lines = split(/\r\n/, $Text, -1); if( open CODE, "<$pattern_fname" ) { $code = join("", (<CODE>)); close CODE; eval $code; $Text = join("\r\n", @CodeWorks::lines); } else { Message("��� ������� $pattern_fname"); } return $Text; }