| http://www.w3.org/ns/prov#value | - This code just looks like a mess now... *sighs*: #!/usr/local/bin/perl -w : : use File::Copy; : : #copy $oldname, $newname; : : my $startFolder = 'E:/timit/train';: opendir (DIR, $startFolder) || die can not access $startFolder;: my @dirs = ();: foreach (readdir(DIR)) : { : # Ignore "special directories '.' and '..'. : next if /^.+$/; : : # Do -d test to make sure it is a directory. : -d && push
|
