Ladebalken auf Commandline (Allgemeines zu Perl)

[thread]16661[/thread]

Ladebalken auf Commandline

Tags: perl5 Ähnliche Threads

Leser: 25

Articles: hide open all | hide show old branches

+9 replies
Gast Decstasy

2011-08-26 12:11
Hallo zusammen,

ich habe ein kleines Problem. Zur Zeit Arbeite ich an einer Automatisierung wollte dabei einen kleinen Fortschrittsbalken auf der Commandline anzeigen lassen.

Kurioser weise funktioniert die "Grundidee" nicht sobald ein sleep auf einen Print mit \r trifft...

Habt Ihr Ideen was ich da machen könnte? Und bitte keine schleifen, zwischen den einzelnen "Balkenaktualisierungen" liegt selbstverständlicherweise Code...

Hier der "extrahierte Code", ich verstehe nicht warum es nicht nach einer Sekunde 5% dazu tut :(

Vielen Dank im voraus schonmal!
Code (perl): (dl )

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 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82

#!/usr/bin/perl use strict; use utf8; print "[> ] 5%"; sleep 1; print "\r"; print "[>> ] 10%"; sleep 1; print "\r"; print "[>>> ] 15%"; sleep 1; print "\r"; print "[>>>> ] 20%"; sleep 1; print "\r"; print "[>>>>> ] 25%"; sleep 1; print "\r"; print "[>>>>>> ] 30%"; sleep 1; print "\r"; print "[>>>>>>> ] 35%"; sleep 1; print "\r"; print "[>>>>>>>> ] 40%"; sleep 1; print "\r"; print "[>>>>>>>>> ] 45%"; sleep 1; print "\r"; print "[>>>>>>>>>> ] 50%"; sleep 1; print "\r"; print "[>>>>>>>>>>> ] 55%"; sleep 1; print "\r"; print "[>>>>>>>>>>>> ] 60%"; sleep 1; print "\r"; print "[>>>>>>>>>>>>> ] 65%"; sleep 1; print "\r"; print "[>>>>>>>>>>>>>> ] 70%"; sleep 1; print "\r"; print "[>>>>>>>>>>>>>>> ] 75%"; sleep 1; print "\r"; print "[>>>>>>>>>>>>>>>> ] 80%"; sleep 1; print "\r"; print "[>>>>>>>>>>>>>>>>> ] 85%"; sleep 1; print "\r"; print "[>>>>>>>>>>>>>>>>>> ] 90%"; sleep 1; print "\r"; print "[>>>>>>>>>>>>>>>>>>> ] 95%"; sleep 1; print "\r"; print "[>>>>>>>>>>>>>>>>>>>>] 100%\n"; print "Done.\n";
Code soll auf Debian Server und Mac OSX ausgeführt werden. Problem tritt bei MacOSX und Debian auf.
Last edited: 2011-08-26 12:25:44 +0200 (CEST)
- +5 replies
- GwenDragon
  
  2011-08-26 12:29
  User since
  2005-01-17
  14748 Artikel
  Admin1
  Ich nehme an, das hat was mit der Ausgabepufferung (für STDOUT) zu tun.
  
  Füge doch mal als erste Codezeile
  
  Code (perl): (dl )
  
  $|=1;
  
  hinzu und lies bitte http://perl.plover.com/FAQs/Buffering.html und http://perldoc.perl.org/perlfaq5.html#How-do-I-flu...
  
  oder
  
  Code (perl): (dl )
  
  1 2
  
  use FileHandle; STDOUT->autoflush(1);
  
  oder
  
  Code (perl): (dl )
  
  1 2
  
  use IO::Handle; STDOUT->autoflush(1);
  
  siehe auch flush-Befehl
  und http://perltraining.com.au/tips/2005-09-12.html
  Last edited: 2011-08-26 13:23:04 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +3 replies
  - Gast Decstasy
    
    2011-08-26 12:47
    
    Funzt Danke! :D
    Last edited: 2011-08-26 12:50:58 +0200 (CEST)
    - +2 replies
    - GwenDragon
      
      2011-08-26 12:51
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Was hast du jetzt genommen?
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - bianca
        
        2011-08-26 13:16
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Das wird in diesem Kontext dasselbe sein, da es nur STDOUT gibt.
        Insofern kann sich $| nur darauf beziehen. autoflush unterscheidet ja nur den Ausgabekanal genauer. Zumindest nach dem damaligen Beitrag eines mittlerweile leider ausgeschiedenen Community-Mitglieds.
        
        msg #133383
        
        Editiert von bianca: Link ergänzt.
        Last edited: 2011-08-26 13:19:51 +0200 (CEST)
        10 print "Hallo"
        20 goto 10
  - moritz
    
    2011-08-26 13:26
    
    User since
    2007-05-11
    923 Artikel
    HausmeisterIn
    
    Oder die ausfuehrliche Variante: Suffering from Buffering?
    Perl 6 - Perls Zukunft
- +3 replies
- Gast wer
  
  2011-08-26 13:25
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11
  
  #!/usr/bin/perl use strict; use warnings; use utf8; $|=1; for(1...20) { printf("\r[%-20s] % u%%",'>'x$_,$_); sleep(1); } print "\n";
  
  Last edited: 2011-08-26 13:31:35 +0200 (CEST)
  - +2 replies
  - Gast Decstasy
    
    2011-08-26 16:16
    Ich habe die kurze Variante genommen, es soll ja nicht das ganze Script ohne Buffer arbeiten :)
    
    @Gast wer:
    Danke für die schöne Schleife, aber aus o.g. Gründen wollte ich eigentlich keine da ja dazwischen Code ausgeführt wird...
    Ich habe mal die Argumente gefict, damit die Schleife auch bis 100 zählt ;)
    
    Gruß Decs
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13
    
    #!/usr/bin/perl use strict; use warnings; use utf8; $|=1; my $arg = 0; for(1...20) { $arg = $_*5; printf("\r[%-20s] % u%%",'>'x$_,$arg); sleep(1); } print "\n";
    
    Last edited: 2011-08-26 16:37:34 +0200 (CEST)
    - hlubenow
      
      2011-08-26 23:49
      
      User since
      2009-02-22
      875 Artikel
      BenutzerIn
      
      Guest Decstasy
      Ich habe mal die Argumente gefict
      
      Ja, das mache ich auch öfters. ;)

View all threads created 2011-08-26 12:11.