如何給一個二進制文件加‘000A’

declare

  有個二進制文件，沒有換行符，我想每隔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 $_;

}

可是這樣執(zhí)行，文件沒有變化。

yybmsrs

改變$_文件內容是不會改變的，可以改完再寫到文件里面