perl对微信语音信息的处理，以及将语音信息合并

小弟，最近迷恋上了微信，与女友聊天基本都是微信，但是一条一条信息听起来太麻烦，小弟就设想能否将信息一条一条按照顺序，合并起来。但是不得不吐槽的是微信的语音存放文件夹太恶心了，名字毫无顺序，每个文件夹下还有子文件夹。有了思路，那就行动吧，首先从微信散乱的文件夹下，提取出AMR语音信息文件，并按修改时间重命名。这些工作当然用小弟熟悉的perl语言完成了，虽然小弟不甚熟练，但是基本操作还能胜任。贴出，脚本。

# File: bianli.pl
# Author: zhajio
use warnings;
use File::Copy;
sub lsr($) {
? ? sub lsr;
? ? my $cur = shift;
??? local *DH;
? ? if (!opendir(DH,$cur)) {
? ? ? ? warn "Cannot opendir $cur: $! $^E";
? ? ? ? return undef;
? ? }
? ? foreach (readdir(DH)) {
? ? ? ? if ($_ eq '.' || $_ eq '..') {
? ? ? ? ? ? next;
? ? ? ? }
? ? ? ? my $file = $cur."".$_;
? ? ? ? if (!-l $file && -d _) {
? ? ? ? ? ? $file .= "";
? ? ? ? ? ? lsr($file);
? ? ? ? }
? ? ? ? process($file,$cur);
? ? }
? ? closedir(DH);
}
my ($size,$dircnt,$filecnt) = (0,0);
sub process($$) {
??? my $file = shift;
??? #print $file,"n";
??? if (substr($file,length($file)-1,1) eq "") {
??????? $dircnt++;
??? }
??? else {
??????? $filecnt++;
??????? $size += -s $file;
if($file=~/msg_.*/){
move($file,"C:"."".Users."".Administrator."".Desktop."".voice2);
}
??? }
}
lsr('.');
print "$filecnt files,$dircnt directory. $size bytes.n";

下面这个是重命名脚本:

use File::Copy ;
@Files = glob "*";
foreach $file (@Files){
if($file=~/msg_.*/){
$i=$i+1;
($sec,$min,$hour,$mday,$mon,$year) = ?(localtime((stat"$file")[9]))[0..5];
($sec,$year) = (
sprintf("%02d",$sec),
sprintf("%02d",$min),$hour),$mday),
sprintf("%02d",$mon + 1),
$year + 1900
????????????????????????????????????????????????????????????? ?);
?????? print "$file"."n";? ? ?
? ? ? ?print "$year$mon$mday$hour$min$secn";
???????rename($file,"$year$mon$mday$hour$min$sec.amr");
}
}

然后就是将AMR文件转换为MP3文件，这种软件很多啦，但是建议选择可以批量转换的，不然太麻烦。

然后的然后，就是找语音文件合并的工具了，小弟找到是QQ影音，工具里的音视频合并。很好用。如图。

大功告成。