#!/usr/bin/perl -w

# Script to split up XChat log files by date by: Alan Cameron
#
# Purpose: XChat stores it's log files for /msg and DCC chat's as
#          nick.xchatlog in it's log file dir.  Being the kind of
#          person I am, I like to keep log files of my conversations
#          but some people use multiple nicks so the conversations
#          end up in different files.  I wanted to have all the
#          conversations in one file, so I wrote this script to
#          split the log files up by the date of the conversation.
#          This creates a bunch of files of the form:
#          foo1042353175.log foo1042354456.log foo1042355691.log
#          one for each conversation in the original log file
#          where foo is the prefix you give it, and the number is
#          the epoch time of when the conversation took place.
#          These can be combined to form one log file with all
#          the conversations in chronological order.

use strict;
use Time::Local;
sub debug ($);

die "usage: $0 <prefix> <logfile(s)>\n" unless @ARGV;

# Set DEBUG to 1 to see progress
my $DEBUG = 0;

# Prefix for time stamped logfiles
my $prefix = shift;

# Files to be processed
my @files = @ARGV;

# Convert month names to numbers
my %months;
@months{qw/Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec/} = (0 .. 1
+1);

# For each file, read through the file, and when you find a new
# section, close the current file, and open a new one with the name
# prefix<epoch time>.log  where <epoch time> is the timestamp for
# when that conversation started.
#
# If the line doesn't start a new section, just print it to the
# current sections file.
#
# NOTE: Assumes XChat Log files always have a BEGIN LOGGING line
# as the very first line of the file.  If this behavoir of XChat chang
+es
# The script will have to be changed.
for my $file (@files) {
    open FILE, "$file" or die "Can't open $file: $!\n";
    debug "Opened $file";
    while (<FILE>) {
        if (/^\*\*\*\* BEGIN LOGGING AT (.*)/) {
            close OUT;
            my ($mon, $day, $hr, $min, $sec, $yr) =
              $1 =~ /\w+\s+(\w+)\s+(\d+)\s+(\d+):(\d+):(\d+)\s+(\d+)/;
            $mon = $months{$mon};
            my $time = sprintf "%010d",
              timelocal($sec, $min, $hr, $day, $mon, $yr);
            open OUT, ">$prefix$time.log"
              or die "Can't open $prefix$time.log: $!\n";
            debug "Opened $prefix$time.log";
        }
        print OUT $_;
    }
}

sub debug ($) {
    print STDERR $_[0], "\n" if $DEBUG;
}

[download]

In reply to Splitting up XChat log files by Paladin

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.