Perlについての質問箱 64箱目

[521 デフォルトの名無しさん 2020/07/24(金) 16:48:28.89 ID:EkE5sKTE]

直接書き換えたいならこんなとか?
perl -e 'open F, "+< IN"; binmode F; while ($l = read F, $_, 0x8000) { substr $_, 0x1c, 1, "\0";
seek F, -$l, 1; print F }'