Hallo an euch,
ich möchte über ein Perl Skript eine Festplatte komplett löschen. Hierzu habe ich folgenden Code:
1 | qx(shred -n 1 -v /dev/sdx)
|
Das ganze ist als Funktion in einer GUI über Tk eingebunden, sprich man soll kein Terminal haben. Wenn shred komplett durch ist kann ich eine Erfolgsmeldung in ein Label schreiben. Nun hätte ich jedoch gerne die Möglichkeit, eine Fortschrittsanzeige oder so etwas in der Art über Tk zu realisieren (es würde auch die Terminalausgabe von shred reichen). Wie kann ich so etwas realisieren?