blob: f32d09ed9bf8304571d712c201c20f0503896bcb (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
#!./perl -w
sub func_c {
print "Function C\n";
for (my $i = 0; $i < 3000000; $i++) { my $j = $i + 1; }
}
sub func_b {
print "Function B\n";
for (my $i = 0; $i < 2000000; $i++) { my $j = $i + 1 ; }
func_c();
}
sub func_a {
print "Function A\n";
for (my $i = 0; $i < 1000000; $i++) { my $j = $i + 1; }
func_b();
}
func_a();
|