初尝Perl -- 使用aapt给apk软件包批量重命名

不知道什么是Perl猛戳这个链接 http://zh.wikipedia.org/wiki/Perl

   任务：    
           随着手机/平板的各方面性能的不断发展（CPU，内存，存储），Android这个移动领域绝对的霸主也升级到了4.1版本，软硬件的提高意味着人们对使用体验有了越来越高的要求，在移动设备里面安装的App也越来越多，但是Android总是以刷机为乐趣的，每次刷机就意味着要备份软件（这里不讨论软件数据的备份），也就意味着备份apk，apk一多，管理起来就成了一件头痛的事情，最起码的，我们要知道我们都备份了哪些apk，最最起码要知道它们叫什么名字，因为不管在windows还是linux平台下面，都是无法直接解析apk的名字的。所以不管你是以什么样的方式备份出来的apk，它总不可能是按你的要求来命名的，今天的目标/任务就是把apk按你的要求来命名。

    方法：
           由于在windows/linux上无法直接通过系统的文件管理器解析apk的名字等等属性，所以必须要借助别的工具，这其中最好的必须是Google自家的aapt工具，不知道aapt是什么？猛戳这个链接http://www.ltesting.net/ceshi/ceshijishu/sjcs/android/2012/0511/204843.html。aapt可以直接读取出来一个apk的各种属性，比如AndroidManifest.xml里面定义的包名，软件名，版本号，使用的权限等等信息。使用aapt读取出来的信息是一大堆，所以必须要使用正则表达式的模式匹配获取我们所需要的信息，然后再根据要求来给相应的apk重命名。注意，这个地方是要给当前目录下所有的apk自动重命名，所以，必然要用到for语句（在perl里面是foreach）。

   先介绍一下aapt的使用。这里只介绍用到的功能，dump，具体命令是aapt d(ump) badgingmms.apk。它会打印出如下的信息：

package: name='com.elsdoerfer.android.autostarts' versionCode='24'versionName=