Opened by rc27 at 2013-06-18 09:10
Ich habe jetzt noch ein Problem. Weil ich strict verwende gibt eine Warnung wegen $main:zahl in pack - used only once ... .
Last edited: 2013-06-18 15:30:48 +0200 (CEST)
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/perl
#
# test1.pl
#
use strict;
use warnings;
our $zahl = "22";
use pack;
&pack::version();
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#!/usr/bin/perl
#
# pack.pm
#
package pack;
use strict;
use warnings;
sub version { print "Wert: ", $main::zahl; }
1;
Last edited: 2013-06-18 15:30:48 +0200 (CEST)