![]() |
![]() |
8 Einträge, 1 Seite |
QuoteEr könnte die Datei einlesen, den Code extrahieren und mit einer bösen Perlfunktion frankensteinisieren Leben einhauchen...
1
2
3
4
5
6
7
8
9
10
11
12
13
package module;
sub main {
print "running module!\n";
}
_ _FILE_ _ eq $0 and main;
sub test {
print "module::test()\n";
}
1;
require "module.pl"; # gibt "running module" nicht aus
Quoterequire "module.pl"; # gibt "running module" nicht aus
1 2 3 4 5 6 7 8 9 10
package Module; sub A { ... } sub B { ... } sub C { ... } return 1 if caller(); # hier endet der Modul-Part # Ab hier wird alles nur ausgeführt, wenn die Datei als Skript gestartet wird. require Getopt::Long; Getopt::Long::GetIOptions(...) or die "usage..."; A(); ...
![]() |
![]() |
8 Einträge, 1 Seite |