Help for this page

Select Code to Download


  1. or download this
    #!/var/www/cgi-bin/d/perl-5.16.0.out/bin/perl5.16.0
    
    ...
        return int($1 * 4096 / 1024 / 1024) if `ps -p $$ -o rsz` =~ /(\d+)
    +/;
        return 0;
    }
    
  2. or download this
    #!/usr/bin/perl
    
    ...
        print $1, "\n";
    }
    printf "TOTAL time %ds\n", time - $start;
    
  3. or download this
    $ ./client keys
    received  10 params; used   24Mbyte of RSZ
    ...
    received 340 params; used 1047Mbyte of RSZ
    received 350 params; used 2071Mbyte of RSZ
    TOTAL time 2s