Funktion "deprecated" nach Perl-Update auf Server?

[Siechfred]

Guten Abend Richard,

oder einfach
unless( @logentries ){

Klingt logisch, werde ich so umsetzen.

$_ =~ s/[\n\r]//g;
Siehe perldoc perlport. Dieser Ausdruck ist maSgW* falsch, denn du wllst \012 und \015 verwenden.

An dieser Stelle funktioniert das Script imho noch.

($ip, $time) = split(/|/, $_);
    if ($ip eq $newaddr) {
      flock(LOG,8);
      close(LOG);
Nein, böse.

[pref:t=49582&m=271151] *SCNR*

Erstens willst du die Fcntl ':flock' Konstanten verwenden, damit dein Script wenigstens Portablität heuchelt, zweitens willst du nicht explizit unlocken, wenn du _direkt danach_ close() verwendest.
perldoc -f flock

Ich kenne es nicht anders, werde mir die Doku zu flock ansehen.

Merke: Jedes Perl-Programm beginnt mit
#!/usr/bin/perl
use strict;
use warnings;
Wobei die erste Zeile variieren kann, je nachdem, wo perl liegt. Bei CGI-Programmen sollte sie etwa so aussehen:
#!/usr/bin/perl -T

Mache ich wirklich einen so blöden Eindruck?
;-)

Viele Grüße
Torsten