Re: Re: Splitting squid log lines with perl


The stupid question is the question not asked
	PerlMonks

Re: Re: Splitting squid log lines with perl

by blm (Hermit)

on Sep 16, 2002 at 11:13 UTC ( [id://198213]=note: print w/replies, xml )

Need Help??

in reply to Re: Splitting squid log lines with perl
in thread Splitting squid log lines with perl

By typing ga while the cursor was positioned over the micro in

@cache = split 'ľ';

I get <ľ> <|5> <M-5> 181, Hex b5, Octal 265 down the bottom (in the ruler?) So that makes it a byte of value 0xb5?

Anyway my squid logs look like this:

1031902298.709    609 10.0.14.117 TCP_MISS/302 376 GET http://ad.doubl
+eclick.net/ad/max.starwarskids/ros;sz=468x60;num=443509536434963200 f
+red DIRECT/204.253.104.95 -
[download]

There are one or more spaces between feilds (OT: cut -f2 -d' ' doesn't work :-( ). I was using:

while (<LOG>)
{
  @line_elements = split(' ');
  ...
}
[download]

but it seems to work better with

@line_elements = split(/\s+/);
[download]

Is this bad? \s is whitespace (tabs as well)? I am actually reading the Friedl book (Mastering Regular Expressions) atm.

Comment on Re: Re: Splitting squid log lines with perl Select or Download Code

Replies are listed 'Best First'.

Re^3: Splitting squid log lines with perl
by Aristotle (Chancellor) on Sep 16, 2002 at 11:37 UTC

That would be 0xB5, yes. I have no idea how one arrives at using that as a separator though..

If there are one or more spaces between fields, but none inside fields, then /\s+/ is indeed what you want to use and probably better than ' ' which is a special case. It means almost the same as /\s+/ - with a subtle difference.

#!/usr/bin/perl -wl
use strict;

sub joinprint { print join " ", map q/"$_"/, @_ }

$_ = " blah blah";

joinprint split ' ';
joinprint split /\s+/;

__END__
"blah" "blah"
"" "blah" "blah"
[download]

split " "

perldoc -f split

split /$char/

split "."

split /./

not

Makeshifts last the longest.

[reply]
[d/l]

In Section Seekers of Perl Wisdom