HList wie tail -f: Immer letzten Record folgen (Graphische Oberflächen)

format_c

2003-09-02 18:18

User since
2003-08-04
1706 Artikel
HausmeisterIn

Hi.
Ich habe eine HList.
in der sich ziemlich schnell ziemlich viel Daten sammeln.

Am interessantesten ist eigendlich der letzte Datensatz.
Gibt es eine Möglichkeit, mit HList das Verhalten wie tail -f hinzubekommen?

Gruß Alex

Effizente Linuxshell

snadra

2003-09-02 18:26

User since
2003-08-11
265 Artikel
BenutzerIn

Entweder über system() tail -f ausführen, oder die Datei regelmäßig in ein array einlesen, dann reverse() nutzen, oder einfach die Größe des arrays herausfinden #$array oder @array, und die letzten Einträge hinschreiben...

http://hamburg.pm.org
jeden 2. mittwoch im monat
--
#!/usr/bin/perl -w
$l=join('',map chr,(116,110,105,114,112))if$^T;
!!$$?@_=qw(Jhfg Aabgure Prey Hnpxre):$l=1;
for(@_){eval reverse($l)."'"._(_(_($_))).' \''}
sub _{$_=~y+a-z+n-za-m+and pop}

format_c

2003-09-02 18:42

User since
2003-08-04
1706 Artikel
HausmeisterIn

MMhhh.
Sorry hab mich missverständlich asugedrückt.
Ich meine eigendlich Tk:

Code (perl): (dl )

   $ausgabe = $f3->Scrolled('HList',
                            -header=>1,
                            -columns=>2,
                            -scrollbars=>'osoe',
                            -width=>70,
                            -height=>30,
                            -selectbackground=>'SeaGreen'
                            )->pack(-expand=>1,-fill=>'both');

Diese Liste füllt sich immer mit Daten.
Und diese soll immer den aktuellsten (letzten) anzeigen.

Gruß Alex

Effizente Linuxshell

Crian

2003-09-02 19:54

User since
2003-08-04
5866 Artikel
ModeratorIn

Ich glaube, auch die HList hat eine "see"-Methode... ich schau mal nach.

So ist es (siehe Tk::HList):

Tk::Hlist,perldoc
*$hlist*->see(*$entryPath*)
Adjust the view in the HList so that the entry given by *$entryPath*
is visible. If the entry is already visible then the method has no
effect; if the entry is near one edge of the window then the HList
scrolls to bring the element into view at the edge; otherwise the
HList widget scrolls to center the entry.

\n\n

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

format_c

2003-09-03 10:08

User since
2003-08-04
1706 Artikel
HausmeisterIn

Cool supi. das funktioniert ja schon richtig gut. ;) *freu*

Kannst du mir auch noch sagen wie ich das Programm in Vollbild starten kann?

Gruß ALex

Effizente Linuxshell

format_c

2003-09-03 13:46

User since
2003-08-04
1706 Artikel
HausmeisterIn

Oder vielleicht auch jemand anders?

Gruß Alex

Effizente Linuxshell

Strat

2003-09-03 18:07

User since
2003-08-04
5246 Artikel
ModeratorIn

gab es bei Tk nicht ein Event namens FileEvent oder so aehnlich? damit muesste man doch das Tail -f viel besser loesen koennen (habe es schon ewig nicht mehr verwendet)...

Vollbildmodus? ich glaube, den gibt's bei Tk nicht; du koenntest hoechstens das fenster maximieren und dann die fensterdekoration entfernen...

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

format_c

2003-09-03 18:17

User since
2003-08-04
1706 Artikel
HausmeisterIn

Weis nicht ob das File Event das richtige ist. Denke eher nicht, da ich mit meiner HList keine LogDatei verfolgen will sondern meiner Ausgabe des Programms.
Aber mit $widget->see($i) gehts super.
Wollte nur das Ansichtsverhalten von tail -f haben.

Aber was anderes:
Kann ich auch den Gesamten Inhalt der HList löschen?

Gruß Alex

Effizente Linuxshell

eisbeer

2003-09-03 18:26

User since
2003-08-29
347 Artikel
BenutzerIn

$hlist->delete('all');

¤dit: SCHEISS SMILIES :)\n\n

Die meisten PC Probleme befinden sich zwischen Bildschirm und Stuhl...

Crian

2003-09-03 18:27

User since
2003-08-04
5866 Artikel
ModeratorIn

[quote=format_c,03.09.2003, 08:08]Kannst du mir auch noch sagen wie ich das Programm in Vollbild starten kann?[/quote]
Schau mal hier: http://board.perl-community.de/cgi-bin....;#idx10

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite