Logfile schreibt alles ... soll es aber nicht .. - #73613 (Allgemeines zu Perl)

renee

2007-01-26 08:51

User since
2003-08-04
14371 Artikel
ModeratorIn

Das $count++ muss in den if-Block mit der "altersüberprüfung":
statt

Code: (dl )

$count++;
        if ($alter > 31) {      
            system("rm /var/spool/amavis/virusmails/test/".$_);      
#            print "del\n";    
        }

das hier

Code: (dl )

        if ($alter > 31) {      
            system("rm /var/spool/amavis/virusmails/test/".$_);     
            $count++; 
#            print "del\n";    
        }

Du solltest auch Perl-Funktionen verwenden wo es geh. Also aus:

Code: (dl )

            system("rm /var/spool/amavis/virusmails/test/".$_);

ein

Code: (dl )

            unlink '/var/spool/amavis/virusmails/test/'.$_;

(siehe <a href="//perldoc.perl.org/functions/unlink.html" target="_blank"><img alt="perldoc " src="/iB_html/non-cgi/Skin/SKIN-3/images/perldoc.gif" border="0"> -f unlink</a>)

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/