Linuxin wrote:
> Alguem programa perl aqui ?
> to com uma duvida meui simples, se possivel uma mao :))
>
> --Pergunta abaixo--
> eh duvida relacionada a leitura de banco de dados
>
> eu vou gravar dados em um txt assim
> membro=demolishman
> password=lalalablala
> texto=dsfsfs fsdfas fasdf saf asf
>
> agora eu estou querendo abrir esse arquivo txt, ler as informa�oes
> e jogar em uma %
>
my %config;
open CONF,"<nome_do_arquivo" || die "N�o pude abri-lo : $!";
while(<CONF>) {
chop;
if (/^\#/ || !/\S/) { next; }
/^([^=]+)=(.*)$/;
$name = $1; $val = $2;
$name =~ s/^\s+//g; $name =~ s/\s+$//g;
$val =~ s/^\s+//g; $val =~ s/\s+$//g;
$config{$name} = $val;
}
close(CONF) || print "Epa, n�o deu pra fechar : $!";
Colei do webmin.pl!
=o)
Falows!
Assinantes em 18/01/2002: 2235
Mensagens recebidas desde 07/01/1999: 151109
Historico e [des]cadastramento: http://linux-br.conectiva.com.br
Assuntos administrativos e problemas com a lista:
mailto:[EMAIL PROTECTED]