You are here: Wissensbasis Web>UtilFaqInclude>FaqAllgemeinesWarnungenAbfangen (2005-05-09)

Wie zähle ich Warnungen und gebe sie danach aus?

Inhalt:

Warum sollte ich Warnungen abfangen?

Dafür gibt es mehrere Gründe. Zum einen möchte man vielleicht die Anzahl der Warnungen abfragen, die das Skript erzeugt oder ich möchte bestimmte Auswertungen mit den Warnungen machen.

Und wie funktioniert es jetzt?

Das ist ganz einfach...
Der folgende Code fängt die Warnungen ab, zählt sie und gibt am Schluss die Warnungen aus, damit der Entwickler doch noch sieht, was falsch gelaufen ist wink 
#! /usr/bin/perl

use strict;
use warnings;

my $counter = 0;
my @warnings;
$SIG{__WARN__} = \&count;

my $string;

for(0..10){
  print $string,"\n";
}

print $counter," Warnungen\n";
print $_,"\n" for(@warnings);

sub count{
  $counter++;
  push(@warnings,@_);
}

Ergänzungen, Kommentare

Kommentare werden am besten in folgender Form vorgenommen, damit sie im Inhaltsverzeichnis angezeigt werden (natürlich ohne das <verbatim>): 
---+++ Main.??? - 14 Jul 2003 - Betreff

UtilFaqSubForm edit

Titel Wie zähle ich Warnungen und gebe sie danach aus?
Autor ReneeBaecker
Bereich FaqAllgemeines
Edit | Attach | Print version | History: r2 < r1 | Backlinks | View wiki text | Edit wiki text | More topic actions
Topic revision: r1 - 2005-05-09 - 13:58:21 - ReneeBaecker
 
Bitte die NutzungsBedingungen beachten.
Bei Vorschlägen, Anfragen oder Problemen mit dem PerlCommunityWiki bitten wir um WebBottomBarExample">Rückmeldung.