perl在线程中申明和使用共享数据

#!/usr/bin/perl # use threads; use threads::shared; use strict; my $var :shared = 0; # use :share tag to define my @array :shared = (); # use :share tag to define my %hash = (); share(%hash); # use share() funtion to define sub start { $va...

» 阅读全文

Tags: 多线程 , perl

回顶部