> > ヘッダを複数含むwaveの塊を分解してるくれるツールないかい(;´Д`)
> while($bin =~ /^\x52\x49\x46\x46[\x00-\xff]+?/){
> 	$bin =~ s/^(\x52\x49\x46\x46[\x00-\xff]+?)\x52\x49\x46\x46/\x52\x49\x46\x46/;
> 	my $data = $1;
> #	print $data;
> 	open(DATA,">$i.wav");
> 	print DATA $data;
> 	close(DATA);
> 	$i++;
> }
> open(DATA,">$i.wav");
> print DATA $bin;
> close(DATA);
> 結局こんなん書いたよ(;´Д`)

binmodeやっとかないとwindowsではたまに酷い目に会うな(;´Д`)

参考：2006/12/06(水)18時19分31秒