Leser: 1
3 Einträge, 1 Seite |
1
2
3
4
5
6
7
sub message {
$mw = MainWindow->new();
$open = $mw->Label(-text=>'Indizierung Läuft')->pack;
$open = shift;
$mw->after(200*10, sub{$mw->destroy});
MainLoop;
}
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
use File::Find; use CGI; use POSIX 'strftime'; use Tk; &message; @html_dat = ('a'..'z', 0..9); foreach $html_dat (@html_dat){ @dateien = undef; $q = new CGI; open (HTML, ">$html_dat.html"); find (\&wanted, $ENV{HOME}); select(HTML); print $q->start_html(-title=>"Meine Dateien";), # Jetzt wird eine Html datei geschrieben mit einer Tabelle in der mit den gefunden Dateien alle die mit a b c usw bis 9 beginnen) im Dateinamen print $q->end_html; close(HTML); select(STDOUT); $i = $i+1; if($i == 10){&message}; #Tk Modul Label 'indizierung läuft' if($i == 20){&message}; if($i == 30){&message}; };
3 Einträge, 1 Seite |