[SP-pm] Deletar linha atual do arquivo

[Fernando Oliveira]

só mais algumas coisinhas ensinadas pelo perl best praticies, q
aumentam a legibilidade:

On 11/22/06, Luis Motta Campos <luismottacampos em yahoo.co.uk> wrote:
> 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: $!"; # o open com 3
argumentos, segundo as best preticies é sempre melhor
> >
> > # cria um loop lendo todo o arquivo
while ( my $line = <$LOGS> ) {
    print {$NEW} $line if ( $line != /d/ ); # assim não se tem duvida
se tem "," ou não
}
> >
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
> _______________________________________________
> SaoPaulo-pm mailing list
> SaoPaulo-pm em pm.org
> http://mail.pm.org/mailman/listinfo/saopaulo-pm
>


-- 
[]'s Fernando