Pendent zu require mit eigenem Namensraum (gelöst) - #160246 (Allgemeines zu Perl)

bianca

2012-07-27 13:10

User since
2009-09-13
7016 Artikel
BenutzerIn

user image

Ich meinte, ich möchte gern die sub des zweiten Scripts parallel im Zugriff haben, Beispiel:

test.pl:

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;

require 'test2.pl';

sub test {
print "foo\n";
}

test2.pl:

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;

sub test {
print "bar\n";
}
1;

Quote
Subroutine test redefined at test2.pl line 5.

Aber wie binde ich dann test2.pl ein und wie spreche ich dann später gezielt die sub test aus test2.pl an?

10 print "Hallo"
20 goto 10