Duvidas com ponteiros de arquivos

mmartinis
(usa Outra)

Enviado em 11/02/2011 - 09:14h

Tenho uma duvida talvés basica mas não to sabendo fazer !!!

tenho um loop onde vou abrir ponteiros para alguns arquivos textos, precisava criar um array com os ponteiros para os arquivos mas não estou tento sucesso alguem pode me ajudar

Exemplo de como tentei
while (<condição>) {
if (!$arr[$i]) {
open($arr[$i], ">>teste".$i.".txt") or die("Impossivel abrir arquivo");
}
print $arr[$i] "$QueueRecords{$QueueCursor}\n";
}

No aguardo

marvsc
(usa Slackware)

Enviado em 26/02/2012 - 12:34h

while (<condicao>) {
open($temp, ">>", "teste".$i.".txt") or die "Impossível abrir arquivo";
push(@arr, $temp);
}

Foi mauz a demora, só vi isso agora. Espero ter ajudado.

dvinciguerra
(usa Debian)

Enviado em 12/03/2012 - 13:44h

Se você tem um array de file handlers isso significa que você
ja os iniciou com o comando 'open' então não o faça novamente.

Os file handlers serão utilizados em um array somente para escrever/ler.

E não esqueça de fecha-los.

https://gist.github.com/2023242

EXEMPLO:

#!/usr/bin/perl

my $fh_array;

for my $file (1 .. 4){
open my $fh, '>> ', 'teste' . $file or die $!;
push @$fh_array, $fh;
}

for my $writer (@$fh_array){
print $writer "Arquivo";
}

for my $closer (@$fh_array){
close $closer;
}