Paulo Cassim

Bom dia!

Possuo um arquivo binário gerado através do comando CAT (concatenador) do unix, e como ele foi formado por diversos outros aquivos ele possui o caracter EOF a cada mudança de arquivo interno e meu objetivo é ler byte a byte e retira esses EOFs internos, transferindo os bytes para outro arquivo.

Já fiz isso antigamente, mas faz tanto tempo que lembro apenas da estrutura lógica, não me lembro dos comandos, vou passa a estrutura. Por favor me ajudem na sintax e nos comandos em perl, vou usar basic só para facilitar.

#!/usr/bin/perl -w

A=arquivo de entrada
B=arquivo de saída

for x=1 to maxlen (A)

C=len,x,1(A)

if C=<EOF> go to pula

B = B+C

pula:

next x

Caso esteja muito quadrado, se alguem tiver um script que apenas copia um arquivo binario byte a byte, por favor me passe que já é mais de meio caminho andado.

Grato

Paulo