Вопрос : Perl - ошибка захвата от выхода

Я имею сценарий как ниже, сценарий будет проверка список архивов от CVS, которое все работает отлично, проблема, котор я имею нахожусь на проверке погрешностей я хочу положить в, сценарий (на коробке соляриса) я получаю выход как выставка под, в этом примере для проверки 3 я получают ошибку «не могут найти - после того как они проигнорированы».

How может мной захватывает выход поэтому я могу напечатать вне предупреждение моих и не включить проигнорированное одно в мой отсчет, поэтому для этого примера, котор я имею 19 архивов, котор нужно быть заканчивать связь, поэтому я хочу сделать проверку в конце и если отсчет не делает = 19, то я могу напечатать вне сообщение, часть я не могу получить как захватить проигнорированную линию архива от стандартного ОГО Output.


script: развитие

===================================================================
Checking вне/директория-interface/help/alias.html
RCS:  ctory-interface/help/alias.html /DATA/cvs/development/dire, v
VERS:
count *************** 1.5
является следующим: развитие 1
===================================================================
Checking вне/директория-interface/help/building-records.html
RCS:  ctory-interface/help/building-records.html /DATA/cvs/development/dire, v
VERS:
count *************** 1.5
является следующим: проверка 2
cvs: не смогите найти модуль «развитие/директорию-interface/help/FAQ.html» - ignored
count является следующим: развитие 3
===================================================================
Checking вне/директория-interface/help/faq-details.html
RCS:  ctory-interface/help/faq-details.html /DATA/cvs/development/dire, v
VERS:
count *************** 1.9
является следующим: развитие

===================================================================
Checking 4
==================================================================

....... вне/директория-interface/index.html
RCS:  ctory-interface/index.html /DATA/cvs/development/dire, v
VERS:
count *************** 1.27
является следующим: 19
files проверенное вне является следующим: 19


------------------------------------------------



Thanks, class= " ясное " >

> " codeSnippet " class=

class= " lineNumbers "

class=

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42:

># " class= " id= " codeSnippet817511 ) { если (/^development/) {, то chomp; $path=$_; $file=basename $_; система («проверка cvs - p $path > $file \ n»); $count ++; qq печати {отсчет является следующим: $count \ n}; } } qq печати {архивы проверенные вне является следующим: $count \ n};

class=

Ответ : Perl - ошибка захвата от выхода

Фактическ, на печати он-лайн 39, оно должно вероятно как раз быть

@err печати если @err;

в виду того что я никогда не обнажал newlines от выхода (сделать что вы можете как раз добавить для того чтобы выровнять 37 «мои @err = карта {chomp; grep _ $}… ").