试试把 system(...) 改成这样看看
就是强迫开启shell来执行外部程式
system('cmd /c start "adb" adb shell ls') ;
或者用替代方案 就是把档案锁起来
use 5.016 ;
use Fcntl qw/:DEFAULT :flock/ ;
use autodie ;
open my $out_file, '>' , "out.log" ;
flock($out_file, LOCK_EX); # *1
# 呼叫外部程式
# (... 做些和输出到$out_file有关的事...)
undef $out_file ;
*1 在windows NT 这一行会让lock变mandatory, 不是 un*x 的 advisory
所以不怕外部程式不先检查flock
只是这样的作法要倚赖外部程式能够恰当地处理遇到file lock的情形
另外个人觉得比较有可能是adb一侧比较怪异
※ 引述《doom8199 (口卡口卡　修)》之铭言：
: 标题: [问题] adb process 莫名咬住 created file
: 时间: Fri Feb 20 01:46:05 2015
: 不确定这个问题该 po 到 Android 还是 Perl 版
: 最近用 Perl 写有关 adb debugging 遇到一个诡异的问题
: 就是执行 perl 途中， adb process 会咬住 file created from perl
: 后来把问题 narrow down 成以下 script:
: =================================
: use strict;
: my $test = "out.log";
: system("adb kill-server"); # (1)
: open FILE, "> $test"; # (2)
: system("adb shell ls"); # (3)
: close FILE;
: unlink $test or die "Q_Q\n";
: =================================
: 只要执行该 script, console 一定会显示 Q_Q
: (当然前提是 找的到 adb 程式 和 usb driver)
: 但若只要在 open file 前, 让 adb daemon 可以起来
: 例如在 #(1) 和 #(2) 之间呼叫 adb remount:
: =================================
: system("adb kill-server"); # (1)
: system("adb remount"); # (4)
: open FILE, "> $test"; # (2)
: =================================
: 这样的 script 就不会印出 Q_Q 了
: 不知道是不是因为 adb 起来的时候动到 file descriptor
: 让档案以为是 adb.exe 叫起来
: 但相同的逻辑，用 Python 跑却没事情
: 麻烦版上的大神们能帮忙指点迷津
: 感谢~
: