android perl boilerplate


#!/data/data/com.android.perl/files/perl/perl

use strict;
use warnings;

use Android;
use Data::Dumper;

my $droid = Android->new();

#print Dumper $droid->wifiGetScanResults();
#print Dumper $droid->readPhoneState();
#print Dumper $droid->getDeviceId();

for my $f qw ( checkNetworkRoaming
getCellLocation
getDeviceId
getDeviceSoftwareVersion
getLine1Number
getNeighboringCellInfo
getNetworkOperator
getNetworkOperatorName
getNetworkType
getPhoneType
getSimCountryIso
getSimOperator
getSimOperatorName
getSimSerialNumber
getSimState
getSubscriberId
getVoiceMailAlphaTag
getVoiceMailNumber
prefGetAll
getScreenTimeout
) {
print "$f\n";
print Dumper $droid->$f;
}

Leave a Reply

*
To prove that you're not a bot, enter this code
Anti-Spam Image

Subscribe without commenting