11 replies to this topic

[Bruninho]

Olá, gostaria de saber como eu faço para alterar dados num banco de dados .txt do tipo:

bruno|bla@bla.com|123
andre|email@servidor.com|321

Gostaria de, por exemplo, mudar a senha do primeiro, de 123 para 098.

Obrigado!

[jgcl]

Você terá que ler todo o BD e reconstrui-lo com as modificações...

Porque não usar MySQL? (esse salvou minha vida euheuheuhe)

[Wilton Paulo]

Segue o código

#Pega as informações do banco
open (ARQUIVO, "arquivo.txt");
@linhas = <ARQUIVO>;
close (ARQUIVO);

#Limpa o arquivo
open (ARQUIVO, "arquivo.txt");
@linhas = <ARQUIVO>;
close (ARQUIVO);

foreach (@linhas) {
chop;
($nome,$email,$senha) = split (/\|/,$_);
# Substitui a senha
$senha =~ s/123/098/;
open (ARQUIVO, ">>arquivo.txt");
print ARQUIVO "$nome\|$email\|$senha";
close (ARQUIVO);
}

[Bruninho]

Muito obrigado pela ajuda! Funcionou perfeito!

[jgcl]

para grandes arquivos, tem que usar um while enquando le o arquivo (ainda nao modificado) e ir salvando as alterações em um arquivo separado.

após o termio, renomear o arquivo original e pegar o "arquivo separado" e colocar o nome do arquivo original.

isso evita que em um possivel erro você não pecar o arquivo...

[Hospedar-se .Com]

aproveitando o tópico ... nunca mais usei o "chop;" ... pra que servia mesmo ?

[Felipe Pena]

Para retirar o último caractere. No caso acima, seria o newline (\n).

[Hospedar-se .Com]

o mesmo que $_ =~ s/\n//ig; ?

[Felipe Pena]

Tirando os modificadores, seria isso sim.

s/\n//;

[Gabriel]

posteiu um tuto de como fazer alterações seguras em banco de dados em texto
outra, de vez de usar chop, use chomp, pois se o ultimo caracter nao for o "\n" ele nao faz nada
assim vc nao corre o risco de perder o ultimo caracter de nenhuma variavel.

bem, ai ta minhas dicas

abraços