stehende Zeile und Stoppuhr (Allgemeines zu Perl)

[thread]14236[/thread]

stehende Zeile und Stoppuhr

Leser: 26

Articles: hide open all | hide show old branches

+10 replies
LE

2009-11-09 13:55

User since
2009-10-23
80 Artikel
BenutzerIn

Hallo Community,

ich habe eine Zählfunktion in meinem Script nach der Art 12/1024. Jedoch immer wenn sich jetzt die Zahl er höht, hier z.B. von 12 auf 13, dann bekommt man ja automatisch die Anzeige in einer neuen Zeile. Gibt es eine Möglichkeit das es die selbe Zeile braucht und das sich nur die Zahl erhöht?

Außerdem würde ich gerne eine Stoppuhr einbauen, um zu sehen wielange das Script braucht. Diese Stoppuhr soll auch in der Zeile laufen wie der Zähler. Gibt es in PERL überhaupt die Möglichkeit einer sollchen Stoppuhrfunktion? Und wie funktioniert das?

Gruß LE
- renee
  
  2009-11-09 14:00
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  $|++; my $max = 100; for( 1 .. $max ) { print $_, "/$max\r"; sleep 1; }
  
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
- +7 replies
- pq
  
  2009-11-09 14:01
  User since
  2003-08-04
  12208 Artikel
  Admin1
  probier mal folgendes:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  $| = 1; # flush stdout for (0 .. 23) { printf "%3d\r", $_; sleep 1; } print "\n";
  
  das sollte ein ansatz sein, mit dem du das hinkriegst.
  das \r sorgt für einen carriage return ohne zeilenvorschub (im prinzip wie bei einer schreibmaschine) und überschreibt die vorherige zeile.
  
  um zeit zu stoppen, kannst du einfach die startzeit mit time() speichern und dann jeweils von der aktuellen zeit abziehen. für kleinere auflösungen als sekunden nutze Time::HiRes
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +6 replies
  - LE
    
    2009-11-09 14:36
    
    User since
    2009-10-23
    80 Artikel
    BenutzerIn
    
    Also das funktioniert ind soweit, dass er in der selben Zeile bleibt und das er schön Hochzählt. Jedoch wenn er das max erreicht hatfängt er bei 1 wieder an. Wie kann ich das verhindern?
    - +5 replies
    - renee
      
      2009-11-09 14:45
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Zeig mal Deinen Code... Wenn Du den Code 1:1 von mir oder pq übernommen hast, dürfte das nicht passieren.
      OTRS-Erweiterungen (http://feature-addons.de/)
      Frankfurt Perlmongers (http://frankfurt.pm/)
      --
      
      Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
      Perl-Entwicklung: http://perl-services.de/
      - +4 replies
      - LE
        
        2009-11-09 16:07
        
        User since
        2009-10-23
        80 Artikel
        BenutzerIn
        
        Also das war ein Fehler von mir, habe es mir dann nochmal geschaut und habe gesehen das ich es falsch in eine Schleife eingebunden habe. Jetzt geht es.
        
        Bloß das mit der Zeit habe ich noch nicht verstanden. Möchte das in dieser Zeile jedesmal die Zeit erscheint wie lang das Script schon läuft.
        
        +3 replies
        
        pq
        
        2009-11-09 16:26
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        sag doch erstmal, ob du sekunden willst oder millisekunden brauchst. wenn nur sekunden, kannst du eine perl-interne variable $^T benutzen und diesen wert von time() abziehen.
        my $running = time() - $^T;
        ansonsten schau wie gesagt in die doku von Time::HiRes, das geht dann ähnlich, nur dass du die startzeit auch berechnen musst. wenn du was nicht verstehst, sag bitte genau was.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        LE
        
        2009-11-10 08:42
        
        User since
        2009-10-23
        80 Artikel
        BenutzerIn
        
        Entschuldige, natürlich hätte ich dir genau sagen müssen was ich nicht verstehe. Aber du hast mit deiner Antwort jetzt schon meine Frage beantwortet!
        Und mir reichen Sekunden, von daher passt deine Antwort auch.
        Ich probiere das ganze mal aus.
        Dankeschön.
        
        LE
        
        2009-11-10 09:48
        
        User since
        2009-10-23
        80 Artikel
        BenutzerIn
        
        Dankeschön.
        
        Hat alles wunderbar geklappt.
- pq
  
  2009-11-09 14:07
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  Titel geändert (Stoppuhr statt Stopuhr)
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem

View all threads created 2009-11-09 13:55.