Cuestión : Perl - error de la captura de la salida

Tengo una escritura como abajo, la escritura comprobación una lista de archivos de CVS, que toda trabaja muy bien, el problema que tengo estoy en el repaso de las faltas quiero poner en, al funcionar con la escritura (en una caja del solaris) consigo salida como demostración debajo, en este ejemplo para la comprobación número 3 yo consiguen un error “no pueden encontrar - no hecho caso”. el

How puede yo captura la salida así que puedo imprimir una advertencia mis los propios y no incluir el que está no hecho caso en mi cuenta, así que para este ejemplo 1 tener 19 archivos a ser cheque hacia fuera, así que quiero hacer un cheque en el extremo y si no lo hace la cuenta = 19 puedo imprimir un mensaje, la pieza que no puedo conseguir soy cómo capturar la línea de archivo no hecha caso del Output.


script HECHO SALIR: desarrollo del

===================================================================
Checking hacia fuera/directorio-interface/help/alias.html
RCS:  ctory-interface/help/alias.html, v
VERS de /DATA/cvs/development/dire: el
count del *************** de 1.5
es: desarrollo de 1
===================================================================
Checking hacia fuera/directorio-interface/help/building-records.html
RCS:  ctory-interface/help/building-records.html, v
VERS de /DATA/cvs/development/dire: el
count del *************** de 1.5
es: comprobación de 2
cvs: no puede encontrar el módulo “desarrollo/directorio-interface/help/FAQ.html” - el ignored
count es: desarrollo de 3
===================================================================
Checking hacia fuera/directorio-interface/help/faq-details.html
RCS:  ctory-interface/help/faq-details.html, v
VERS de /DATA/cvs/development/dire: el
count del *************** de 1.9
es: desarrollo del

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

....... hacia fuera/directorio-interface/index.html
RCS:  ctory-interface/index.html, v
VERS de /DATA/cvs/development/dire: el
count del *************** de 1.27
es: 19
files comprobado hacia fuera es: 19


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



Thanks, class= > " claro " 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 
) {
 si (/^development/) {
   chomp;
   $path=$_;
   $file=basename $_;
   sistema (“comprobación de los cvs - p $path > $file \ n”);

$count ++;
qq de la impresión {la cuenta es: $count \ n};

 }
}

qq de la impresión {los archivos comprobados hacia fuera son: $count \ n};
class= del

Respuesta : Perl - error de la captura de la salida

Realmente, en la impresión en la línea 39, debe probablemente apenas estar

@err de la impresión si @err;

puesto que nunca pelé los newlines de la salida (hacer que usted puede apenas agregar para alinear 37 “mi @err = mapa {chomp; grep del _ de $}… ").
Otras soluciones  
 
programming4us programming4us