Thanks much for the help
<CODE>#! /usr/bin/perl -w
use strict;
my $goodFILE = "/logs/goodstring.txt";
my $badFILE = "/logs/badstring.txt";
my $logFILE = "/logs/processing/uexpress/access.20000622";
open(GOOD , ">$goodFILE") || die "cannot create $goodFILE : !$\n";
open(BAD , ">$badFILE") || die "cannot create $badFILE : !$\n";
open(FILE, "$logFILE");
while (<FILE>)
{
if ( /^(\S+) (\S+) (\S+) \[( ^:+):(\d+:\d+:\d+) (\S+)\] "(\S+) (\S+) (\S+)" (\S+) (\S+) "(.*?)" "(.*?)"$/)
{
my ($client,$identuser,$authuser,$date,$time,$tz,$method,$url,$protocol,$status,$bytes,$refer,$platform) = ($1,$2,$3
,$4,$5,$6,$7,$8,$9,$10,$11,$12,$13);
print GOOD "client : $client\n";
print GOOD "userid : $identuser\n";
print GOOD "authuser : $authuser\n";
print GOOD "date : $date\n";
print GOOD "time : $time\n";
print GOOD "time zone : $tz\n";
print GOOD "method : $method\n";
print GOOD "URL : $url\n";
print GOOD "protocol : $protocol\n";
print GOOD "status : $status\n";
print GOOD "bytes : $bytes\n";
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|