#!/usr/bin/env perl

use strict;
use warnings;
use Data::Dumper ;

my $source = shift ;
my $lines_per_file = shift ;

 open (my $FH, "<$source") or die "Could not open source file. $!";
# open (my $OUT, '>', '00000000.log') or die "Could not open destination file. $!";

my $OUT = undef;
my $i = 0;
#my $index_last = 0 ;
my $index_current = -1;

while(my $line = <$FH>) {
	next unless ($line =~ /mrule/) ;
	if ($line =~ /mrule=([0-9]+)/){
		if( $index_current != $1 ){
			$index_current = $1;
			if( defined($OUT) ){ close($OUT); }
			my $NEW = sprintf("%08d", $index_current);
			open($OUT, ">${NEW}.log") or die "Could not open destination file. $! " ;
		}
		print $OUT $line;
		$i++ ;

#		if ($1 != $index_last){
#			$index_current = $1 ;
#			close($OUT);
#			my $NEW = sprintf("%08d", $index_current);
#			open($OUT, ">${NEW}.log") or die "Could not open destination file. $! " ;
#			}
#			$index_last = $index_current ;
	}
}

close($FH);
#close($OUT);
if( defined($OUT) ){ close($OUT); }