如何用perl给一个二进制文件加‘000A’
有个二进制文件，没有换行符，我想每隔100个字符，加上'000A'换行标记

open (FDAT,$ARGV[0]) || die "error opening $ARGV[0]\n";

while (read(FDAT,$_,$totlen)) {

################## fill in the %s hash
$_=$_.'000A';
################ printout the %s hash;

print $_;

}

可是这样执行，文件没有变化。

[解决办法]
事情肯定能做，但还要考虑是否有意义！换行本身是属于文本文件的，也就是说文本文件才有换行的概念，二进制为什么要添加这个字符呢？

无论怎样，你可以读出来100个字节在加上换行，再写入文件。该操作不能在文件原地操作，可以先写一个新文件，在存为源文件名。

在perl中你需要pack和unpack来处理二进制。
[解决办法]
你根本就没写文件的操作。有变化就怪了。