#!/usr/bin/perl

# A little script to call rmspider on many files
# Author: Ian Hickman

# initialise
use strict;

my ($i, $s);

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

  # if week number is less than 10 put 0 before first digit
  if( $i<10 ){
    $s="rmspider < ../originals/combined_log.0"."$i".".2000 > log.0"."$i".".2000";
  } else {
    $s="rmspider < ../originals/combined_log."."$i".".2000 > log."."$i".".2000";
  }
  print "$s\n";
  system "$s";
}

# loop through all log files in 1999
for( $i=34; $i<53; $i++ ){
  $s="rmspider < ../originals/combined_log."."$i".".1999 > log."."$i".".1999";
  print "$s\n";
  system "$s";
}