Jemand zu Hause?Leser: 14
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
use threads;
use threads::shared;
my @output : shared;
$output[0] = "irrelevant1";
$output[0][0] = "irrelevant2";
$thr = threads->new(\&test);
$thr->join;
print "-> ".$output[1]."\n";
print "-> ".$output[1][0]."\n";
print " Wo ist mein WHATTHEFUCK???? :( \n\n";
sub test {
$output[1] = "Works!";
$output[1][0] = "WHATTHEFUCK??";
}
threads::shared keine Unterstützung für Autovivification und ein Aufruf von share wirkt sich auch nicht rekursiv auf verschachtelte Datenstrukturen aus.
use strict; use warnings;