Questione : Perl - errore di bloccaggio da uscita

Ho uno scritto come sotto, lo scritto verifica una lista delle lime da CVS, che tutto funziona benissimo, il problema che ho sono sulla verifica degli errori voglio mettere in quando fa funzionare lo scritto (su un contenitore di solaris) ottengo l'uscita come esposizione sotto, in questo esempio per la verifica il numero 3 io ottengono un errore “non possono trovare - ignorato„. il

How può io blocca l'uscita in modo da posso stampare fuori un avvertimento dei miei propri e non includere quello ignorato nel mio conteggio, in modo da per questo esempio I avere 19 lime da essere controllo fuori, in modo da voglio fare un controllo all'estremità e se il conteggio non fa = 19 posso stampare fuori un messaggio, la parte che non posso ottenere sono come bloccare la linea di lima ignorata dal Output.


script PRODOTTO: sviluppo del

===================================================================
Checking fuori/indice-interface/help/alias.html
RCS:  ctory-interface/help/alias.html, v
VERS di /DATA/cvs/development/dire: il
count del *************** di 1.5
è: sviluppo di 1
===================================================================
Checking fuori/indice-interface/help/building-records.html
RCS:  ctory-interface/help/building-records.html, v
VERS di /DATA/cvs/development/dire: il
count del *************** di 1.5
è: verifica di 2
cvs: non può trovare il modulo “lo sviluppo/indice-interface/help/FAQ.html„ - il ignored
count è: sviluppo di 3
===================================================================
Checking fuori/indice-interface/help/faq-details.html
RCS:  ctory-interface/help/faq-details.html, v
VERS di /DATA/cvs/development/dire: il
count del *************** di 1.9
è: sviluppo del

===================================================================
Checking di 4
==================================================================

....... fuori/indice-interface/index.html
RCS:  ctory-interface/index.html, v
VERS di /DATA/cvs/development/dire: il
count del *************** di 1.27
è: 19
files verificato è: 19


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



Thanks, class= > " libero " del
> " del codeSnippet " del class= del
class= " lineNumbers " del
class= del 
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:
># notpretty " del class= " del id= " codeSnippet817511 del 
) {
 se (/^development/) {
   chomp;
   $path=$_;
   $file=basename $_;
   sistema (“verifica dei cvs - p $path > $file \ n„);

$count ++;
qq della stampa {conteggio è: $count \ n};

 }
}

qq della stampa {lime verificate è: $count \ n};
class= del

Risposta : Perl - errore di bloccaggio da uscita

Realmente, sulla stampa sulla linea 39, dovrebbe probabilmente appena essere

@err della stampa se @err;

poiché non ho messo a nudo mai le nuove linee dall'uscita (per fare che potete aggiungere appena per allineare 37 “il miei @err = programma {chomp; grep del _ di $}… ").
Altre soluzioni  
 
programming4us programming4us