jaffinito34 has asked for the wisdom of the Perl Monks concerning the following question:

My script is attempting to read a log file with common log format. An example of the file is below: 

66.249.65.107 - - [08/Oct/2007:04:54:20 -0400] "GET /support.html HTTP
+/1.1" 200 11179

[download]

To read the file, I used a while loop and split is using spaces: 


#opening log file
open (LOGG, '<', 'IN-access.log');

#reading log file and assigning values
while ($lines = <LOGG>){
    ($remoteIP,$rfc,$userID,$dateTime,$requestType,$statusCode,$sizeOf
+File) = split ' ', $lines;
    print "$statusCode $sizeOfFile\n";
}

[download]

However, the split function is actually splitting the spaces inside the data (ie 08/Oct/2007:04:54:20 -0400 <-- this is supposed to be the dateTime variable but because there's a space, its actually two variables according to the script) Any help or reference to help is appreciated.

Replies are listed 'Best First'.
Re: Splitting a file using "common log format" help
by toolic (Bishop) on Nov 10, 2012 at 21:08 UTC
    You could separate out the datetime section using s/// before you split: 
    use warnings;
use strict;

while (<DATA>) {
    if (s/(\[.*])//) {
        my $dateTime = $1;
        my ($remoteIP,$rfc,$userID,$requestType,$statusCode,$sizeOfFil
+e) = split;
        print "$statusCode $sizeOfFile\n";
    }
}

__DATA__
66.249.65.107 - - [08/Oct/2007:04:54:20 -0400] "GET /support.html HTTP
+/1.1" 200 11179

    [download]
[reply]
[d/l]
Re: [SOLVED] Splitting a file using "common log format" help
by trizen (Hermit) on Nov 10, 2012 at 23:20 UTC
    Using Text::ParseWords. 
    use strict;
use warnings;
use Text::ParseWords;

while (<DATA>) {
    if (s/(\[.*?\])//) {
        my $dateTime = $1;
        my ($remoteIP,$rfc,$userID,$requestType,$statusCode,$sizeOfFil
+e) = quotewords(qr/\s+/, 0, $_);
        print "<$remoteIP> <$rfc> <$userID> <$requestType> <$statusCod
+e> <$sizeOfFile>\n";
    }
}

__DATA__
66.249.65.107 - - [08/Oct/2007:04:54:20 -0400] "GET /support.html HTTP
+/1.1" 200 11179

    [download]
[reply]
[d/l]

Back to Seekers of Perl Wisdom