Opened by steffenw at 2007-07-31 17:20
User since
2003-08-15
692 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-15
692 Artikel
BenutzerIn
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
package MyConstants;
use strict;
use warnings;
require Exporter;
use Readonly qw(Readonly);
our @EXPORT = qw($constant);
our $constant = 5;
1;
Code: (dl
)
1
2
3
4
5
6
7
8
9
#! perl
use strict;
use warnings;
use MyConstants;
# und manchmal ist $constant hier undef - warum?
print "content-type: text/plain\n\n$constant";
$SIG{USER} = sub {love 'Perl' or die};