デバイスのシリアル番号を格納し、adbを使用してapkをインストールするPerlスクリプト

Question

私がしたいのは、デバイスのシリアル番号を取得し、アレイまたはリストに格納することです。それから私は私のシステムに接続する様々なアンドロイドデバイスに私のAPKをインストールしたい。私はこれを行うことができるPerlスクリプトを作ろうとしている。このような

何か：

if($ostype eq 'MSWin32') { 

    system("title Android"); 

    $adbcommand_devices = "adb devices"; 

    $adbcommand_install = "adb -s xxxxxxxx install HelloWorld.apk"; 
} 

    if(`adb -s xxxxxxxx get-state` =~ m/device/i) { 
      system($adbcommand_devices);    
      system($adbcommand_install); 

     } 
else { 
    print "Device is offline\n"; 
} 

シリアル番号は、現在接続しているデバイスから来る必要があります。ここで

Answer 1

がIPC::Run3を使用してちょうどadb devicesコマンドの例です。このたくさんの

use strict; 
use warnings qw(all); 

use IPC::Run3; 
use Carp qw(croak confess cluck); 
use Data::Dumper; 

my $ADB_PATH = '/path/to/adb'; # EDIT THIS 

my @devices = get_devices(); 
print Dumper(\@devices); 
exit 0; 

# subs 
sub get_devices { 
    my $adb_out; 
    run3 [$ADB_PATH, 'devices'], undef, \$adb_out, undef; 
    $? and cluck "Warning: non-zero exit status from adb ($?)"; 

    my @res = $adb_out =~ m/^([[:xdigit:]]+) \s+ device$/xmg; 
    return wantarray ? @res : \@res; 
} 

、あなたにもqx/``を使用することができます。たとえば、run3をmy $adb_out = `$ADB_PATH devices`;に置き換えることができます（これに何かを渡す必要はなく、シェルを避ける必要もないため）。