Opened by Crian at 2004-06-02 13:46
User since
2003-08-04
5873 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5873 Artikel
ModeratorIn
Es sind globale Hashes im Modul, mit my deklariert.
Ausgabe:
Wie ich mir dachte, mit our wärs gegangen, ich hatte nur in der falschen Datei auf our geändert und war verwirrt, weil das nichts bewirkte *g
P.S.: Ich habs in meinem Fall aber trotzdem bei my belassen und nur Testfunktionen nach außen angeboten, dann bin ich wenigstens sicher, dass mir keiner an den Hashinhalten rumpfuscht... ;)\n\n
<!--EDIT|Crian|1086192255-->
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/bin/perl
package Paket;
use strict;
use warnings;
my %NichtFuerDich = ( blubb => 'blubber' );
our %DiesenVielleicht = ( daten => 'hier' );
package main;
use strict;
use warnings;
use Data::Dumper;
print Dumper(\%Paket::NichtFuerDich), "\n";
print Dumper(\%Paket::DiesenVielleicht), "\n";
Ausgabe:
Code: (dl
)
1
2
3
4
5
6
Name "Paket::NichtFuerDich" used only once: possible typo at C:\Daten\perl\forum\globale_paket_variablen_nutzen.pl line 17.
$VAR1 = {};
$VAR1 = {
'daten' => 'hier'
};
Wie ich mir dachte, mit our wärs gegangen, ich hatte nur in der falschen Datei auf our geändert und war verwirrt, weil das nichts bewirkte *g
P.S.: Ich habs in meinem Fall aber trotzdem bei my belassen und nur Testfunktionen nach außen angeboten, dann bin ich wenigstens sicher, dass mir keiner an den Hashinhalten rumpfuscht... ;)\n\n
<!--EDIT|Crian|1086192255-->
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
use strict; use warnings; Link zu meiner Perlseite
use strict; use warnings; Link zu meiner Perlseite