#!/usr/bin/perl -w
use strict;
use warnings;
use IO::Handle;
STDOUT -> autoflush (1);
use Fcntl qw(:DEFAULT :flock);

my $log = 'testrw_log.txt';

if (sysopen (my $file,$log,O_WRONLY|O_TRUNC|O_CREAT)) {
    $file -> autoflush (1);
    my $z = 0;
    while (1==1) {
        $z ++;
        print $file "Test $z\n";
        print STDOUT "Habe Zeile $z geschrieben\n";
        sleep 1;
    }
}
else { print "Fehler $!\n"; }

#!/usr/bin/perl -w
use strict;
use warnings;
use IO::Handle;
STDOUT -> autoflush (1);
use Fcntl qw(:DEFAULT :flock);

my $log = 'testrw_log.txt';

my $lzeile = 0; # dieser Wert wird vom Client JS/Ajax mitgebracht
while (1==1) {
    if (sysopen (my $file,$log,O_RDONLY)) {
        my @zeilen = <$file>;
        close ($file);
        if (scalar @zeilen > $lzeile) {
            print "Neu:\n" . join ("",@zeilen[$lzeile..scalar @zeilen - 1]) . "\n";
            $lzeile = scalar @zeilen;
            # an dieser Stelle wird dem Client der aktuelle Text sowie die letzte Nummer $lzeile übergeben
        }
        else { print "nichts neues, warte...\n"; }
    }
    else { print "Fehler $!\n"; }
    sleep 1;
}