Atualização de arquivo.
Rafael Lebrão Martins
rafamv1 em ig.com.br
Quinta Setembro 6 05:24:08 PDT 2007
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.
Mais detalhes sobre a lista de discussão Cascavel-pm