Perl微信语音提取脚本

Perl 写的微信语音提取脚本,适合搞安卓备份的朋友。你要是手机是 HTC DHD 这种老型号,微信的voice目录下面一大堆乱七八糟的子文件夹,手动找语音文件简直要疯。这个脚本就比较实用了,递归遍历这些文件夹,一层一层往下找,把真正的音频文件都列出来。

脚本逻辑挺清晰的,主要就是用opendirreaddir配合正则来过滤.amr文件。你可以方便地把这些文件拷出来做备份,或者转码成 MP3 随便听。适合熟点 Perl 的朋友改着用,扩展性也挺强。

哦对,如果你想看其它语言怎么搞,比如PHPVBMFC都有类似思路的例子,可以看看下面这些文章:

如果你也是平时喜欢搞点备份工具,或者在微信语音清理这块有需求,试试这个思路。顺手还能练练 Perl 脚本文件的基本功,一举两得。

pl 文件大小:998B