2013年5月15日星期三

Re: Re:Re: Re:Re: Re: [PerlChina] Re: perl音频处理

纯音频,audacity 比较专业。

mencoder是万能视频处理的。mplayer原来自带的组件。ffmpeg是后起之秀而已。

在 Wed, 15 May 2013 22:22:11 +0800,kevin_li <xiaohuidexinge@163.com> 写道:

搜了一下 mencoder 好像只是个 处理视频的东西 是吧?
它可以做  把 一定音域内的音频分离出来的功能么?

Re:Re: Re:Re: Re: [PerlChina] Re: perl音频处理

搜了一下 mencoder 好像只是个 处理视频的东西 是吧?
它可以做  把 一定音域内的音频分离出来的功能么?




在 2013-05-15 15:28:17,eexpress <eexp01@gmail.com> 写道:
mencoder不就是。

在 Wed, 15 May 2013 15:25:17 +0800,kevin_li <xiaohuidexinge@163.com> 写道:

我知道 ffmpeg 可以切割音/视频, 可以从视频里分离 音频出来,可以转音/视频 格式。
有可以把比如 一定音域内的音频分离出来的功能么?




在 2013-05-15 09:30:36,topeak <topeak95@gmail.com> 写道:
用 ffmpeg 可以


在 2013年5月12日上午12:18,kevin_li <xiaohuidexinge@163.com>写道:
这么晚还没睡呐,呵呵
非常非常感谢:)  我尝试下这个路子~~



在 2013-05-11 23:01:42,"Anthony WU" <anthonywuy2k@gmail.com> 写道:

我並非這個專業,也沒有做過有關項目,但以前看過有關聲音處理的理論

做法大概就是把 mp3 轉成 pcm 然後經由 fft 功能分析有關波形頻率,把人所發出的聲音頻率範圍分析出來,然後過濾再儲存

以下是在網上找的人聲頻率範圍的資料,僅供參考

 男:低音82~392Hz,
      基準音區64~523Hz
      男中音123~493Hz
      男高音164~698Hz

女:低音82~392Hz
      基準音區160~1200Hz
      女低音123~493Hz
      女中音164~698Hz
      女高音220~1.1KHz

-------- Original Message --------
Subject: Re: [PerlChina] Re: perl音频处理
From: kevin_li <xiaohuidexinge@163.com>
To: perlchina@googlegroups.com
Date: 11/5/2013 22:50
哦 这个意思呀
我是说 如果没有现成的工具,我只能读取mp3的每帧数据,然后自己把简单的大概人声范围,或者非人声范围过滤出来
然后再相消干涉算另外一半出来,这样  两部分就分开了,
不知道这么做是否可行。。。。


在 2013-05-11 19:10:25,"Anthony WU" <anthonywuy2k@gmail.com> 写道:
檔案格式轉換,例如 mp3 轉 wav

-------- Original Message --------
Subject: Re: [PerlChina] Re: perl音频处理
From: kevin_li <xiaohuidexinge@163.com>
To: perlchina@googlegroups.com
Date: 11/5/2013 15:48
那 应该从哪里开始呢?

请教"轉檔實現" 是什么意思呢? 呵 呵



在 2013-05-11 14:22:40,"Anthony WU" <anthonywuy2k@gmail.com> 写道:
先不要想 mp3 或什麼格式,格式這些可以經由轉檔實現
-------- Original Message --------
Subject: Re: [PerlChina] Re: perl音频处理
From: kevin_li <xiaohuidexinge@163.com>
To: perlchina@googlegroups.com
Date: 11/5/2013 13:18
谢 谢, 不过我想要工具类的,这样我可以批量处理,
而且 我想背景音乐跟人声都 分别保留,

如果是gui 工具的话,昨天找到 cooledit 可以做原音乐-伴奏做相消干涉,提取人声。
但是这个还需要有原伴奏,还是gui,而且我其实也不需要这么精确的抽取人声,大概就可以 呵呵。

我想找的工具类似是

$>工具 MTV文件 ===》 背景音乐.mp3 + 人声.mp3 (结果不需要太准确)
如果能找到前人做过的 最好了~~!!
我对mp3文件格式,波形什么的  目前完全不清楚。。。如果实在没有就只能自己 摸索着来了。。。。


在 2013-05-11 10:53:07,climby <mdengfeng@gmail.com> 写道:

可以用 http://www.soft-zilla.com/2011/04/free-vocal-remover.html
试试.

在 2013年5月10日星期五UTC+8下午3时15分47秒,kevin_li写道:
perl 有没有把音频文件(比如mp3)中的背景音乐跟人声 分离的模块?
或者有什么工具能做这种事情?
比如我有一手歌,处理一下,可以保存成一个纯音乐文件,一个 人声文件,不需要 特别准确,过 的去就好 呵呵
如果有大牛接触过 ,指点一二 无比感谢:)


--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com /group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com /groups/opt_out。
 
 


--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com /group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com /groups/opt_out。
 
 

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com /group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com /groups/opt_out。
 
 


--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com /group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com /groups/opt_out。
 
 

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com /group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com /groups/opt_out。
 
 


--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com /group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com /groups/opt_out。
 
 

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com/group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com/groups/opt_out。
 
 


--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com/group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com/groups/opt_out。
 
 



--
Regards
he
--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com/group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com/groups/opt_out。
 
 


--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com/group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com/groups/opt_out。
 
 



--
使用Opera的电子邮件客户端:http://www.opera.com/mail/

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com/group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com/groups/opt_out。
 
 


--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com。
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com。
通过以下网址访问此论坛:http://groups.google.com/group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com/groups/opt_out。
 
 

Re: [PerlChina] 用perl对文本的列进行处理的问题

