Perl kullanarak android'den Aygıt Kimliği Al

Question

Dizüstü bilgisayarıma bağlı 3-4 android cihazım var (Windows'ta çalışan ADB ile). Artık tüm bu cihazlarda aynı anda Youtube uygulamasını tetiklemek ve belirli bir süre için belirli bir süre boyunca çalıştırmak istiyorum. Komut, bağlı cihazları okuyacak ve uygulamayı kendi başına tetikleyecektir.

Gereksinim: dışarı Benzersiz Cihaz Kimliği alıp bir yere saklayın ve programlama benim kalanı için kullanabileceğiniz bir yolu var mı? Örneğin

: C: \ Kullanıcılar \ Arka.B> ADB cihazlar takılı cihazların listesi

94e38259 cihaz

94e38260 cihazı 2

94e38261 tertibatı 3

94e38262 aygıt 4

Sorular:

• Nasıl bu benzersiz cihaz kimliği çıkar mı bu cihazların her birinden (94e38259, bu durumda 94e38260, vs) ve bir uygulamayı başlatma veya bir APK yükleme gibi diğer bazı eylemleri tetiklemek?

Answer 1

Aşağıdaki komut dosyası kullanarak aygıt kimlikleri saklayabilirsiniz:

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