不确定这个问题该 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 跑却没事情
麻烦版上的大神们能帮忙指点迷津
感谢~

有点小叉题但想请教一下 在几种呼叫其他程式的方法中也就是 system(), exec(), qr//, IPC:: 之类等等，原po是比较过python和perl的ipc, fork, 有无shell中介..等等机制后 采用了python中和perl的system()的对等指令后才说是“相同的逻辑，用 Python 跑却没事情”这样的叙述是吗回到原题，试试 system LIST 或 exec跑看看囉另外return value，$OS_ERROR(with use ENGLISH)的也都看看会比较好吧*第二列推文的 qr// 要改成 qx//黄色的那一列是想表达 system('adb shell ls') 执行后会停在那一列，不会进行到下一列是吗？对了 我想你17~27列的程式会那样是因为档案$test不在,所以Q_Q如果你对 adb shell的回传值有疑惑的话 http://x.co/7o1Rt但是那文章描述的问题我认知上似乎与你的只是类似 但不同另外我猜你的OS是win系列 这样就与un*x的fork有大大的不同只是顺道一提 和要解决你的case应该没有很大的关联吧...

不是档案不存在, 是 "$test file 真的被 adb.exe 使用"才造成砍档失败。想要砍档成功,只能先 kill-server另外我目前遇到的问题的确是在 win series晚一点会在 linux 上用 emulator 试看看有没有同样问题