Нарисовал файл tt.pl :
--------
#!perl
# Perl test script which uses UCX:SERVER component to list loaded NLMs.
# v0.01 13-Aug-2002 (c) G.Knauf,
info@gknw.de
#
use Perl2UCS;
System("butil -STARTBU @SYS:\BACKUP\list");
sleep 2;
$nlm = "nwzip.nlm";
System("nwzip sbis_db_mkd");
$server = Perl2UCS->new("UCX:Server") or die "UCX:Server";
$mods = $server->{"Modules"};
$module = $mods->Element($nlm);
#$temp = $module->{"Loaded"};
# пока nwzip загружен ждем-с
while ($module->{"Loaded"})
{
sleep 2;
}
System("butil -ENDBU @SYS:\BACKUP\list /s");
sleep 2;
System("nwzip sbis_db_all");
-------
Запускаю perl tt.pl , а он мне :
Undefined subroutine &main::System called at tt.pl line 6.
Что ему в этой строке/System("butil -STARTBU @SYS:\BACKUP\list");/
не нравится?
Если заремить все строки , где System(), то работает.