如果不介意用其他的模块,类似的可以用,
Tie::Array::CSV
http://blogs.perl.org/users/joel_berger/2012/02/why-would-i-use-tiearraycsv.html

免去IO的麻烦,直接当作二维数组来操作。

2013/5/15 Li Xiangchen <lixiangchenxy@gmail.com>
您说的很对,谢谢~
在 Wed, 15 May 2013 21:11:00 +0800,Roger <jirong1987@gmail.com> 写道:


在理:-)

Sent from my Sony Xperia(tm) smartphone smartphone

夏凯 <walkerxk@gmail.com> wrote:

On 2013年05月15日 20:04, Anthony WU wrote:
use POSIX qw/ceil/;
@line = <>;
chomp (@line);
print join ("\t", @line[$_ * 20 .. $_ * 20 + 20]) . "\n" for
(0..ceil($#line/20));
其实我想说一点,大家的热情是可以理解的,不过直接给代码很不好,授人以鱼不
如授人以渔,他又不是很紧急,应该让他自己去思考,给他思路就行了。
否则到时候一大堆简单的需求,要你们给出代码。

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com/group/perlchina?hl=zh-CN
要查看更多选项,请访问 https://groups.google.com/groups/opt_out





--
使用Opera的电子邮件客户端:http://www.opera.com/mail/


--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com/group/perlchina?hl=zh-CN
要查看更多选项,请访问 https://groups.google.com/groups/opt_out



--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com。
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com。
通过以下网址访问此论坛:http://groups.google.com/group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com/groups/opt_out。
 
 

Re: [PerlChina] 用perl对文本的列进行处理的问题

您说的很对,谢谢~
在 Wed, 15 May 2013 21:11:00 +0800,Roger <jirong1987@gmail.com> 写道:

> 在理:-)
>
> Sent from my Sony Xperia(tm) smartphone smartphone
>
> 夏凯 <walkerxk@gmail.com> wrote:
>
>> On 2013年05月15日 20:04, Anthony WU wrote:
>>> use POSIX qw/ceil/;
>>> @line = <>;
>>> chomp (@line);
>>> print join ("\t", @line[$_ * 20 .. $_ * 20 + 20]) . "\n" for
>>> (0..ceil($#line/20));
>> 其实我想说一点,大家的热情是可以理解的,不过直接给代码很不好,授人以鱼不
>> 如授人以渔,他又不是很紧急,应该让他自己去思考,给他思路就行了。
>> 否则到时候一大堆简单的需求,要你们给出代码。
>>
>> --
>> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers
>> 讨论组"论坛。
>> 要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到
>> perlchina+unsubscribe@googlegroups.com
>> 要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
>> 通过以下网址访问此论坛:http://groups.google.com/group/perlchina?hl=zh-CN
>> 要查看更多选项,请访问 https://groups.google.com/groups/opt_out
>>
>>
>


--
使用Opera的电子邮件客户端:http://www.opera.com/mail/

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com/group/perlchina?hl=zh-CN
要查看更多选项,请访问 https://groups.google.com/groups/opt_out

Re: [PerlChina] 用perl对文本的列进行处理的问题

在理:-)

Sent from my Sony Xperia(tm) smartphone smartphone

夏凯 <walkerxk@gmail.com> wrote:

>On 2013年05月15日 20:04, Anthony WU wrote:
>> use POSIX qw/ceil/;
>> @line = <>;
>> chomp (@line);
>> print join ("\t", @line[$_ * 20 .. $_ * 20 + 20]) . "\n" for
>> (0..ceil($#line/20));
>其实我想说一点,大家的热情是可以理解的,不过直接给代码很不好,授人以鱼不
>如授人以渔,他又不是很紧急,应该让他自己去思考,给他思路就行了。
>否则到时候一大堆简单的需求,要你们给出代码。
>
>--
>您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
>要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
>要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
>通过以下网址访问此论坛:http://groups.google.com/group/perlchina?hl=zh-CN
>要查看更多选项,请访问 https://groups.google.com/groups/opt_out
>
>

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com/group/perlchina?hl=zh-CN
要查看更多选项,请访问 https://groups.google.com/groups/opt_out

Re: [PerlChina] 用perl对文本的列进行处理的问题

On 2013年05月15日 20:04, Anthony WU wrote:
> use POSIX qw/ceil/;
> @line = <>;
> chomp (@line);
> print join ("\t", @line[$_ * 20 .. $_ * 20 + 20]) . "\n" for
> (0..ceil($#line/20));
其实我想说一点,大家的热情是可以理解的,不过直接给代码很不好,授人以鱼不
如授人以渔,他又不是很紧急,应该让他自己去思考,给他思路就行了。
否则到时候一大堆简单的需求,要你们给出代码。

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com/group/perlchina?hl=zh-CN
要查看更多选项,请访问 https://groups.google.com/groups/opt_out

Re: [PerlChina] 用perl对文本的列进行处理的问题

use POSIX qw/ceil/;
@line = <>;
chomp (@line);
print join ("\t", @line[$_ * 20 .. $_ * 20 + 20]) . "\n" for
(0..ceil($#line/20));

-------- Original Message --------
Subject: [PerlChina] 用perl对文本的列进行处理的问题
From: Li Xiangchen <lixiangchenxy@gmail.com>
To: perlchina@googlegroups.com
Date: 15/5/2013 17:39
> 我有一个文本,里面数据是这样:
> 0.924
> 0.609
> 0.742
> 0.808
> 0.832
> 0.866
> 0.61
> 0.584
> 0.854
> 0.91
> 0.863
> 0.706
> 0.925
> 0.719
> 0.828
> 0.701
> 0.761
> 0.795
> 0.717
> 0.7
> 0.968
> 0.604
> 0.751
> 0.825
> 0.844
> 0.863
> 0.621
> 0.568
> 0.876
> 0.917
> ...
> 我想没隔20行,提取一组数据,然后把文本变成如下形式的:
> 0.924 0.968 0.712 0.911 0.939
> 0.609 0.604 0.685 0.873 0.912
> 0.742 0.751 0.633 0.561 0.581
> 0.808 0.825 0.678 0.807 0.744
> 0.832 0.844 0.654 0.763 0.831
> 0.866 0.863 0.676 0.842 0.847
> 0.61 0.621 0.569 0.597 0.609
> 0.584 0.568 0.508 0.577 0.538
> 0.854 0.876 0.685 0.769 0.84
> 0.91 0.917 0.725 0.862 0.908
> 0.863 0.868 0.663 0.803 0.867
> 0.706 0.709 0.589 0.647 0.695
> 0.925 0.923 0.737 0.863 0.91
> 0.719 0.712 0.639 0.72 0.688
> 0.828 0.835 0.644 0.775 0.835
> 0.701 0.713 0.594 0.609 0.695
> 0.761 0.776 0.644 0.739 0.767
> 0.795 0.807 0.65 0.733 0.822
> 0.717 0.747 0.579 0.641 0.676
> 0.7 0.721 0.586 0.646 0.662
> 这样的每20行数据为一列,中间以制表符隔开的形式,但苦于刚学Perl不太会写
> 程序操作,还请朋友帮忙,谢谢!

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com/group/perlchina?hl=zh-CN
要查看更多选项,请访问 https://groups.google.com/groups/opt_out

Re: [PerlChina] 用perl对文本的列进行处理的问题

非常感谢,您的回复给予我很大的帮助!


2013/5/15 cheung mc <alaboszhang@gmail.com>







On 2013-5-15, at PM6:46, "Roger chen" <jirong1987@gmail.com> wrote:

> 写一个每行3个的,你可以调一下看看。
> while (<>){
> chomp ;
> push @a,$_;
> }
> $a=($#a+1)/3;
> for $x (0..$a){
> for $y (0..2){
> print "$a[$x*3+$y]\t";
> }
> print "\n";
> }
>
>
>
> 0.924   0.609   0.742
> 0.808   0.832   0.866
> 0.61    0.584   0.854
> 0.91    0.863   0.706
> 0.925   0.719   0.828
> 0.701   0.761   0.795
> 0.717   0.7     0.968
> 0.604   0.751   0.825
> 0.844   0.863   0.621
> 0.568   0.876   0.917
>
> -----邮件原件-----
> 发件人: perlchina@googlegroups.com [mailto:perlchina@googlegroups.com] 代表
> Li Xiangchen
> 发送时间: 2013年5月15日 17:39
> 收件人: perlchina@googlegroups.com
> 主题: [PerlChina] 用perl对文本的列进行处理的问题
>
> 我有一个文本,里面数据是这样:
> 0.924
> 0.609
> 0.742
> 0.808
> 0.832
> 0.866
> 0.61
> 0.584
> 0.854
> 0.91
> 0.863
> 0.706
> 0.925
> 0.719
> 0.828
> 0.701
> 0.761
> 0.795
> 0.717
> 0.7
> 0.968
> 0.604
> 0.751
> 0.825
> 0.844
> 0.863
> 0.621
> 0.568
> 0.876
> 0.917
> ...
> 我想没隔20行,提取一组数据,然后把文本变成如下形式的:
> 0.924 0.968   0.712   0.911   0.939
> 0.609 0.604   0.685   0.873   0.912
> 0.742 0.751   0.633   0.561   0.581
> 0.808 0.825   0.678   0.807   0.744
> 0.832 0.844   0.654   0.763   0.831
> 0.866 0.863   0.676   0.842   0.847
> 0.61  0.621   0.569   0.597   0.609
> 0.584 0.568   0.508   0.577   0.538
> 0.854 0.876   0.685   0.769   0.84
> 0.91  0.917   0.725   0.862   0.908
> 0.863 0.868   0.663   0.803   0.867
> 0.706 0.709   0.589   0.647   0.695
> 0.925 0.923   0.737   0.863   0.91
> 0.719 0.712   0.639   0.72    0.688
> 0.828 0.835   0.644   0.775   0.835
> 0.701 0.713   0.594   0.609   0.695
> 0.761 0.776   0.644   0.739   0.767
> 0.795 0.807   0.65    0.733   0.822
> 0.717 0.747   0.579   0.641   0.676
> 0.7   0.721   0.586   0.646   0.662
> 这样的每20行数据为一列,中间以制表符隔开的形式,但苦于刚学Perl不太会写程序操
> 作,还请朋友帮忙,谢谢!
> --
> 使用Opera的电子邮件客户端:http://www.opera.com/mail/
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论
> 坛。
> 要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到
> perlchina+unsubscribe@googlegroups.com
> 要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
> 通过以下网址访问此论坛:http://groups.google.com/group/perlchina?hl=zh-CN
> 要查看更多选项,请访问 https://groups.google.com/groups/opt_out
>
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
> 要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
> 要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
> 通过以下网址访问此论坛:http://groups.google.com/group/perlchina?hl=zh-CN
> 要查看更多选项,请访问 https://groups.google.com/groups/opt_out
>
>


--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com/group/perlchina?hl=zh-CN
要查看更多选项,请访问 https://groups.google.com/groups/opt_out




--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com。
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com。
通过以下网址访问此论坛:http://groups.google.com/group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com/groups/opt_out。
 
 

Re: [PerlChina] 用perl对文本的列进行处理的问题

On 2013年05月15日 19:14, 兴陆 林 wrote:
> 好像也可以用 format 实现。
这个我不清楚,其实我不懂perl,我只是给出一个算法,所有语言都能这样实现。

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com/group/perlchina?hl=zh-CN
要查看更多选项,请访问 https://groups.google.com/groups/opt_out

Re: [PerlChina] 用perl对文本的列进行处理的问题

好像也可以用 format 实现。

__END__
{
 $name = '林兴陆(@小林)';
 $qq = 28888888;
 $mail = 'i@lxl.cn';
 @tel = (1860135041013501281365);
 %url = (
  'website' => "http://www.yes123.com",
  'homepage' => "http://linxinglu.com"
 );
 # 信恩科技: 移动学习 寓教于乐
}

在 2013-5-15,19:09,"夏凯" <walkerxk@gmail.com> 写道:

On 2013年05月15日 17:39, Li Xiangchen wrote:
这样的每20行数据为一列,中间以制表符隔开的形式,但苦于刚学Perl不太会写 程序操作,还请朋友帮忙,谢谢!
一个hash,然后每次写入a[i" "j],i是行数-1除以20的余数,j是行数-1除以20的 结果,然后最后只要两个for循环把这个散列打印出来就行了。
比如数据是1-6,然后变成三行
a[0" "0]=1
a[1" "0]=2
a[2" "0]=3
a[0" "1]=4
a[1" "1]=5
a[2" "1]=6
for(i=0;i<2;i++)for(j=0;j<=col;j++),这样打印出来就是
1 4
2 5
3 6

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com/group/perlchina?hl=zh-CN
要查看更多选项,请访问 https://groups.google.com/groups/opt_out


Re: [PerlChina] 用perl对文本的列进行处理的问题

On 2013年05月15日 17:39, Li Xiangchen wrote:
> 这样的每20行数据为一列,中间以制表符隔开的形式,但苦于刚学Perl不太会写
> 程序操作,还请朋友帮忙,谢谢!
一个hash,然后每次写入a[i" "j],i是行数-1除以20的余数,j是行数-1除以20的
结果,然后最后只要两个for循环把这个散列打印出来就行了。
比如数据是1-6,然后变成三行
a[0" "0]=1
a[1" "0]=2
a[2" "0]=3
a[0" "1]=4
a[1" "1]=5
a[2" "1]=6
for(i=0;i<2;i++)for(j=0;j<=col;j++),这样打印出来就是
1 4
2 5
3 6

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com/group/perlchina?hl=zh-CN
要查看更多选项,请访问 https://groups.google.com/groups/opt_out

Re: [PerlChina] 用perl对文本的列进行处理的问题

#!/usr/local/bin/perl
use strict;
use warnings;

use Array::Split qw/split_by/;
my $rows = 5;

my @all_array = <DATA>;

my @sub_array = split_by( $rows, @all_array );

foreach my $index ( 0..$rows - 1 ) {
foreach my $sub ( @sub_array ) {
if ( defined $sub->[$index] ) {
chomp( $sub->[ $index ] );
print $sub->[ $index ],"\t";
}
}
print "\n";
}

__DATA__
0.924
0.609
0.742
0.808
0.832
0.866
0.61
0.584
0.854
0.91
0.863
0.706
0.925
0.719
0.828
0.701
0.761
0.795
0.717
0.7
0.968
0.604
0.751
0.825
0.844
0.863
0.621
0.568
0.876
0.917

答复: [PerlChina] 用perl对文本的列进行处理的问题

写一个每行3个的,你可以调一下看看。
while (<>){
chomp ;
push @a,$_;
}
$a=($#a+1)/3;
for $x (0..$a){
for $y (0..2){
print "$a[$x*3+$y]\t";
}
print "\n";
}



0.924 0.609 0.742
0.808 0.832 0.866
0.61 0.584 0.854
0.91 0.863 0.706
0.925 0.719 0.828
0.701 0.761 0.795
0.717 0.7 0.968
0.604 0.751 0.825
0.844 0.863 0.621
0.568 0.876 0.917

-----邮件原件-----
发件人: perlchina@googlegroups.com [mailto:perlchina@googlegroups.com] 代表
Li Xiangchen
发送时间: 2013年5月15日 17:39
收件人: perlchina@googlegroups.com
主题: [PerlChina] 用perl对文本的列进行处理的问题

我有一个文本,里面数据是这样:
0.924
0.609
0.742
0.808
0.832
0.866
0.61
0.584
0.854
0.91
0.863
0.706
0.925
0.719
0.828
0.701
0.761
0.795
0.717
0.7
0.968
0.604
0.751
0.825
0.844
0.863
0.621
0.568
0.876
0.917
...
我想没隔20行,提取一组数据,然后把文本变成如下形式的:
0.924 0.968 0.712 0.911 0.939
0.609 0.604 0.685 0.873 0.912
0.742 0.751 0.633 0.561 0.581
0.808 0.825 0.678 0.807 0.744
0.832 0.844 0.654 0.763 0.831
0.866 0.863 0.676 0.842 0.847
0.61 0.621 0.569 0.597 0.609
0.584 0.568 0.508 0.577 0.538
0.854 0.876 0.685 0.769 0.84
0.91 0.917 0.725 0.862 0.908
0.863 0.868 0.663 0.803 0.867
0.706 0.709 0.589 0.647 0.695
0.925 0.923 0.737 0.863 0.91
0.719 0.712 0.639 0.72 0.688
0.828 0.835 0.644 0.775 0.835
0.701 0.713 0.594 0.609 0.695
0.761 0.776 0.644 0.739 0.767
0.795 0.807 0.65 0.733 0.822
0.717 0.747 0.579 0.641 0.676
0.7 0.721 0.586 0.646 0.662
这样的每20行数据为一列,中间以制表符隔开的形式,但苦于刚学Perl不太会写程序操
作,还请朋友帮忙,谢谢!
--
使用Opera的电子邮件客户端:http://www.opera.com/mail/

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论
坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到
perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com/group/perlchina?hl=zh-CN
要查看更多选项,请访问 https://groups.google.com/groups/opt_out


--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com/group/perlchina?hl=zh-CN
要查看更多选项,请访问 https://groups.google.com/groups/opt_out

答复: [PerlChina] 用perl对文本的列进行处理的问题

先搞成每行20个,然后作矩阵转换(如果不是经常用或许excel就可以实现行列互
换。,

-----邮件原件-----
发件人: perlchina@googlegroups.com [mailto:perlchina@googlegroups.com] 代表
Li Xiangchen
发送时间: 2013年5月15日 17:39
收件人: perlchina@googlegroups.com
主题: [PerlChina] 用perl对文本的列进行处理的问题

我有一个文本,里面数据是这样:
0.924
0.609
0.742
0.808
0.832
0.866
0.61
0.584
0.854
0.91
0.863
0.706
0.925
0.719
0.828
0.701
0.761
0.795
0.717
0.7
0.968
0.604
0.751
0.825
0.844
0.863
0.621
0.568
0.876
0.917
...
我想没隔20行,提取一组数据,然后把文本变成如下形式的:
0.924 0.968 0.712 0.911 0.939
0.609 0.604 0.685 0.873 0.912
0.742 0.751 0.633 0.561 0.581
0.808 0.825 0.678 0.807 0.744
0.832 0.844 0.654 0.763 0.831
0.866 0.863 0.676 0.842 0.847
0.61 0.621 0.569 0.597 0.609
0.584 0.568 0.508 0.577 0.538
0.854 0.876 0.685 0.769 0.84
0.91 0.917 0.725 0.862 0.908
0.863 0.868 0.663 0.803 0.867
0.706 0.709 0.589 0.647 0.695
0.925 0.923 0.737 0.863 0.91
0.719 0.712 0.639 0.72 0.688
0.828 0.835 0.644 0.775 0.835
0.701 0.713 0.594 0.609 0.695
0.761 0.776 0.644 0.739 0.767
0.795 0.807 0.65 0.733 0.822
0.717 0.747 0.579 0.641 0.676
0.7 0.721 0.586 0.646 0.662
这样的每20行数据为一列,中间以制表符隔开的形式,但苦于刚学Perl不太会写程序操
作,还请朋友帮忙,谢谢!
--
使用Opera的电子邮件客户端:http://www.opera.com/mail/

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论
坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到
perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com/group/perlchina?hl=zh-CN
要查看更多选项,请访问 https://groups.google.com/groups/opt_out


--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com/group/perlchina?hl=zh-CN
要查看更多选项,请访问 https://groups.google.com/groups/opt_out

[PerlChina] 用perl对文本的列进行处理的问题

我有一个文本,里面数据是这样:
0.924
0.609
0.742
0.808
0.832
0.866
0.61
0.584
0.854
0.91
0.863
0.706
0.925
0.719
0.828
0.701
0.761
0.795
0.717
0.7
0.968
0.604
0.751
0.825
0.844
0.863
0.621
0.568
0.876
0.917
...
我想没隔20行,提取一组数据,然后把文本变成如下形式的:
0.924 0.968 0.712 0.911 0.939
0.609 0.604 0.685 0.873 0.912
0.742 0.751 0.633 0.561 0.581
0.808 0.825 0.678 0.807 0.744
0.832 0.844 0.654 0.763 0.831
0.866 0.863 0.676 0.842 0.847
0.61 0.621 0.569 0.597 0.609
0.584 0.568 0.508 0.577 0.538
0.854 0.876 0.685 0.769 0.84
0.91 0.917 0.725 0.862 0.908
0.863 0.868 0.663 0.803 0.867
0.706 0.709 0.589 0.647 0.695
0.925 0.923 0.737 0.863 0.91
0.719 0.712 0.639 0.72 0.688
0.828 0.835 0.644 0.775 0.835
0.701 0.713 0.594 0.609 0.695
0.761 0.776 0.644 0.739 0.767
0.795 0.807 0.65 0.733 0.822
0.717 0.747 0.579 0.641 0.676
0.7 0.721 0.586 0.646 0.662
这样的每20行数据为一列,中间以制表符隔开的形式,但苦于刚学Perl不太会写程序操作,还请朋友帮忙,谢谢!
--
使用Opera的电子邮件客户端:http://www.opera.com/mail/

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com/group/perlchina?hl=zh-CN
要查看更多选项,请访问 https://groups.google.com/groups/opt_out

Re: Re:Re: Re: [PerlChina] Re: perl音频处理

mencoder不就是。

在 Wed, 15 May 2013 15:25:17 +0800,kevin_li <xiaohuidexinge@163.com> 写道:

我知道 ffmpeg 可以切割音/视频, 可以从视频里分离 音频出来,可以转音/视频 格式。
有可以把比如 一定音域内的音频分离出来的功能么?




在 2013-05-15 09:30:36,topeak <topeak95@gmail.com> 写道:
用 ffmpeg 可以


在 2013年5月12日上午12:18,kevin_li <xiaohuidexinge@163.com>写道:
这么晚还没睡呐,呵呵
非常非常感谢:)  我尝试下这个路子~~



在 2013-05-11 23:01:42,"Anthony WU" <anthonywuy2k@gmail.com> 写道:

我並非這個專業,也沒有做過有關項目,但以前看過有關聲音處理的理論

做法大概就是把 mp3 轉成 pcm 然後經由 fft 功能分析有關波形頻率,把人所發出的聲音頻率範圍分析出來,然後過濾再儲存

以下是在網上找的人聲頻率範圍的資料,僅供參考

 男:低音82~392Hz,
      基準音區64~523Hz
      男中音123~493Hz
      男高音164~698Hz

女:低音82~392Hz
      基準音區160~1200Hz
      女低音123~493Hz
      女中音164~698Hz
      女高音220~1.1KHz

-------- Original Message --------
Subject: Re: [PerlChina] Re: perl音频处理
From: kevin_li <xiaohuidexinge@163.com>
To: perlchina@googlegroups.com
Date: 11/5/2013 22:50
哦 这个意思呀
我是说 如果没有现成的工具,我只能读取mp3的每帧数据,然后自己把简单的大概人声范围,或者非人声范围过滤出来
然后再相消干涉算另外一半出来,这样  两部分就分开了,
不知道这么做是否可行。。。。


在 2013-05-11 19:10:25,"Anthony WU" <anthonywuy2k@gmail.com> 写道:
檔案格式轉換,例如 mp3 轉 wav

-------- Original Message --------
Subject: Re: [PerlChina] Re: perl音频处理
From: kevin_li <xiaohuidexinge@163.com>
To: perlchina@googlegroups.com
Date: 11/5/2013 15:48
那 应该从哪里开始呢?

请教"轉檔實現" 是什么意思呢? 呵 呵



在 2013-05-11 14:22:40,"Anthony WU" <anthonywuy2k@gmail.com> 写道:
先不要想 mp3 或什麼格式,格式這些可以經由轉檔實現
-------- Original Message --------
Subject: Re: [PerlChina] Re: perl音频处理
From: kevin_li <xiaohuidexinge@163.com>
To: perlchina@googlegroups.com
Date: 11/5/2013 13:18
谢 谢, 不过我想要工具类的,这样我可以批量处理,
而且 我想背景音乐跟人声都 分别保留,

如果是gui 工具的话,昨天找到 cooledit 可以做原音乐-伴奏做相消干涉,提取人声。
但是这个还需要有原伴奏,还是gui,而且我其实也不需要这么精确的抽取人声,大概就可以 呵呵。

我想找的工具类似是

$>工具 MTV文件 ===》 背景音乐.mp3 + 人声.mp3 (结果不需要太准确)
如果能找到前人做过的 最好了~~!!
我对mp3文件格式,波形什么的  目前完全不清楚。。。如果实在没有就只能自己 摸索着来了。。。。


在 2013-05-11 10:53:07,climby <mdengfeng@gmail.com> 写道:

可以用 http://www.soft-zilla.com/2011/04/free-vocal-remover.html
试试.

在 2013年5月10日星期五UTC+8下午3时15分47秒,kevin_li写道:
perl 有没有把音频文件(比如mp3)中的背景音乐跟人声 分离的模块?
或者有什么工具能做这种事情?
比如我有一手歌,处理一下,可以保存成一个纯音乐文件,一个 人声文件,不需要 特别准确,过 的去就好 呵呵
如果有大牛接触过 ,指点一二 无比感谢:)


--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com /group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com /groups/opt_out。
 
 


--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com /group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com /groups/opt_out。
 
 

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com /group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com /groups/opt_out。
 
 


--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com /group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com /groups/opt_out。
 
 

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com /group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com /groups/opt_out。
 
 


--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com /group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com /groups/opt_out。
 
 

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com/group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com/groups/opt_out。
 
 


--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com/group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com/groups/opt_out。
 
 



--
Regards
he
--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com/group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com/groups/opt_out。
 
 


--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com。
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com。
通过以下网址访问此论坛:http://groups.google.com/group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com/groups/opt_out。
 
 



--
使用Opera的电子邮件客户端:http://www.opera.com/mail/

Re:Re: Re: [PerlChina] Re: perl音频处理

我知道 ffmpeg 可以切割音/视频, 可以从视频里分离 音频出来,可以转音/视频 格式。
有可以把比如 一定音域内的音频分离出来的功能么?




在 2013-05-15 09:30:36,topeak <topeak95@gmail.com> 写道:
用 ffmpeg 可以


在 2013年5月12日上午12:18,kevin_li <xiaohuidexinge@163.com>写道:
这么晚还没睡呐,呵呵
非常非常感谢:)  我尝试下这个路子~~



在 2013-05-11 23:01:42,"Anthony WU" <anthonywuy2k@gmail.com> 写道:

我並非這個專業,也沒有做過有關項目,但以前看過有關聲音處理的理論

做法大概就是把 mp3 轉成 pcm 然後經由 fft 功能分析有關波形頻率,把人所發出的聲音頻率範圍分析出來,然後過濾再儲存

以下是在網上找的人聲頻率範圍的資料,僅供參考

 男:低音82~392Hz,
      基準音區64~523Hz
      男中音123~493Hz
      男高音164~698Hz

女:低音82~392Hz
      基準音區160~1200Hz
      女低音123~493Hz
      女中音164~698Hz
      女高音220~1.1KHz

-------- Original Message --------
Subject: Re: [PerlChina] Re: perl音频处理
From: kevin_li <xiaohuidexinge@163.com>
To: perlchina@googlegroups.com
Date: 11/5/2013 22:50
哦 这个意思呀
我是说 如果没有现成的工具,我只能读取mp3的每帧数据,然后自己把简单的大概人声范围,或者非人声范围过滤出来
然后再相消干涉算另外一半出来,这样  两部分就分开了,
不知道这么做是否可行。。。。


在 2013-05-11 19:10:25,"Anthony WU" <anthonywuy2k@gmail.com> 写道:
檔案格式轉換,例如 mp3 轉 wav

-------- Original Message --------
Subject: Re: [PerlChina] Re: perl音频处理
From: kevin_li <xiaohuidexinge@163.com>
To: perlchina@googlegroups.com
Date: 11/5/2013 15:48
那 应该从哪里开始呢?

请教"轉檔實現" 是什么意思呢? 呵 呵



在 2013-05-11 14:22:40,"Anthony WU" <anthonywuy2k@gmail.com> 写道:
先不要想 mp3 或什麼格式,格式這些可以經由轉檔實現
-------- Original Message --------
Subject: Re: [PerlChina] Re: perl音频处理
From: kevin_li <xiaohuidexinge@163.com>
To: perlchina@googlegroups.com
Date: 11/5/2013 13:18
谢 谢, 不过我想要工具类的,这样我可以批量处理,
而且 我想背景音乐跟人声都 分别保留,

如果是gui 工具的话,昨天找到 cooledit 可以做原音乐-伴奏做相消干涉,提取人声。
但是这个还需要有原伴奏,还是gui,而且我其实也不需要这么精确的抽取人声,大概就可以 呵呵。

我想找的工具类似是

$>工具 MTV文件 ===》 背景音乐.mp3 + 人声.mp3 (结果不需要太准确)
如果能找到前人做过的 最好了~~!!
我对mp3文件格式,波形什么的  目前完全不清楚。。。如果实在没有就只能自己 摸索着来了。。。。


在 2013-05-11 10:53:07,climby <mdengfeng@gmail.com> 写道:

可以用 http://www.soft-zilla.com/2011/04/free-vocal-remover.html
试试.

在 2013年5月10日星期五UTC+8下午3时15分47秒,kevin_li写道:
perl 有没有把音频文件(比如mp3)中的背景音乐跟人声 分离的模块?
或者有什么工具能做这种事情?
比如我有一手歌,处理一下,可以保存成一个纯音乐文件,一个 人声文件,不需要 特别准确,过 的去就好 呵呵
如果有大牛接触过 ,指点一二 无比感谢:)


--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com /group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com /groups/opt_out。
 
 


--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com /group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com /groups/opt_out。
 
 

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com /group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com /groups/opt_out。
 
 


--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com /group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com /groups/opt_out。
 
 

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com /group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com /groups/opt_out。
 
 


--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com /group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com /groups/opt_out。
 
 

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com/group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com/groups/opt_out。
 
 


--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com/group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com/groups/opt_out。
 
 



--
Regards
he

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com/group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com/groups/opt_out。
 
 


--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com。
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com。
通过以下网址访问此论坛:http://groups.google.com/group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com/groups/opt_out。
 
 

2013年5月14日星期二

答复: Re: Re: [PerlChina] Re: perl音频处理

ffmpeg可以混合音频,但是分离有困难
-- http://www.pixel-white.com

From: topeak <topeak95@gmail.com>
Sender: perlchina@googlegroups.com
Date: Wed, 15 May 2013 09:30:36 +0800
To: <perlchina@googlegroups.com>
ReplyTo: perlchina@googlegroups.com
Subject: Re: Re: [PerlChina] Re: perl音频处理

用 ffmpeg 可以


在 2013年5月12日上午12:18,kevin_li <xiaohuidexinge@163.com>写道:
这么晚还没睡呐,呵呵
非常非常感谢:)  我尝试下这个路子~~



在 2013-05-11 23:01:42,"Anthony WU" <anthonywuy2k@gmail.com> 写道:

我並非這個專業,也沒有做過有關項目,但以前看過有關聲音處理的理論

做法大概就是把 mp3 轉成 pcm 然後經由 fft 功能分析有關波形頻率,把人所發出的聲音頻率範圍分析出來,然後過濾再儲存

以下是在網上找的人聲頻率範圍的資料,僅供參考

 男:低音82~392Hz,
      基準音區64~523Hz
      男中音123~493Hz
      男高音164~698Hz

女:低音82~392Hz
      基準音區160~1200Hz
      女低音123~493Hz
      女中音164~698Hz
      女高音220~1.1KHz

-------- Original Message --------
Subject: Re: [PerlChina] Re: perl音频处理
From: kevin_li <xiaohuidexinge@163.com>
To: perlchina@googlegroups.com
Date: 11/5/2013 22:50
哦 这个意思呀
我是说 如果没有现成的工具,我只能读取mp3的每帧数据,然后自己把简单的大概人声范围,或者非人声范围过滤出来
然后再相消干涉算另外一半出来,这样  两部分就分开了,
不知道这么做是否可行。。。。


在 2013-05-11 19:10:25,"Anthony WU" <anthonywuy2k@gmail.com> 写道:
檔案格式轉換,例如 mp3 轉 wav

-------- Original Message --------
Subject: Re: [PerlChina] Re: perl音频处理
From: kevin_li <xiaohuidexinge@163.com>
To: perlchina@googlegroups.com
Date: 11/5/2013 15:48
那 应该从哪里开始呢?

请教"轉檔實現" 是什么意思呢? 呵 呵



在 2013-05-11 14:22:40,"Anthony WU" <anthonywuy2k@gmail.com> 写道:
先不要想 mp3 或什麼格式,格式這些可以經由轉檔實現
-------- Original Message --------
Subject: Re: [PerlChina] Re: perl音频处理
From: kevin_li <xiaohuidexinge@163.com>
To: perlchina@googlegroups.com
Date: 11/5/2013 13:18
谢 谢, 不过我想要工具类的,这样我可以批量处理,
而且 我想背景音乐跟人声都 分别保留,

如果是gui 工具的话,昨天找到 cooledit 可以做原音乐-伴奏做相消干涉,提取人声。
但是这个还需要有原伴奏,还是gui,而且我其实也不需要这么精确的抽取人声,大概就可以 呵呵。

我想找的工具类似是

$>工具 MTV文件 ===》 背景音乐.mp3 + 人声.mp3 (结果不需要太准确)
如果能找到前人做过的 最好了~~!!
我对mp3文件格式,波形什么的  目前完全不清楚。。。如果实在没有就只能自己 摸索着来了。。。。


在 2013-05-11 10:53:07,climby <mdengfeng@gmail.com> 写道:

可以用 http://www.soft-zilla.com/2011/04/free-vocal-remover.html
试试.

在 2013年5月10日星期五UTC+8下午3时15分47秒,kevin_li写道:
perl 有没有把音频文件(比如mp3)中的背景音乐跟人声 分离的模块?
或者有什么工具能做这种事情?
比如我有一手歌,处理一下,可以保存成一个纯音乐文件,一个 人声文件,不需要 特别准确,过 的去就好 呵呵
如果有大牛接触过 ,指点一二 无比感谢:)


--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com /group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com /groups/opt_out。
 
 


--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com /group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com /groups/opt_out。
 
 

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com /group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com /groups/opt_out。
 
 


--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com /group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com /groups/opt_out。
 
 

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com /group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com /groups/opt_out。
 
 


--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com /group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com /groups/opt_out。
 
 

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com/group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com/groups/opt_out。
 
 


--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com/group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com/groups/opt_out。
 
 



--
Regards
he

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com。
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com。
通过以下网址访问此论坛:http://groups.google.com/group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com/groups/opt_out。
 
 

Re: Re: [PerlChina] Re: perl音频处理

用 ffmpeg 可以


在 2013年5月12日上午12:18,kevin_li <xiaohuidexinge@163.com>写道:
这么晚还没睡呐,呵呵
非常非常感谢:)  我尝试下这个路子~~



在 2013-05-11 23:01:42,"Anthony WU" <anthonywuy2k@gmail.com> 写道:

我並非這個專業,也沒有做過有關項目,但以前看過有關聲音處理的理論

做法大概就是把 mp3 轉成 pcm 然後經由 fft 功能分析有關波形頻率,把人所發出的聲音頻率範圍分析出來,然後過濾再儲存

以下是在網上找的人聲頻率範圍的資料,僅供參考

 男:低音82~392Hz,
      基準音區64~523Hz
      男中音123~493Hz
      男高音164~698Hz

女:低音82~392Hz
      基準音區160~1200Hz
      女低音123~493Hz
      女中音164~698Hz
      女高音220~1.1KHz

-------- Original Message --------
Subject: Re: [PerlChina] Re: perl音频处理
From: kevin_li <xiaohuidexinge@163.com>
To: perlchina@googlegroups.com
Date: 11/5/2013 22:50
哦 这个意思呀
我是说 如果没有现成的工具,我只能读取mp3的每帧数据,然后自己把简单的大概人声范围,或者非人声范围过滤出来
然后再相消干涉算另外一半出来,这样  两部分就分开了,
不知道这么做是否可行。。。。


在 2013-05-11 19:10:25,"Anthony WU" <anthonywuy2k@gmail.com> 写道:
檔案格式轉換,例如 mp3 轉 wav

-------- Original Message --------
Subject: Re: [PerlChina] Re: perl音频处理
From: kevin_li <xiaohuidexinge@163.com>
To: perlchina@googlegroups.com
Date: 11/5/2013 15:48
那 应该从哪里开始呢?

请教"轉檔實現" 是什么意思呢? 呵 呵



在 2013-05-11 14:22:40,"Anthony WU" <anthonywuy2k@gmail.com> 写道:
先不要想 mp3 或什麼格式,格式這些可以經由轉檔實現
-------- Original Message --------
Subject: Re: [PerlChina] Re: perl音频处理
From: kevin_li <xiaohuidexinge@163.com>
To: perlchina@googlegroups.com
Date: 11/5/2013 13:18
谢 谢, 不过我想要工具类的,这样我可以批量处理,
而且 我想背景音乐跟人声都 分别保留,

如果是gui 工具的话,昨天找到 cooledit 可以做原音乐-伴奏做相消干涉,提取人声。
但是这个还需要有原伴奏,还是gui,而且我其实也不需要这么精确的抽取人声,大概就可以 呵呵。

我想找的工具类似是

$>工具 MTV文件 ===》 背景音乐.mp3 + 人声.mp3 (结果不需要太准确)
如果能找到前人做过的 最好了~~!!
我对mp3文件格式,波形什么的  目前完全不清楚。。。如果实在没有就只能自己 摸索着来了。。。。


在 2013-05-11 10:53:07,climby <mdengfeng@gmail.com> 写道:

可以用 http://www.soft-zilla.com/2011/04/free-vocal-remover.html
试试.

在 2013年5月10日星期五UTC+8下午3时15分47秒,kevin_li写道:
perl 有没有把音频文件(比如mp3)中的背景音乐跟人声 分离的模块?
或者有什么工具能做这种事情?
比如我有一手歌,处理一下,可以保存成一个纯音乐文件,一个 人声文件,不需要 特别准确,过 的去就好 呵呵
如果有大牛接触过 ,指点一二 无比感谢:)


--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com /group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com /groups/opt_out。
 
 


--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com /group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com /groups/opt_out。
 
 

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com /group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com /groups/opt_out。
 
 


--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com /group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com /groups/opt_out。
 
 

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com /group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com /groups/opt_out。
 
 


--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com /group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com /groups/opt_out。
 
 

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com/group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com/groups/opt_out。
 
 


--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com
通过以下网址访问此论坛:http://groups.google.com/group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com/groups/opt_out。
 
 



--
Regards
he

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscribe@googlegroups.com。
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com。
通过以下网址访问此论坛:http://groups.google.com/group/perlchina?hl=zh-CN。
要查看更多选项,请访问 https://groups.google.com/groups/opt_out。