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]

Responder a