Thank´s to all! I use the split solution to separate the string in parts.
Atenciosamente, Márcio Oliveira LPIC-1 Analista de Suporte Pleno. Márcio Oliveira wrote: > Hi all. > > I have a simple (I guess) question about spliting strings in perl. > > I need to split a string like this: "10.10.2.131 - - > [27/Jul/2004:08:20:43 -0300] "GET http://lalala/chiclete_01.jpg > HTTP/1.0" 407 1399 TCP_DENIED:NONE" (a squid log) in some parts: > > $ip = 10.10.1.131 > $date = [27/Jul/2004:08:20:43 -0300] > $url_info = http://lalala/chiclete_01.jpg > $state = TCP_DENIED:NONE > > How i can extract this parts from a var eq that string? > This is the script I use to read the file and get the string ($linha) > one per line: > > #!/usr/bin/perl > use strict; > > my ($linha); > > open (FILE,"<access.log"); > > while ( defined ($linha = <FILE>) ) { > chomp $linha; > > #???? what i can use ? Simple way to do it: my @parts = split ' ', $_; @parts will then contain : 10.10.2.131 - - [27/Jul/2004:08:20:43 -0300] "GET http://lalala/chiclete_01.jpg HTTP/1.0" 407 1399 TCP_DENIED:NONE and you can use whichever fields you want from it. 3 and 4 would need to be re-concatenated for the date field, but it's the simplest way to split it. eg: $date = "$parts[3] $parts[4]"; Or you can use your own names on the split : my ($ip, $x1, $x2, $date1, $date2, $x5, $url_info, $x7, $x8, $9, $state) = split ' '; > } -- ,-/- __ _ _ $Bill Luebkert Mailto:[EMAIL PROTECTED] (_/ / ) // // DBE Collectibles Mailto:[EMAIL PROTECTED] / ) /--< o // // Castle of Medieval Myth & Magic http://www.todbe.com/ -/-' /___/_<_</_</_ http://dbecoll.tripod.com/ (My Perl/Lakers stuff) _______________________________________________ Perl-Unix-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
