PackageCui

BeanShell

source("/sdcard/com.googlecode.bshforandroid/extras/bsh/android.bsh");
droid = Android();
pack = droid.call("getRunningPackages").get("result");
for (i = 0;i<pack.length();i++) {
  print((i+1)+"."+pack.get(i)+"/ver."+droid.call("getPackageVersion",pack.get(i)).get("result"));
}

Bex

include("/sdcard/com.googlecode.bexforandroid/extras/bex/android.bex")
droid = Android()
pack = droid.call("getRunningPackages").get("result")
i = 0
while { i<pack.length() } {
  print((i+1)+"."+pack.get(i)+"/ver."+droid.call("getPackageVersion",pack.get(i)).get("result"))
  i++
}

Erlang

-module(packageCui_Erlang).
-export([main/0]).
main()->
  {array,Pack} = android:getRunningPackages(),
  packloop(1,Pack).

packinfo(I,Pack) ->
      io:fwrite("~p.",[I]),
      io:fwrite("~s/ver.",[lists:nth(I,Pack)]),
      io:fwrite("~s\n",[android:getPackageVersion(lists:nth(I,Pack))]).

packloop(I,Pack) ->
  if
    I < length(Pack) ->
      packinfo(I,Pack),
      packloop(I+1,Pack);
    true ->
      packinfo(I,Pack)
  end.

Html and JavaScript

<HTML><HEAD><SCRIPT>
var droid = new Android();
var pack = droid.getRunningPackages().result;
document.write("<SPAN style=font-size:small>");
for (var i = 0;i<pack.length;i++) {
  document.write((i+1)+"."+pack[i]+"/ver.");
  document.write(droid.getPackageVersion(pack[i]).result);
  document.write("<BR>");
}
document.write("</SPAN>");
</SCRIPT></HEAD><BODY></BODY></HTML>

JRuby

droid = Android.new
pack = droid.getRunningPackages()['result']
for i in 0..pack.length-1
  puts "#{i+1}."+pack[i]+"/ver."+"#{droid.getPackageVersion(pack[i])['result']}"
end

JScheme

(import "com.googlecode.rpc.*")
(define droid (com.googlecode.rpc.Android.))
(define pack (.get (.call droid "getRunningPackages") "result"))

(let loop ((i 0))
  (if (< i (.length pack))
    (begin
      (.println System.out$ 
        (string-append 
          (string-append 
            (string-append 
              (string-append (+ i 1) 
              ".") 
            (.get pack i))
          "/ver.")
        (.get (.call droid "getPackageVersion" (.get pack i)) "result"))
      )
      (loop (+ i 1))
    )
  )
)
(exit)

Jawk

import com.googlecode.rpc.*;
BEGIN{
  droid = new Android();
  pack = droid.call("getRunningPackages").get("result");
  print pack.length()
  for (i = 0;i<pack.length();i++) {
    printf "%d.%s/ver.%s\n",(i+1),pack.get(i),droid.call("getPackageVersion",pack.get(i)).get("result")
  }
}

Lua

require "android"
pack = android.getRunningPackages().result
for i=1,table.maxn(pack),1 do
  info = i.."."..pack[i].."/ver."
  version = android.getPackageVersion(pack[i]).result
  if ( version == nil ) then
  else
    info = info..version
  end
  print(info)
end

PHP

<?php 
require_once("Android.php");
$droid = new Android();
$pack = $droid->getRunningPackages();
for ($i=0;$i<count($pack["result"]);$i++){
  $name = $pack["result"][$i];
  $pac = $droid->getPackageVersion($name);
  print("".($i+1).".".$name."/ver".$pac["result"]."\n");
}
?>

Perl

use Android;
my $droid = Android->new();
my $pack = $droid->getRunningPackages();
for $i ( 0 .. @{ $pack->{'result'} }-1 ) {
  my $name = $pack->{'result'}[$i];
  my $pac = $droid->getPackageVersion($name);
  print "".($i+1).".".$name."/ver".$pac->{'result'}."\n";
}

Python

import android
droid = android.Android()
pack= droid.getRunningPackages()
for i in pack.result :
  print str(droid.getPackageVersion(i).id)+"."+i+"/ver"+str(droid.getPackageVersion(i).result)

Rhino

load("/sdcard/com.googlecode.rhinoforandroid/extras/rhino/android.js");
var droid = new Android();
var pack = droid.getRunningPackages();
for (var i = 0;i<pack.length;i++) {
  print((i+1)+"."+pack[i]+"/ver."+droid.getPackageVersion(pack[i]));
}

Shell

Not solved. Please send me answers if you have.

Sleep

import com.googlecode.rpc.*;
$droid = [new Android];
$pack = [[$droid call : "getRunningPackages"] get : "result"];
for ( $i = 0 ; $i < [$pack length] ; $i++ ) {
  $name = [$pack get : $i];
  $pac = [$droid call : "getPackageVersion",$name];
  println(($i + 1).".".$name."/ver".[$pac get : "result"]);
}

Squirrel

android <- Android();
local pack = android.getRunningPackages().result;
for (local i = 0;i<pack.len();i++) {
  print((i+1)+"."+pack[i]+"/ver."+android.getPackageVersion(pack[i]).result+"\n");
}

Tcl

source /sdcard/com.googlecode.tclforandroid/extras/tcl/android/android.tcl
set droid [android]
set pack [$droid getRunningPackages]
for {set i 0} {$i<[llength $pack]} {incr i 1} {
  puts "[expr $i+1].[lindex $pack $i]/ver.[$droid getPackageVersion [lindex $pack $i] ]"
}

unset droid
unset pack
return