Copy-Prozessvorgang anzeigen auf Terminal? (Allgemeines zu Perl)

[thread]17705[/thread]

Copy-Prozessvorgang anzeigen auf Terminal?

Tags: perl5 Ähnliche Threads

Leser: 23

Articles: hide open all | hide show old branches

+11 replies
kami

2012-08-28 13:44

User since
2010-03-17
92 Artikel
BenutzerIn

Hi,

ich habe folgendes vor:

Ich lasse ein Perl Skript auf meinem Rechner laufen. Dieses Skript steuert per RS232 ein LCD (20x4). Auf dem Display wird einfach nur Text angezeigt also ähnlich wie print auf der Console.
Wenn ich nun eine SD-Karte von meiner Digitalkamera in den USB-Kartenleser stecke, dann wird diese Karte per UDEV erkannt und gemountet. Das ganze wird dem Perl-Skript mitgeteilt und ich erhalte eine Ausgabe auf dem LCD.

Das Perl-Skript schaut nun nach, ob JPG Dateien auf der Karte vorliegen, ist dies der Fall, dann wird eine Abfrage auf dem Display angesteuert, ob die Files kopiert werden soll.

Bis hierhin läuft alles super. Kommen wir nun zu meiner Frage.

Ich möchte mir nun auf dem Display den Prozentwert des gesamten Kopiervorgangs anzeigen lassen. Dafür muss ich einfach nur wissen, wie ich das als SUB-Routine schreiben kann, die kontinuierlich bei Veränderung in 1%-Schritten das immer wieder ausgibt?

Also Kopiervorgang starten und dann immer den aktuellen Prozessverlauf ausgeben.

Wie kann ich das machen?

Vielen dank.

Gruß kami
- +9 replies
- Muffi
  
  2012-08-28 15:16
  
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  
  Also wenn du einen system-copy verwendest glaub ich wirst du nicht so einfach an den aktuellen Prozentwert kommen. (Also während des Kopierens einer Datei)
  Du könntest evtl. pro Datei deinen Status aktualisieren.
  
  [EDIT]
  Oder du kopierst Byte für Byte selbst, aber obs das wert ist nur um eine weichere Fortschrittsanzeige zu haben...
  Last edited: 2012-08-28 15:22:39 +0200 (CEST)
  1 + 1 = 10
  - +8 replies
  - kami
    
    2012-08-28 15:22
    
    User since
    2010-03-17
    92 Artikel
    BenutzerIn
    
    Nee zum Kopieren wollte ich eigentlich auch File::Copy verwenden.
    
    Gruß kami
    - Muffi
      
      2012-08-28 15:24
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      Dann weiss ich nicht was deine Frage genau ist.
      Wie du den Fortschritt von deiner Kopierfunktion nach draussen leitest?
      1 + 1 = 10
    - +6 replies
    - Gast wer
      
      2012-08-28 15:34
      
      Erst erstellt man eine Liste aller zu kopierenden Dateien. Das ist 100%
      nach jeder kopierten Datei erhöht man einen Zähler um 1.
      
      $prozent=100*$zähler/$alles
      
      so schwer scheint mir das nicht zu sein.
      Last edited: 2012-08-28 15:36:13 +0200 (CEST)
      - +5 replies
      - kami
        
        2012-08-28 16:28
        
        User since
        2010-03-17
        92 Artikel
        BenutzerIn
        
        Hi,
        
        nein ich will das anzeigen lassen während des laufenden Kopierprozesses. Ich suche nach einer Quelltextbaustein, an den ich ein Verzeichnis und Dateitypen übergeben kann und ein Ziel und der mir dann alle Dateien dieses Typs in das Ziel kopiert und mir immer die Prozent live zurückgibt.
        
        Das wäre super :)
        
        Gruß kami
        
        +4 replies
        
        Muffi
        
        2012-08-28 16:34
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Und du willst jetzt ein fertiges Skript oder kommst du an einer Stelle nicht weiter?
        1 + 1 = 10
        
        +3 replies
        
        kami
        
        2012-08-28 20:09
        
        User since
        2010-03-17
        92 Artikel
        BenutzerIn
        
        Hi,
        
        also ich nehme da, was ich kriegen kann. Ich habe halt nur null Ahnung, wie ich einen Prozess im Vordergrund laufen lassen kann und mir die Daten aus einem Copy-Prozess im Hintergrund holen kann.
        
        Gruß kami
        
        Linuxer
        
        2012-08-28 22:13
        
        User since
        2006-01-27
        3891 Artikel
        HausmeisterIn
        
        Du könntest die Copy-Routine per fork vom Hauptskript trennen und dann per IPC den Status an das Hauptskript melden.
        
        Gemacht habe ich sowas selber noch nicht.
        
        Schau mal in perlipc rein. Da gibt's Beschreibungen und Beispiele, wie man sowas realisieren könnte.
        
        Vielleicht findet sich auch im CPAN ein hilfreiches Modul: IPC
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        Muffi
        
        2012-08-29 08:46
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Ich würd da mit der billig Callbackmethode anfangen.
        
        So würd mein Aufruf ungefähr ausschaun
        
        Code (perl): (dl )
        
        copy_files($from, $to, { onProgress => sub { my $progress = shift; print $progress }, filter => '*.jpg' });
        
        und nach jedem File macht das copy_files sowas wie
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7
        
        sub copy_files { my ($from, $to, $options) = @_; ... ein file kopieren $options->{onProgress}->($prozentwert) if $options->{onProgress}; ... loop }
        
        Last edited: 2012-08-29 08:47:34 +0200 (CEST)
        1 + 1 = 10
- hlubenow
  
  2012-08-28 20:49
  
  User since
  2009-02-22
  876 Artikel
  BenutzerIn
  
  2012-08-28T11:44:07 kami
  Dieses Skript steuert per RS232 ein LCD (20x4). Auf dem Display wird einfach nur Text angezeigt also ähnlich wie print auf der Console.
  ...
  Ich möchte mir nun auf dem Display den Prozentwert des gesamten Kopiervorgangs anzeigen lassen.
  
  Die Linux-Konsole verfügt über fortgeschrittene Steuerbefehle. ;)
  Soweit ich weiß, werden Fortschrittsbalken dadurch realisiert, daß man die aktuelle Zeile per Steuerbefehl löscht und dann neu schreibt, so daß der Eindruck einer "Animation" entsteht. Ob das so auch mit Deinem LCD-Display geht, kann ich nicht sagen.
  Für die Konsole gäbe es Term::ProgressBar.

View all threads created 2012-08-28 13:44.