[PERL] Carpout fouten negeren.

[Daniel304]

Ik heb een best ingewikkeld script geschreven en wilde voorkomen dat de layout verdingest wordt door waarschuwing of eventuele foutmeldingen dus gebruik ik een log file dat ik met carpout beschrijf. standaard sub

code:

BEGIN {
    use CGI::Carp qw(carpout);
    open(LOG, ">>support.log")
        or die "Unable to append to support.log: $!\n";
    print LOG "$ENV{'REMOTE_ADDR'}\n";
    carpout(*LOG);
}

Dit werkt perfect.
Het script van mij doet ook name lookups en queries. sommige Queries die geven niets terug (dit moet ook) hier wordt echter wel een log van gemaakt. is er een manier om deze regels te negeren ?!?

[Juup]

Check zelf even of de string die de query returned leeg is of niet. Sim-pel

code:

my $returnstring = QUERY_BLAAT($Whatever);
if ($returnstring) Carp $returnsytring;