Anwendungszeit bestimmen (Allgemeines zu Perl)

[thread]20582[/thread]

Anwendungszeit bestimmen

Tags: perl5 Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+8 replies
rasidrasid

2019-02-09 12:08

User since
2013-12-10
16 Artikel
BenutzerIn

Hallo,

ich benutze perl eigentlich nur sehr selten. Besser gesagt komme ich leider wenig dazu. Ich würde gerne ein Programm (Abaqus CAE) starten und ab dem Start bis zum Ende die Ausführungs- bzw. Anwendungszeit ablesen. Also zb meinPerlScript abaqus.inp mit Return bestätigen und dann möchte ich, wenn das Programm durchgelaufen ist (Done Successfully), die Zeit ablesen, die es gebraucht hat. Der Hintergrund ist der, ich möchte das gleiche Programm auf unterschiedlichen Rechnern bzw. Architekturen ausführen, um deren Performance zu testen. Wie kann ich das machen? Plattform ist Linux und Windows.

Danke
- +5 replies
- rosti
  
  2019-02-09 13:10
  
  User since
  2011-03-19
  3470 Artikel
  BenutzerIn
  
  In $^T findest Du den Startzeitpunkt. time() liefert Dir die aktuelle Zeit.
  
  MfG
  - gelöscht 2019-02-09 14:02
  - +3 replies
  - rasidrasid
    
    2019-02-09 14:11
    
    User since
    2013-12-10
    16 Artikel
    BenutzerIn
    
    Danke. Wie kann ich aber das Programm abaqus dabei absetzen?
    - +2 replies
    - rosti
      
      2019-02-09 14:23
      
      User since
      2011-03-19
      3470 Artikel
      BenutzerIn
      
      Achso ein externes Programm. Da bist Du mit einer Batch besser beraten:
      
      Guck mal:
      https://it-stack.de/26/10/2011/zeitmessung-mit-bat...
      
      Wichtig: Innerhalb der batch das externe Programm mit call aufrufen -- damit es nach Beenden in die Batchdatei zurückkehrt.
      
      MfG
      - rasidrasid
        
        2019-02-09 15:03
        
        User since
        2013-12-10
        16 Artikel
        BenutzerIn
        
        ja genau. danke
- +2 replies
- Linuxer
  
  2019-02-09 16:46
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  Naja,
  
  wenn die Werte verglichen werden sollen, würde ich auf den Plattformen das gleiche Drumherum benutzen.
  "Batch" gibt es in der Art auf Linux nicht (edit: Es gibt mehrere verschiedene Shells, in denen man das natürlich auch umsetzen kann). Ich finde da dann den Perl-Ansatz gar nicht so schlecht.
  
  Ein einfacher Ansatz zum sekundenbasierten Vergleich könnte beispielsweise so aussehen:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
  
  #! /usr/bin/perl use strict; use warnings; # fetch timestamps directly before and after system() call # we don't care about data or exitstatus of called programs my $start_time = time; system( @ARGV ); my $end_time = time; printf "Started: %s\n", scalar(localtime($start_time)); printf "Finished: %s\n", scalar(localtime($end_time)); printf "Runtime: %ss\n", $end_time - $start_time;
  
  Das Skript wird Deinem Kommando vorangestellt:
  
  Code: (dl )
  
  1 2 3 4 5
  
  # Beispiel: Laufzeit von "sleep 5" ermitteln $ perl timeit.pl sleep 5 Started: Sat Feb 9 16:35:34 2019 Finished: Sat Feb 9 16:35:39 2019 Runtime: 5s
  
  Wenn es genauer sein soll, könnte man Time::HiRes einbinden und den Code darauf umstellen.
  Last edited: 2019-02-09 18:29:58 +0100 (CET)
  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!
  - rasidrasid
    
    2019-02-09 17:29
    
    User since
    2013-12-10
    16 Artikel
    BenutzerIn
    
    Vielen Dank

View all threads created 2019-02-09 12:08.