[SP-pm] Deletar linha atual do arquivo

[Luis Motta Campos]

Solli Honorio wrote:
> Rudolfo, além do exibicionismo dos nossos amigos eu acredito que posso
> realizar algus comentário que podem ajudar nos próximos códigos ...
> afinal nem sempre vc poderá colocar estes códigos loucos no meio do seu
> programa ;)

  Eu diria que, exceto para jogar golf, quase nunca se deve colocar
coisas assim nos programas... ;-)

> Evite colocar o conteúdo do arquivo num array desta maneira... a menos
> que vc tenha *CERTEZA* de que o tamanho o arquivo será sempre pequeno.
>  
> Eu recomendo algo como :
> <code>
> open LOGS, $file or die "Nao consegui abrir o arquivo $file\n" # afinal
> mensagem clara é sempre bom
> open NEW, "> $new" or die "can't open $new: $!";
>  
> # cria um loop lendo todo o arquivo
> while ( my $line = <LOGS> ) {
>    print NEW, $line if ( $line != /d/ );
> }
>  
> close LOGS;
> close NEW;
>  
> rename ($new, $file) or die "can't rename $new to $old: $!";
>  
> </code>

  Agora, sim, uma coisa legível e didática.
  Boa "tacada", Solli. ;-)

-- 
Luis Motta Campos
Senior System Engineer at Segula.FR
Hobbyist Cooker and Photograph