Opened by tonewheel at 2007-04-13 12:24
User since
2006-11-29
340 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-11-29
340 Artikel
BenutzerIn
Ergänzend zu sid burn:
Falls du nur eine package Variable erzeugen möchtest, ohne eine lexikalische zu überschreiben / erstellen, benutzt du weder my noch our, sondern schreibst es einfach so:
In main hätte $test immer noch den alten Wert.
Vollständiges Beispiel:
MfG
Jedenfalls mache ich das immer so...\n\n
<!--EDIT|PerlProfi|1176570042-->
Falls du nur eine package Variable erzeugen möchtest, ohne eine lexikalische zu überschreiben / erstellen, benutzt du weder my noch our, sondern schreibst es einfach so:
Code: (dl
)
1
2
3
4
5
# package definition
package Test;
# package Variable erstellen
$Test::test = 'Test';
In main hätte $test immer noch den alten Wert.
Vollständiges Beispiel:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#!/usr/bin/perl -w
use strict;
# lexikalische Variable in main
my $test = 'Hallo';
# package wechseln
package Test;
# package Variable in Test
$Test::test = 'Welt';
# package wechseln
package main;
# Ausgabe beider Variablen
print join(' ', $test, $Test::test), "\n";
MfG
Jedenfalls mache ich das immer so...\n\n
<!--EDIT|PerlProfi|1176570042-->