[Cascavel-pm] Atualização de arquivo.

[Filipe Melo]

Nao sei se eh a melhor solucao, mas vc pode fazer dessa forma:
while (<$in>) {
> if (/SECAO QUE EU QUERO ADICIONAR A LINHA/) {
           $achei = 1;
           next;
   }
> if($achei){
          print $in "algum texto $comando;
          $achei=0;
> }}
> close ($in);

Outra forma seria abrir em um arquivo e escrever em outro temporario
adicionando a sua linha quando casar a secao.
[]s

Filipe

On 9/6/07, Rafael Lebrão Martins <rafamv1 em ig.com.br> wrote:
> Bom dia, Senhores.
> Tenho um arquivo de texto com várias seções..
> Preciso inserir uma linha numa sessão específica. Tentei fazer o proposto
> assim:
>
> open (my $in, '+<', "$arquivo");
> while (<$in>) {
> if (/SECAO QUE EU QUERO ADICIONAR A LINHA/) {
> print $in "algum texto $comando;
> }}
> close ($in);
>
> O problema é que  (algum texto "$comando") está sobrescrevendo a linha que
> está abaixo do título da
> seção.
> Já tentei resolver adicionando \n antes do comando print e até mesmo
> deixando um grande espaço entre o
> título da seção e o primeiro comando abaixo dele, mas não adiantou.
>
>
>
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>


-- 
Filipe
"Programming today is a race between software engineers striving to
build bigger and better idiot-proof programs, and the Universe trying
to produce bigger and better idiots. So far, the Universe is winning."
Rich Cook