でこーど

>| $bitassign{'02'} = [ {start => 2.1, len => 5, name => 'dat1', printfunc => \&printBit_ox_5},{start => 3.3, len => 5, name => 'dat2', printfunc => \&printBit_ox_5},{start => 3.2, len => 1, name => 'Test', printfunc => \&printTest},{start…

2017-04-14

しんごうそうしんとすれっどのれんしゅう

#!/usr/bin/perl use strict; use Time::HiRes qw/usleep/; use threads; use Thread::Queue; use IO::Socket; use IO::Select; # コマンドパラメータにしようと思ってまだ出来てないとこ my $threadnum=10; my $cps=50; my $scenario="hoge"; # 変数とか定…

2014-09-09

テスト

てすと