view release on metacpan or  search on metacpan

script/electric-sheep-pull-app-apk.pl  view on Meta::CPAN

  my $arr = $res->{$pname};
  for my $v (@$arr){
	$Napks++;
	if( $VERBOSITY > 0 ){ print STDOUT "$0 : package '$pname' : saved apk ${Napks} from '".$v->{'device-path'}."' into '".$v->{'local-path'}."'.\n" }
  }
}
print STDOUT "$0 : done, success! Extracted ${Napks} APK(s) from ${Npackages} packages, written to output dir '$OUTDIR'.\n";

sub usage {
	return "Usage $0 --package NAME --output apkdir --configfile CONFIGFILE [--wildcard] [--device DEVICE] [--verbosity v]\n"
		. "\nThis script will pull the APK(s) of the specified package NAME into the local dir 'OUTPUT'. The package NAME can be the full package name, e.g. 'com.android.gallery2' or a part of it, e.g. 'gallery'. Use --wildcard option if you want to match ...
		. "\nExample:\n"
		. "  match all packages with 'gallery2' in their name:\n"
		. "$0 --configfile config/myapp.conf --output apkdir --package 'calendar2' --wildcard\n"
		. "\n  match the package name 'com.android.gallery2' exactly:\n"
		. "$0 --configfile config/myapp.conf --output apkdir --package 'com.android.gallery2'\n"
		. "\nProgram by Andreas Hadjiprocopis (c) 2025 / bliako at cpan.org / andreashad2 at gmail.com\n\n"
	;
}

1;