#!/usr/bin/perl

use strict;
use warnings;
use Tk::Text;
use Tk;

my $mw = tkinit;
my $text = $mw->Text()->pack;

$text->insert('end','Dies ist ein roter Test' );
$text->tagAdd('red_text',1.13,1.18);

$text->tagConfigure('red_text', -foreground => 'red');

MainLoop;

$text->tagAdd('red_text',1.13,1.18);

# Konfiguration für die Anzeige der Logs.
my %dateieinstellungen = (
    'absoluter_dateiname.log' => {
        myfunc => sub{
            my $zeile = shift; # die gelesene Zeile
            my $textw = shift; # Text-Widget

            # Timestampd und dergleichen entfernen
            $zeile =~ s/^\[.+\]//;

            # Zeilen aufteilen in Fehlermeldung und Fehlerquelle, und umbrechen
            $zeile =~ s/\, (referer\: http\:\/\/)/\n\t$1/;

            # Fehlermeldung rot markieren.
            # ???

            return $zeile;
        },
    },
);

#!/usr/bin/perl

use strict;
use warnings;
use Tk::Text;
use Tk;

my $mw = tkinit;
my $text = $mw->Text()->pack;

my $line = 0;

while( my $inhalt = <DATA> ){
    $text->insert('end',$inhalt );
    ++$line;
    
    if( $inhalt =~ /^Fehler:/ ){
        $text->tagAdd('red_text',$line . ".0" , $line . "." . length $inhalt);
        $text->tagConfigure('red_text', -foreground => 'red');
    }

}


MainLoop;

__DATA__
Dies ist ein Test!
Fehler: Laeuft nicht
Eine Zeile dazwischen.
Noch eine Zeile
Fehler: fehlerhafte Zeile
Fehler: noch ein Fehler
Alles ok!

$text->insert('end',$line,'red_text');