2017-04-14から1日間の記事一覧
#!/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"; # 変数とか定…
#!/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"; # 変数とか定…
