perlを使用してアンドロイドからデバイスIDを取得

Question

私はノートパソコンに3〜4台のアンドロイドデバイスを接続しています（WindowsではADBを使用しています）。今私はすべてのこれらのデバイス上でYoutubeアプリケーションを同時に起動し、特定の時間、特定の時間に実行したいと思います。スクリプトは、接続されているデバイスを読み取り、独自のアプリケーションを起動します。

要件： は、私が出て一意のデバイスID取るとどこかに保存し、プログラミングの私の残りのためにそれを使用することができます方法はありますか？例えば

： C：\ユーザー\ Arka.B> ADBデバイス接続されたデバイスのリスト

94e38259デバイス

94e38260装置2

94e38261装置3

94e38262装置4

質問：私は、これらのデバイスのそれぞれから、この一意のデバイスID（この場合は94e38259、94e38260など）を取り出して、アプリを起動するか、APKをインストールするようないくつかの他のアクションをトリガーするにはどうすればよい

• ？

Answer 1

次のスクリプト使用してデバイスIDを保存することができます。

my $output = `adb devices`; 
my @devices = split("\n", $output); 
my @deviceids; 
foreach(@devices){ 
    chomp($_); 
    push(@deviceids, $1) if($_ =~ /(.+)\s+device$/); 
}