Leser: 3
|< 1 2 >| | 12 Einträge, 2 Seiten |
1 2 3 4 5 6 7 8 9 10
use warnings; my $var = 0; test(); exit; sub test { $var = 1; }
pktm+2008-11-28 12:31:15--Wenn du Geltungsbereiche benutzen willst, musst du ersteinmal use strict; reinschreiben.
Und dann willst du wahrscheinlich mit Referenzen arbeiten.
pktm+2008-11-28 12:31:15--Wenn du Geltungsbereiche benutzen willst, musst du ersteinmal use strict; reinschreiben.
1 2 3 4 5 6 7 8 9 10 11 12
#!/usr/bin/perl my $test = 'hallo'; test(); print $test, " - ", $hallo; sub test{ print "in test(): $test\n"; my $hallo = 2; }
QuoteUnd dann willst du wahrscheinlich mit Referenzen arbeiten.
Kean+2008-11-28 12:24:10--Ich habe eine Verständnisfrage wegen den Geltungsbereichen.
Beispiel:
[...]
QuoteDas hat dann $main::var
1 2 3 4 5 6 7 8 9 10 11 12 13 14
#!/usr/bin/perl use strict; use warnings; { my $var = 1; { print $var; my $var = 2; print $var; } print $var; }
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
# file { # code blockebene 1 # code1 ebene1 my $x; our $y; # Anfang Geltungsbereich $x,$y in Ebene 1 { # code blockebene 2 package NEU; my $x; our $y; # Anfang Geltungsbereich $x,$y in Ebene 2 print $x; # $x in Lexpad 2 print $y; # $y in Package "NEU", also $NEU::y; }# Ende Block2 und der Geltungsbereiche von $x,$y, und NEU our $z; # =$main::z; weil Geltungsbereich von package NEU verlassen. } # Ende Geltungsbereich 1 $x,$y #ende Geltungsgbereich file
LanX-+2008-11-28 14:54:30--Bitte um Rückfragen bei Unklarheiten, bei Bedarf mach ich mal nen detaillierten TWiki-Artikel draus.
scriptor+2008-11-29 11:59:58--LanX-+2008-11-28 14:54:30--Bitte um Rückfragen bei Unklarheiten, bei Bedarf mach ich mal nen detaillierten TWiki-Artikel draus.
...Fühle Dich ermutigt!
|< 1 2 >| | 12 Einträge, 2 Seiten |