[SP-pm] Deletar linha atual do arquivo

[Rudolfo rosa]

Galera,
  minha primeira duvida: Como deletar a linha atual de um arquivo ??
Eu achei uma solucao, mas acredito que nao eh a melhor.

#!/usr/local/bin/perl

$file = arq; #arq tem 4 linhas contendo a b c d
$new = "$file.tmp.$$";

open(LOGS, $file) or die;
@log=<LOGS>;
close(LOGS);

foreach $l (@log){
#print "current $l";
$i++;
if ($l =~ /d/){
delete @log[$i-1];
}
}
open(NEW, "> $new")         or die "can't open $new: $!";
foreach $l (@log){
print NEW $l;
}
close(NEW);
rename($new, $file)          or die "can't rename $new to $old: $!";

Obrigado, Rudolfo.