【Perl】複数対象に並列処理でPing死活監視 - Qiitause threads; foreach my $i(0 .. $#targetList){ my $thread = threads->new( ¥&runPing, $targetList[$i]->[0], $targetList[$i]->[1], $targetList[$i]->[2], $targetList[$i]->[3] ); push(@threads, $thread); } foreach(@threads){ $_->join; } use strict; use warnings; use threads; use Time::HiRes; my $file = shift; unless ($file) { die "Usage: ¥$ perl $0 <file>.¥n"; } my @threads; my $target = ['ip','name',
