Thanks Render, but I have one more question:
I make this test in my linux (using perl -de 1) and the regexp work perfect,
but when I put it into my script, it ins't work. The vars gets null values
and don't print the informations.
> DB<12> $linha = qq{10.10.2.131 - - [27/Jul/2004:08:20:43 -0300] "GET
http://la lala/chiclete_01.jpg HTTP/1.0" 407 1399 TCP_DENIED:NONE};
> DB<13> x ($linha =~
m/^(\d+.\d+.\d+.\d+)\s+(\d+|-)\s+(\d+|-)\s+(\[[^\]]+\])\s+"(\w+)\s+([^"]+)\s
+HTTP\/\d+\.\d+"\s+(\d+|-)\s+(\d+|-)\s+(.*)$/);
> 0 '10.10.2.131'
> 1 '-'
> 2 '-'
> 3 '[27/Jul/2004:08:20:43 -0300]'
> 4 'GET'
> 5 'http://lalala/chiclete_01.jpg'
> 6 407
> 7 1399
> 8 'TCP_DENIED:NONE'
> DB<14>q
Atenciosamente,
Márcio Oliveira
LPIC-1
PAMSIST - Unidade de Serviços, Informações, Sistemas e Tecnologia
_______________________________________________
Perl-Unix-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
