承前； threads::shared で変数を共有してみる - daily dayflower

承前； threads::shared で変数を共有してみる - daily dayflower

とりあえず mod_perl を離れて threads::shared でスレッド間変数共有をやってみましょう。 package Cou...概要を表示 とりあえず mod_perl を離れて threads::shared でスレッド間変数共有をやってみましょう。 package Counter; use strict; use threads; use threads::shared; my $counter :shared = 0; sub counter { return ++ $counter; } 1;昨日と同じようなカウンタをインプリメントしてみました（ほんとはカウントアップ部分がアトミックな保証がないのでロックするなりセマフォ使うなりするべきですが）。これを外部スクリプトから使います。 #!/usr/bin/perl use strict; use threads; use Time::HiRes qw( usleep ); use Counter; sub thread_main { for (1 .. 5) { usle

• perl