#!/usr/bin/perl

# A little script to sort some log files
# Author: Ian Hickman

# initialise
use strict;

my ($i, $s, $r);

# loop through all log files in year 2000
for( $i=0; $i<20; $i++ ){

  # if week is less than 10 add 0 infront of digit
  if( $i<10 ){
    $s="sort ../part1.1/log.0"."$i".".2000 > sorted.0"."$i".".2000";
  } else {
    $s="sort ../part1.1/log."."$i".".2000 > sorted."."$i".".2000";
  }
  print "$s\n";
  system "$s";
}

# loop through all files in year 1999
for( $i=34; $i<53; $i++ ){
  $s="sort ../part1.1/log."."$i".".1999 > sorted."."$i".".1999";
  print "$s\n";
  system "$s";
}