Opened by deepblack at 2004-06-16 21:56
User since
2004-01-29
828 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2004-01-29
828 Artikel
BenutzerIn
[quote=Crian,07.07.2004, 15:25]
[/quote]
Wie ich schon sagte wird jeder BEGIN Block im string eval ausgeführt, das heisst, er kann auf Variablen der Umgebung zugreifen in der er ausgeführt wird.
Da Variablen bereits zur compiletime initialisiert werden kann darauf auch zugegriffen werden.
Der Compiler arbeitet den quelltext von oben nach unten ab, der BEGIN block wird genau dann ausgeführt wenn der compiler ihn zum ersten mal sieht.
Es ist also genau wie Crian sagt, und Dieter sollte lieber nochmal nachlesen. ;)
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl
use strict;
use warnings;
my $xxx = 1234;
BEGIN {
warn $xxx;
$xxx = 5678;
warn $xxx;
}
warn $xxx;
Wie ich schon sagte wird jeder BEGIN Block im string eval ausgeführt, das heisst, er kann auf Variablen der Umgebung zugreifen in der er ausgeführt wird.
Da Variablen bereits zur compiletime initialisiert werden kann darauf auch zugegriffen werden.
Der Compiler arbeitet den quelltext von oben nach unten ab, der BEGIN block wird genau dann ausgeführt wenn der compiler ihn zum ersten mal sieht.
Es ist also genau wie Crian sagt, und Dieter sollte lieber nochmal nachlesen. ;)