sub real_url_path {
	my $url = shift;
	my @url_parts = split '/', $url;
	my @real_path_parts;
	for my $part (@url_parts) {
		print "part is: $part \n";
		if($part eq '.') {
			next;
		} elsif($part eq '..' || $part eq '...') {
			pop @real_path_parts;
		} elsif($part ne '') {
			push @real_path_parts, $part;
		}
	}
	my $real_path = '/' . join '/', @real_path_parts;
	if(substr($url,-1,1) eq '/' && length($real_path) > 2 ) {
		$real_path .= '/';
	}
	return $real_path;
}

This sub will remove all references to “../” corrently (/path/../foo/bar becomes /foo/bar).

It is amazing that this is a niche that has not really been filled via open source offerings.. yet.

Say hello to PG::Stats.

Okay, okay… so this is NOT a finished work of art yet. But I have started a large portion of it thus far. In fact, I currently have:

• A standalone high-performance customized web server daemon for the data push API
• A single perl module for the actual data insertion
• A near-finalized table structure.

The system is written purely in Perl. Theres a front-end I currently have styled and sketched out using the Catalyst framework but nothing functional on that end.

The database is Postgres (as apposed to MySQL) because:

• Postgres supports Table partitions and proper inheritance.
• Postgres has nifty data-type such as IP Address types
• MySQL is now owned by Oracle – need I say more?

I have been thinking of turning this into a GPL’d application and setting up a subversion project on my server if enough people would be interested.

Gimme a shout at dean@supergluetech.com

/^(\S+) (\S+) (\S+) \[([^\]\[]+)\] \"([^"]*)\" (\S+) (\S+) \"?([^"]*)\"? \"([^"]*)\"/o

Now this works fine in Perl and PHP, but I image it should be fine with any language that handles PCRE.

Heres a perl snipplet of how to capture the sub-patterns:

my (
	$remote_ip,
	$rfc931,
	$authuser,
	$date_time,
	$request,
	$status,
	$bytes,
	$referer,
	$user_agent
) = ( $1, $2, $3, $4, $5, $6, $7, $8, $9 );
my ( $method, $url, $protocol ) = qw( - - - );
if( $request =~ /([a-zA-Z]*)\s(\S+)\s(HTTP\/1\.[01])/ ) {
     ( $method, $url, $protocol ) = ( $1, $2, $3 );
}

Hope that helps!

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

sub round {
	my @number = split /\./, shift;
	my $precision = shift || 0;
	return $number[0] if ! $number[1];
	my $decimal = $number[1];
	if(length ($decimal+0) < ($precision+0)) {
		return $number[0].".".$number[1];
	}
	my $rounder = substr $number[1], $precision, 1;
	if(($precision + 0) == 0) {
		if(($rounder + 0) >= 5) {
			return $number[0]+1;
		}
		return $number[0];
	}
	my $base = $number[0].'.'.substr $number[1], 0, $precision + 0;
	if(($rounder + 0) >= 5) {
		my $rounded = '.'.('0' x ($precision - 1)).'1';
		return $base + $rounded;
	}
	return $base;
}

Usage is simple:

round( $number, $precision );