Pergunta : Perl - erro da captação da saída

Eu tenho um certificado como abaixo, o certificado verificação geral uma lista de limas de CVS, de que tudo trabalha muito bem, o problema que eu tenho estou na verificação de erros eu quero põr em, ao funcionar o certificado (em uma caixa dos solaris) eu começ a saída como a mostra abaixo, neste exemplo para a verificação geral número 3 mim começ um erro “não podem encontrar - ignorado”. o

How pode mim captura a saída assim que eu posso imprimir para fora um aviso do meus próprios e não incluir esse ignorado em minha contagem, assim que para este exemplo I ter 19 limas a ser verificação para fora, assim que eu quero fazer uma verificação na extremidade e se a contagem não faz = 19 eu posso imprimir para fora uma mensagem, a peça que eu não posso começ sou como capturar a linha de lima ignorada do Output.


script OUTPUT: desenvolvimento do

===================================================================
Checking para fora/diretório-interface/help/alias.html
RCS:  ctory-interface/help/alias.html de /DATA/cvs/development/dire, v
VERS: o
count do *************** de 1.5
é: desenvolvimento de 1
===================================================================
Checking para fora/diretório-interface/help/building-records.html
RCS:  ctory-interface/help/building-records.html de /DATA/cvs/development/dire, v
VERS: o
count do *************** de 1.5
é: verificação geral de 2
cvs: não pode encontrar o módulo “desenvolvimento/diretório-interface/help/FAQ.html” - o ignored
count é: desenvolvimento de 3
===================================================================
Checking para fora/diretório-interface/help/faq-details.html
RCS:  ctory-interface/help/faq-details.html de /DATA/cvs/development/dire, v
VERS: o
count do *************** de 1.9
é: desenvolvimento do

===================================================================
Checking de 4
==================================================================

....... para fora/diretório-interface/index.html
RCS:  ctory-interface/index.html de /DATA/cvs/development/dire, v
VERS: o
count do *************** de 1.27
é: 19
files verific para fora é: 19


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



Thanks, class= > " desobstruído " do
> do " codeSnippet " do class= do
class= " lineNumbers " do
class= do 
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 " do class= " do id= " codeSnippet817511 do 
) {
 se (/^development/) {
   chomp;
   $path=$_;
   $file=basename $_;
   sistema (dos “verificação geral cvs - p $path > $file \ n”);

$count ++;
qq da cópia {a contagem é: $count \ n};

 }
}

qq da cópia {as limas verific para fora são: $count \ n};
class= do

Resposta : Perl - erro da captação da saída

Realmente, na cópia na linha 39, deve provavelmente apenas ser

@err da cópia se @err;

desde que eu nunca descasquei os newlines da saída (para fazer que você pode apenas adicionar para alinhar 37 “meus @err = mapa {chomp; grep do _ de $}… ").
Outras soluções  
 
programming4us programming4us