1 reply to this topic

[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

[Hospedar-se .Com]

cara, to fazendo algo quase parecido com isso, mas eu usei o

while(<\*STDIN>){
....
}

e dentro do while faço o que preciso com o arquivo, só q no meu caso ele é em texto

vc tbm pode usar assim:

$cat=´/bin/cat $ARGV[0]´;

while(<$cat>){
....
}


onde $ARGV[0] vai ser passado assim pra executar: "./script.pl ARQUIVO"


Não sei se te ajuda