Vraag : Perl - vang fout van output

Ik heb een manuscript zoals hieronder, het manuscript controle een lijst van dossiers van CVS zal, dat al de werkenboete, het probleem dat ik op de fout heb gehad is het controleren wil ik aanbrengen, wanneer het runnen van het manuscript (op een solarisdoos) ik krijg output aangezien tonen hieronder, in dit voorbeeld voor controle nummer 3 ik krijg een fout „kan niet vinden - genegeerd“.

How kan ik de output vangen zodat kan ik een waarschuwing van mijn uitprinten en genegeerd niet omvatten in mijn telling, zodat voor dit voorbeeld 1 hebben 19 dossiers om uit controle te zijn, zodat wil ik een controle aan het eind doen en als de telling niet = 19 die kan ik een bericht, het deel uitprinten ik niet kan krijgen ben hoe te de lijn van dossier te vangen van de StandaardOUTPUT Output.


script: uit ontwikkeling

===================================================================
Checking/folder -folder-interface/help/alias.html
RCS:  /DATA/cvs/development/dire ctory-interface/help/alias.html, v
VERS: 1.5
***************
count is: 1
===================================================================
Checking/folder -folder-interface/help/building-records.html
RCS:  /DATA/cvs/development/dire ctory-interface/help/building-records.html, v
VERS: 1.5
***************
count is: 2
cvscontrole: kan module „ontwikkeling/geen folder -folder-interface/help/FAQ.html“ vinden - ignored
count: 3
===================================================================
Checking/folder -folder-interface/help/faq-details.html
RCS:  /DATA/cvs/development/dire ctory-interface/help/faq-details.html, v
VERS: 1.9
***************
count is: 4
==================================================================

.......

===================================================================
Checking/folder -folder-interface/index.html
RCS:  /DATA/cvs/development/dire ctory-interface/index.html, v
VERS: 1.27
***************
count is: gecontroleerde 19
files is: 19


--



Thanks,
" codeBody " 
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:

#! /usr/bin/perl
gebruik: strikt;
gebruiks Dossier:: Basename;

mijn @CVSfiles = qw (
ontwikkeling/folder-interface/hulp/alias.html
ontwikkeling/folder-interface/hulp/gebouw-records.html
ontwikkeling/folder-interface/help/FAQ.html
ontwikkeling/folder-interface/hulp/faq-details.html
ontwikkeling/folder-interface/hulp/faq-manager-bevordering-dn-changes.html
ontwikkeling/folder-interface/hulp/faq-moc.html
ontwikkeling/folder-interface/help/LDAP_to_AD_FAQs.html
ontwikkeling/folder-interface/hulp/password.html
ontwikkeling/folder-interface/hulp/images/LDAP_to_AD.gif
ontwikkeling/folder-interface/hulp/beelden/gal-01.gif
ontwikkeling/folder-interface/hulp/beelden/gal-02.gif
ontwikkeling/folder-interface/hulp/beelden/gal-03.gif
ontwikkeling/folder-interface/hulp/beelden/gal-04.gif
ontwikkeling/folder-interface/hulp/beelden/gal-05.gif
ontwikkeling/folder-interface/hulp/beelden/gal-06.gif
ontwikkeling/folder-interface/hulp/beelden/gal-07.gif
ontwikkeling/folder-interface/hulp/beelden/gal-08.gif
ontwikkeling/folder-interface/query.html
ontwikkeling/folder-interface/index.html
);

mijn $count = 0;

terwijl (<@CVSfiles>) {
 als (/^development/) {
   chomp;
   $path=$_;
   $file=basename $_;
   systeem („cvs controle - p $path > $file \ n“);

$count ++;
druk qq {de telling is: $count \ n};

 }
}

druk qq {gecontroleerde de dossiers is: $count \ n};

Antwoord : Perl - vang fout van output

Eigenlijk, op druk online 39, zou het waarschijnlijk enkel moeten zijn

druk @err als @err;

aangezien ik nooit van newlines van de output ontdeed (om te doen dat u enkel aan mijn lijn 37 „kunt toevoegen @err = kaart {chomp; $ _} grep…“).
Andere oplossingen  
 
programming4us programming4us