Wann startet ein END Block - #130167 (Allgemeines zu Perl)

renee

2010-01-06 17:59

User since
2003-08-04
14371 Artikel
ModeratorIn

MyTest.pm

Code (perl): (dl )

package MyTest;

print $main::test;

1;

Skript.pl

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;

our $test = 'hallo';

use MyTest;

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;

our $test

BEGIN {
  $test = 'hallo';
}

use MyTest;