Fråga : Perl - tillfångatagandefel från tillverkat

Jag har en skriva, som nedanfört, den skriva ska kontrollen en lista av sparar från CVS, som allt fungerar fint, problemet jag har är på kontrollera för fel, jag önskar att sätta i, när spring skriva (på en solaris boxas) som jag får tillverkat som den nedanföra showen, i detta exempel för kontroll numrerar 3, jag får ett fel ”inte kan finna - ignorerat”.

How kan I-tillfångatagandet tillverkat, så jag kan skriva ut ut en varning av mitt eget, och att inte inkludera den ignorerade i min räkning, så för detta exempel som jag har 19, sparar för att vara kontrollen ut, så jag önskar att göra en kontroll på avsluta, och, om räkningen inte gör = 19, jag kan skriva ut ut ett meddelande, delen jag inte kan få är hur till tillfångatagandet fodra av sparar ignorerat från den TILLVERKADE standarda Output.

script: utveckling för

===================================================================
Checking ut/arkiv-interface/help/alias.html
RCS:  /DATA/cvs/development/dire ctory-interface/help/alias.html, v
VERS: ***************
count för 1.5
är: utveckling för 1
===================================================================
Checking ut/arkiv-interface/help/building-records.html
RCS:  /DATA/cvs/development/dire ctory-interface/help/building-records.html, v
VERS: ***************
count för 1.5
är: kontroll för 2
cvs: kan inte finna enheten ”utveckling/arkivet-interface/help/FAQ.html” - ignored
count är: utveckling för 3
===================================================================
Checking ut/arkiv-interface/help/faq-details.html
RCS:  /DATA/cvs/development/dire ctory-interface/help/faq-details.html, v
VERS: ***************
count för 1.9
är: utveckling för

===================================================================
Checking för 4
==================================================================

....... ut/arkiv-interface/index.html
RCS:  /DATA/cvs/development/dire ctory-interface/index.html, v
VERS: ***************
count för 1.27
är: 19
files som ut kontrolleras, är: 19


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



Thanks, > för

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:

" codeBody " " ># för class= " för ) { om (/^development/) { segrare; $path=$_; $file=basename $_; system (”cvskontroll - p $path > $file \ n”); $count ++; tryckqq {räkningen är: $count \ n}; } } tryckqq {sparar kontrollerat ut är: $count \ n}; " klar "

Svar : Perl - tillfångatagandefel från tillverkat

Faktiskt på trycket on-line 39, det bör antagligen precis vara

tryck@err om @err;

(att göra, att du kan precis tillfoga för att fodra 37 ”min @err =, sedan jag rev aldrig av, newlinesna från tillverkad, kartlägga {segrare; grep för $-_}…”).