手抜き方法 $ sudo vi /System/Library/Perl/5.12/darwin-thread-multi-2level/IO/Handle.pm 460 sub syswrite { 461 @_ >= 2 && @_ <= 4 or croak 'usage: $io->syswrite(BUF [, LEN [, OFFSET]])'; 462 if (defined($_[2])) { 463 syswrite($_[0], $_[1], …