2 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
$toplw=$main->Toplevel();
$text=$toplw->Text(-width=>50)->pack();
open(PROG, "/bin/tar -czvpf $ziel/$zielname -X $excludefiles /|" ) || die "Error! can't execute tar\n";
while(<PROG>) {
$text->insert('end', "$_"); $toplw->update();
}
close(PROG);
2 Einträge, 1 Seite |