Automatische Aktualisierung - #105427 (Allgemeines zu Perl)

Emigrant

2008-01-31 23:44

User since
2008-01-31
22 Artikel
BenutzerIn
[default_avatar]

Hallo zusammen, bin Neuling, habe mir folgende kleine subroutine geschrieben, die mir in einem kleinen Programm die Tage, Stunden und Minuten seit meiner Hochzeit anzeigt. Es gibt noch zwei Fragen dazu: Kann ich die Formatierung der Ausgabe im Format "T.TTT HH:MM" verkleinern, sieht ziemlich übel aus? Wie kann ich eine automatische Aktualisierung einbauen, d.h. wie eine Uhr aktualisieren? Diese Routine aktualisiert die Anzeige per Knopfdruck. Ich hab's mal mit Qt hingekriegt, aber Gtk2 gefällt mir besser.
Hier der Code:

Code (perl): (dl )

sub hochtag {
    $table->remove($hochlabel);
    my $hochzeit = date "2005-12-2 11:30:00"; my $date = now; 
    my $hh=""; my $mm=""; my $TT =""; my $HH =""; 
    my $MM =""; my $TTrest =""; my $TTrest1 =""; my $TTrest2 ="";
    my $ergebnis = $date - $hochzeit; my $ergebnisTT = $ergebnis / (86400); 
    $TT = int($ergebnisTT);
    my $TTT = $TT; $TTrest = ($TTT / 1000 - int($TTT / 1000))*1000;
    $TTT = int($TTT / 1000); if ($TTT >= 1) { $TTT ="$TTT."; }
    if ($TTT == 0) { $TTT =""; } if ($TTrest < 100) { $TTrest1 ="0"; }
    if ($TTrest < 10) { $TTrest2 ="0"; }
    my $ergebnisHH = ((($ergebnis / (86400)) - int($ergebnisTT)) * 24);
    $HH = int($ergebnisHH); if ($HH<10) { $hh="0"; }
    my $ergebnisMM = (((($ergebnis / (86400)) - $TT) * 24) - $HH)*60;
    $MM = int($ergebnisMM); if ($MM<10) { $mm="0"; }
    my $hochtag = ("$TTT$TTrest1$TTrest2$TTrest $hh$HH:$mm$MM");
    my $hochlabel2 = new Gtk2::Label();
    $hochlabel->set_markup ("<span font-family=\"URW Chancery L\" color=\"#FF0000\" font_desc=\"40\">$hochtag</span>");
    $table->attach_defaults($hochlabel, 0, 1, 0, 4);
    $hochlabel->show; 
}

Für Hilfe, Anregungen und Kritik bin ich dankbar!
Emigrant

Don´t dream your life, live your dream