Perlでマルチスレッドプログラミング１

とりあえず返り値ではまったので

#!perl
# vim: set ts=4 :
use strict;
use warnings;
use threads;
exit main();
sub main
{
    sub going { return (1,2,$_[0]);}
    sub going2{ return 3 };

    my @thrs;
    push @thrs, threads->new({'context' => 'list'  }, \&going, "going");
    push @thrs, threads->new({'context' => 'scalar'}, \&going2, "going2");

    foreach (@thrs) {
        my ($a, $b, $c) = $_->join();
        $b //= ""; $c //= "";
        print "$a,$b,$c\n";
    }
    return 0;
}

• 参考
  • perlthrtut - Perl におけるスレッドのチュートリアル - perldoc.jp
  • Perlでスレッド処理を行うサンプル少し - ナマアシタノム
  • threads - Perl のインタプリタベースのスレッド - perldoc.jp
  • Perlのithreads（iスレッド）に関するメモ
    • Thread::Queue - スレッドセーフなキュー（待ち行列） - perldoc.jp
    • Thread::Running - スレッドが実行中かどうかを非ブロックで調べる - perldoc.jp

...modelinesって割りと厳しい
☓ #vim:set ts=4 :
☓ # vim : set ts=4 :