|< 1 2 3 >| | 26 Einträge, 3 Seiten |
1
2
3
4
5
6
7
8
9
10
use ModPerl::ApacheRegistry ('$x'); # oder sowas
our $x = 23;
sub handler {
sub inner {
print "inner before: $x";
$x = $x + 42;
print "inner: $x";
}
}
1
2
3
4
5
6
7
8
9
10
use ModPerl::ApacheRegistry ('$x'); # oder sowas
our $x = 23;
sub handler {
sub inner {
print "inner before: $x";
$x = $x + 42;
print "inner: $x";
}
}
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
package module;
use strict;
use warnings;
sub handler {
my $x = 23;
sub inner {
#my $x = $x;
print "inner before: $x\n";
$x = $x + 42;
print "inner: $x\n";
}
inner();
}
package main;
module::inner();
ergebnis:
Variable "$x" will not stay shared at handler.pl line 9.
Use of uninitialized value in concatenation (.) or string at handler.pl line 9.
inner before:
Use of uninitialized value in addition (+) at handler.pl line 10.
inner: 42
|< 1 2 3 >| | 26 Einträge, 3 Seiten |