#!/usr/perl/perl580/bin/perl


print ("This program will run as much times as the number of clusters to be generated in the k-means program\n");


print ("Type here the name of the imput dataset:\n");
$first_argument = <STDIN>;
chomp $first_argument;

print ("Type here the nnumber of times the program will run in each cluster:\n");
$second_argument = <STDIN>;
chomp $second_argument;

print ("Type here the number of clusters to be generated:\n");
$third_argument = <STDIN>;
chomp $third_argument;

$index_of_number_of_clusters = 0;
while ($index_of_number_of_clusters <= $third_argument) {
	system "perl -I/aregano/datasets/work/lobo/Algorithm-Cluster-1.24/lib/site_perl/5.6.1/i686-linux kmeans_final3 $first_argument $second_argument $index_of_number_of_clusters";
	$index_of_number_of_clusters++;
}