> ヘッダを複数含む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);

結局こんなん書いたよ(;´Д`)

参考：2006/12/06(水)16時58分13秒