view release on metacpan or  search on metacpan

examples/cleanup_directory.pl  view on Meta::CPAN

#!/usr/bin/perl -w

#  There should be no need to call this script ordinarily.

#  When the Algorithm::KMeans module creates new cluster files,
#  it automatically delete all previously created such files.
#  Such files are named ClusterX.dat for X starting with X = 0.
#  The files __temp_* are created by the visualization script.
#  However, when the program terminates properly, it should 
#  automatically delete those files.


unlink glob "Cluster*.dat";

unlink glob "__temp_*";

unlink glob "__cluster_*.dat";

unlink glob "__temp2_*";

unlink glob "__contour_*";

unlink glob "__contour2_*";