☰

고정 크기 청크로 두 개의 바이너리 파일을 인터리브합니다.

tag-icon • tag-icon perl coreutils
고정 크기 청크로 두 개의 바이너리 파일을 인터리브합니다.

paste(1)파일을 행별로 인터리브하는 기능이 있습니다 . 호기심으로 인해 이에 상응하는 이진수가 있는지 알고 싶습니다. 파일 A의 처음 N바이트를 stdout에 복사한 다음, 파일 B의 처음 N바이트를 파일 A의 마지막 N바이트에 복사해야 합니다.

내가 생각해낸 해결책은 다음과 같습니다.

$/ = \512;
my @files = map { open( my $fh, "<", $_ ); $fh } @ARGV;
while (@files) {
    @files = grep { my $c = <$_>; defined $c and print $c } @files;
}

답변1

언제든지 다음과 같이 할 수 있습니다.

paste -d '\0' <(xxd -p -c512 file1) <(xxd -p -c512 file2) | xxd -p -r > merged

그리고 zsh:

#! /bin/zsh -
zmodload zsh/system

size=${1?}; shift

fds=()
for file do
  sysopen -u fd -- "$file" || exit
  fds+=$fd
done

until
  eof=true
  for fd in $fds; do
    sysread -s "$size" -i$fd -o1 && eof=false
  done
  $eof
do
  continue
done

관련 정보