Frage : Perl - Sicherungsstörung vom Ausgang

Ich habe einen Index, wie unten, der Index wird Prüfung eine Liste der Akten von CVS, das aller ist, das Problem, das habe ich bin auf der Fehlerprüfung ich in einsetzen möchte, wenn ich den Index (auf einem Solarisenkasten) ich Ausgang als Erscheinen unter erhalte, in diesem Beispiel für Prüfung Nr. laufen lasse, 3 ich eine Störung „können nicht finden - ignoriert“ erhalten.

How kann ich gefangennehmen den Ausgang, also kann ich eine Warnung von meinen Selbst ausdrucken und das mit.einschließen, das nicht in meinem Zählimpuls ignoriert, also für dieses Beispiel I 19 Akten, heraus haben, zum Überprüfung zu sein, also möchte ich eine Überprüfung am Ende tun und wenn Zählimpuls nicht = 19 tut, kann ich eine Mitteilung, das Teil ausdrucken, das ich nicht erhalten kann bin, wie man die Linie der Akte ignoriert vom StandardOutput.


script OUTPUT gefangennimmt:

===================================================================
Checking heraus Entwicklung/Verzeichnis-interface/help/alias.html
RCS:  /DATA/cvs/development/dire ctory-interface/help/alias.html, v
VERS: 1.5
***************
count ist: 1
===================================================================
Checking heraus Entwicklung/Verzeichnis-interface/help/building-records.html
RCS:  /DATA/cvs/development/dire ctory-interface/help/building-records.html, v
VERS: 1.5
***************
count ist: 2
cvs Prüfung: kann Modul „Entwicklung/Verzeichnis-interface/help/FAQ.html“ nicht finden - ignored
count ist: 3
===================================================================
Checking heraus Entwicklung/Verzeichnis-interface/help/faq-details.html
RCS:  /DATA/cvs/development/dire ctory-interface/help/faq-details.html, v
VERS: 1.9
***************
count ist: 4
==================================================================

.......

===================================================================
Checking heraus Entwicklung/Verzeichnis-interface/index.html
RCS:  /DATA/cvs/development/dire ctory-interface/index.html, v
VERS: 1.27
***************
count ist: 19
files, das heraus überprüft, ist: 19


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



Thanks, 
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:
6:
37:
38:
39:
40:
41:
42:

#! /usr/bin/perl
Gebrauch: streng;
Gebrauch Akte:: Basename;

meine @CVSfiles = qw (
Entwicklung/Verzeichnisschnittstelle/Hilfe/alias.html
Entwicklung/Verzeichnisschnittstelle/Hilfe/building-records.html
Entwicklung/Verzeichnisschnittstelle/help/FAQ.html
Entwicklung/Verzeichnisschnittstelle/Hilfe/faq-details.html
Entwicklung/Verzeichnisschnittstelle/Hilfe/faq-manager-promotion-dn-changes.html
Entwicklung/Verzeichnisschnittstelle/Hilfe/faq-moc.html
Entwicklung/Verzeichnisschnittstelle/help/LDAP_to_AD_FAQs.html
Entwicklung/Verzeichnisschnittstelle/Hilfe/password.html
Entwicklung/Verzeichnisschnittstelle/Hilfe/images/LDAP_to_AD.gif
Entwicklung/Verzeichnisschnittstelle/Hilfe/Bilder/gal-01.gif
Entwicklung/Verzeichnisschnittstelle/Hilfe/Bilder/gal-02.gif
Entwicklung/Verzeichnisschnittstelle/Hilfe/Bilder/gal-03.gif
Entwicklung/Verzeichnisschnittstelle/Hilfe/Bilder/gal-04.gif
Entwicklung/Verzeichnisschnittstelle/Hilfe/Bilder/gal-05.gif
Entwicklung/Verzeichnisschnittstelle/Hilfe/Bilder/gal-06.gif
Entwicklung/Verzeichnisschnittstelle/Hilfe/Bilder/gal-07.gif
Entwicklung/Verzeichnisschnittstelle/Hilfe/Bilder/gal-08.gif
Entwicklung/Verzeichnisschnittstelle/query.html
Entwicklung/Verzeichnisschnittstelle/index.html
);

mein $count = 0;

während (<@CVSfiles>) {
 wenn (/^development/) {
   chomp;
   $path=$_;
   $file=basename $_;
   System („cvs Prüfung - p $path > $file \ n“);

$count ++;
Druck qq {Zählimpuls ist: $count \ n};

 }
}

Druck qq {die Akten, die heraus überprüft, ist: $count \ n};

Antwort : Perl - Sicherungsstörung vom Ausgang

Wirklich auf dem Druck auf Linie 39, sollte es vermutlich gerade sein

Druck @err wenn @err;

da ich nie die Neuzeilen vom Ausgang abstreifte (tun, dass Sie gerade hinzufügen können, um 37 zu zeichnen „mein @err = Diagramm {chomp; $ _} Grep… ").
Weitere Lösungen  
 
programming4us programming4us