![]() |
|< 1 2 3 4 >| | ![]() |
31 entries, 4 pages |
1
2
3
4
5
6
7
8
9
10
11
12
blubb(blah(),'zwei');
sub blah
{
my %h=(eins=>1,zwei=>2,drei=>3);
return \%h;
}
sub blubb
{
print $_[0]->{$_[1]}
}
1
2
3
4
5
6
7
8
9
10
11
12
13
package MyConf;
use strict;
use warnings;
use vars qw($Conf @EXPORT_OK);
use base 'Exporter';
@EXPORT_OK = qw($Conf);
# erstelle $Conf
...
#script:
use MyConf '$Conf';
# mach was mit $Conf
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
# Hauptprogramm
#!/usr/bin/perl -w
#package MyConf;
use strict;
use warnings;
use vars qw(%template @EXPORT_OK);
use base 'Exporter';
@EXPORT_OK = qw(%template);
require "rootssubs.sub";
my %template = ("site" => "home");
print "Content-type: text/html\n\n";
&test;
exit(0);
1
2
3
4
5
6
# rootssubs.sub
#use MyConf '%template';
sub test{
print "Bin in test:".$template{'site'}."<br>\n";
}
1;
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#!/usr/bin/perl -w
#package MyConf;
use strict;
use warnings;
#use vars qw(%template @EXPORT_OK);
#use base 'Exporter';
#@EXPORT_OK = qw(%template);
require "rootssubs.sub";
my %template = ("site" => "home");
my $template_ref = \%template;
print "Content-type: text/html\n\n";
&test($template_ref);
print "in main: ".$template{'site'}."<br>\n";
exit(0);
1
2
3
4
5
6
7
#use MyConf '%template';
sub test{
my $in = shift;
print "Bin in test:".$$in{'site'}."<br>\n";
$$in{'site'} = "news";
}
1;
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#!/usr/bin/perl
use strict;
use warnings;
use vars '$var';
package main;
my $var = "Welt";
print "Namensraum: main\n";
print "Hallo " . $var . "\n";
package foo;
print "Namesraum: foo\n";
print "Hallo " . $var . "\n";
$var = "du";
print "Hallo " . $var . "\n";
![]() |
|< 1 2 3 4 >| | ![]() |
31 entries, 4 pages |