Nicht Erklärbarer Compile Error - #73128 (Allgemeines zu Perl)

renee

2007-01-11 17:57

User since
2003-08-04
14371 Artikel
ModeratorIn

Mit

Code: (dl )

wrlog{
    my $msg        = shift;
    my $logfile    = shift;
    open LOG, ">>$logfile" or die "Konnte Logdatei nicht oeffnen";
    print LOG scalar(localtime(time)) . " : " . $msg . "\n";
    close LOG or die "Konnte Logdatei nicht schliessen";
}

Meinst Du sicherlich

Code: (dl )

sub wrlog{
    my $msg        = shift;
    my $logfile    = shift;
    open LOG, ">>$logfile" or die "Konnte Logdatei nicht oeffnen";
    print LOG scalar(localtime(time)) . " : " . $msg . "\n";
    close LOG or die "Konnte Logdatei nicht schliessen";
}

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/