#!/bin/sh
# $Id: with-http-accesslog-fields,v 1.1 2006/11/29 02:26:16 friedman Exp $

exec ${PERL-perl} -n \
    -e 'undef @F;' \
    -e 'push @F, ($1 || $2 || $3)' \
    -e    'while /\G(?:\[([^]]*)\]|"([^"]*)"|(\S+))\s*/g;' \
    ${1+"$@"}

# eof