#! /usr/bin/perl

use strict;
use warnings;


opendir(source_dir, ".") || die "Can't open directory";
my @source_dir=readdir(source_dir);

foreach my $source_dir(@source_dir){
	if($source_dir =~ /^stats_/){
		system("sort $source_dir >> sorted.$source_dir.txt" );
		print "$source_dir \n";
		open(my_file, "sorted.$source_dir.txt") or die("Error: Cannot open file sorted.$source_dir.txt");
		open(my_file2, ">$source_dir.csv") or die("Error: Cannot open $source_dir.st");
		
		my @lines=<my_file>;
		print my_file2 "Fixed Points, 2-Cycles, 3-Cycles, 5-Cycles, Components, Avg Cycle Size, Cyclic Nodes, Tail Nodes, Avg Cycle, Avg Tail, Max Cycle, Max Tail";
		for(my $index=0; $index<@lines-1; $index++){
#			my $counter=0;

			my @fields1= split( /\s+:\s+/, $lines[$index]);
			my @fields2= split( /\s+:\s+/, $lines[$index+1]);
			
			if(($lines[$index] ne $lines[$index+1])){
				$fields1[0] =~ s/\s/, /g;
				print my_file2 "$fields1[0]\n";
			}

#			if(($fields1[0] eq $fields2[0])&&($fields1[0] ne $fields2[1])){
#				print "$fields1[0] : $fields1[1]";
#				print "$fields2[0] : $fields2[1]" ;
				
#			}
		}
		close(my_file);
		close(my_file2);
		system("rm -f sorted.$source_dir.txt");
	}
}