if (opendir_encoded(my $dir, DATA_WORDS_PATH())) {
print DATA_WORDS_PATH()."\n";
while (my $file_name = readdir_decoded($dir)) {
- print $file_name."\n";
if ($file_name !~ /^[0-9]+$/) {
next;
}
my $full_path = join_path(PATH_SEPARATOR(), DATA_WORDS_PATH(), $file_name);
- print $full_path."\n";
unlink_encoded ($full_path);
}
-}
\ No newline at end of file
+}