Привет Все,
Я одна в странной проблемой Perl Скрипт. Ниже является содержание сценария я пытаюсь написать:

#! / USR / местное / BIN /Perl

моя $ module_list \u003d'';
моя @ running_module;
мои кол $ \u003d 0;
моя $ флаг \u003d 0;
моя ccprojecthome $ \u003d $ ENV () CCPROJECTHOME;
@ \u003d module_list `кота $ ccprojecthome / продукта / $ ENV () CCPROD / $ ENV () CCPRODVER / конфиг / abp_ $ ENV (CCPRODVER) _modbo.dat | вырежьте-F2-D" "`;
Размер $ \u003d @ module_list;
Версия для печати "\ N Первый элемент $ moddule_list [0] \ N";
Версия для печати "\ N Длина массива размером $ \ N";
@ \u003d running_proj_list `кота $ ccprojecthome/module/ac/v650/config/module_profile | grep-V Прог | grep-V Базы | светотеневую f1-D" "`;
foreach $ MD (@ module_list)
(
Версия для печати "\ N модуля $ MD \ N";
@ running_proj_list \u003d `/ USR / BIN / кошку $ ccprojecthome / модуль / $ MD / $ ENV () CCPRODVER / confing / module_profile | grep-V Прог | grep-V
Базы | светотеневую f1-D "" `;
если ($?! \u003d 0)
(
Версия для печати "командования" не \ N ";
выход 1;
)
)
Версия для печати "\ N Список проектов \ N";

Версия для печати "@ running_proj_list";

Теперь проблема заключается в том, что, когда я прокомментировать всего за цикл и запустить скрипт он будет работать правильно, но в петлю она не работает, и предоставления ошибке
Пожалуйста, помогите мне выйти из этой проблемы.