Dave Cross: Still Munging Data With Perl: Online event - Mar 27 Learn more

WBRASWELL / RPerl-3.402000 / lib / RPerl / Test / Loop / program_36_good.pl 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53

              
#!/usr/bin/perl
# [[[ PREPROCESSOR ]]]
# <<< EXECUTE_SUCCESS: 'Hello, World #(1, 1, 1)!' >>>
# <<< EXECUTE_SUCCESS: 'Hello, World #(1, 1, 2)!' >>>
# <<< EXECUTE_SUCCESS: 'Hello, World #(1, 2, 1)!' >>>
# <<< EXECUTE_SUCCESS: 'Hello, World #(1, 2, 2)!' >>>
# <<< EXECUTE_SUCCESS: 'Hello, World #(1, 3, 1)!' >>>
# <<< EXECUTE_SUCCESS: 'Hello, World #(1, 3, 2)!' >>>
# <<< EXECUTE_SUCCESS: 'Hello, World #(2, 1, 1)!' >>>
# <<< EXECUTE_SUCCESS: 'Hello, World #(2, 1, 2)!' >>>
# <<< EXECUTE_SUCCESS: 'Hello, World #(2, 2, 1)!' >>>
# <<< EXECUTE_SUCCESS: 'Hello, World #(2, 2, 2)!' >>>
# <<< EXECUTE_SUCCESS: 'Hello, World #(2, 3, 1)!' >>>
# <<< EXECUTE_SUCCESS: 'Hello, World #(2, 3, 2)!' >>>
# <<< EXECUTE_SUCCESS: 'Hello, World #(3, 1, 1)!' >>>
# <<< EXECUTE_SUCCESS: 'Hello, World #(3, 1, 2)!' >>>
# <<< EXECUTE_SUCCESS: 'Hello, World #(3, 2, 1)!' >>>
# <<< EXECUTE_SUCCESS: 'Hello, World #(3, 2, 2)!' >>>
# <<< EXECUTE_SUCCESS: 'Hello, World #(3, 3, 1)!' >>>
# <<< EXECUTE_SUCCESS: 'Hello, World #(3, 3, 2)!' >>>
# <<< EXECUTE_SUCCESS: 'Hello, World #(4, 1, 1)!' >>>
# <<< EXECUTE_SUCCESS: 'Hello, World #(4, 1, 2)!' >>>
# <<< EXECUTE_SUCCESS: 'Hello, World #(4, 2, 1)!' >>>
# <<< EXECUTE_SUCCESS: 'Hello, World #(4, 2, 2)!' >>>
# <<< EXECUTE_SUCCESS: 'Hello, World #(4, 3, 1)!' >>>
# <<< EXECUTE_SUCCESS: 'Hello, World #(4, 3, 2)!' >>>
# [[[ HEADER ]]]
use RPerl;
use strict;
use warnings;
our $VERSION = 0.001_000;
# [[[ CRITICS ]]]
## no critic qw(ProhibitUselessNoCritic ProhibitMagicNumbers RequireCheckedSyscalls)  # USER DEFAULT 1: allow numeric values & print operator
## no critic qw(RequireInterpolationOfMetachars)  # USER DEFAULT 2: allow single-quoted control characters & sigils
# [[[ OPERATIONS ]]]
my integer $i = 0;
while ( $i < 4 ) {
    my integer $j = 0;
    while ( $j < 3 ) {
        my integer $k = 0;
        while ( $k < 2 ) {
            print 'Hello, World #(', ( $i + 1 ), ', ', ( $j + 1 ), ', ', ( $k + 1 ), q{)!}, "\n";
            $k++;
        }
        $j++;
    }
    $i++;
}