From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

BRIANDFOY / PerlBench-1.005 / benchmarks / loop / while.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

              
#!perl
# Name: A simple while loop
# Require: 4
# Desc:
#
require 'benchlib.pl';
&runtest(0.007, <<'ENDTEST');
    $count = 30000;
    while ($count--) {
        $foo = $count;
    }
ENDTEST