use strict;

use warnings;

use Data::Dumper;

use threads ('stack_size' => 1*1024*1024);

use threads::shared;

my $thr;

for(1..10){

       $thr = threads->create(\&sub1);

}

#my $ReturnData = $thr->join;

my $ReturnData;

    foreach ( threads->list) {

        $ReturnData =  $_->join();

一个文件

hello

world

for

the 

rine

perl -ne 'print $_' /tmp/test

会输出

hello

world

for

the 

rine

原理，/tmp/test的每一个行作为一次执行的参数。n会在后台自动多次执行，直到文件结束

perl -nae 'print $_' /tmp/test

会自动auto splite $_

strtime is very useful for formatting the date returned by localtime

土线程池的经典结构

几个注意的原则

函数集

①prep

②lc

先ず

①・ｔｒ// と　s//の区別を詳しくのは分からないこと。tr//はコードーの変換する場合だけを使うと思います