аналог time для win.

Discussion in 'Болталка' started by whexp, 10 Dec 2009.

  1. whexp

    whexp Member

    Joined:
    30 Nov 2009
    Messages:
    88
    Likes Received:
    29
    Reputations:
    5
    приветствую. нужно замерить скорость выполнения программы, как это делает утилита time из *nix, но для win32.
     
  2. altblitz

    altblitz Elder - Старейшина

    Joined:
    5 Jun 2009
    Messages:
    3,697
    Likes Received:
    3,139
    Reputations:
    236
    разве что - .bat с time/t. секунд, увы не покажет

    хотя и можно с сотыми долями секунд,
    может кто знает, как вводить символ Enter с copy con?

    whexp, ясно)
    коли кодишь на мс, то всё проще,
    функций работы со временем достаточно, на твой выбор)

    [​IMG]
     
    #2 altblitz, 10 Dec 2009
    Last edited: 10 Dec 2009
  3. whexp

    whexp Member

    Joined:
    30 Nov 2009
    Messages:
    88
    Likes Received:
    29
    Reputations:
    5
    altblitz, не, мне нужно с мс :)
     
  4. krypt3r

    krypt3r Elder - Старейшина

    Joined:
    27 Apr 2007
    Messages:
    1,507
    Likes Received:
    389
    Reputations:
    101
    Возможно, такой скриптик поможет
    Code:
    #!/usr/bin/perl
    
    use strict;
    use warnings;
    use Time::HiRes qw /gettimeofday/;
    
    die "wrong param count\n" if scalar @ARGV == 0;
    my $time_start = gettimeofday;
    my $prog_name = shift;
    open my $F, '-|', $prog_name, @ARGV or die "open() error: $!\n";
    print while <$F>;
    close $F;
    my $time = sprintf '%.2f', gettimeofday - $time_start;
    print "\nExecution time: ", $time, " sec.\n";