printf("directory %s\n", $key);
}
-while (my($key, $value) = each %files) {
- if ($value) {
- printf("file %s %s\n", $key, $value);
- } else {
- printf("file %s\n", $key);
- }
-}
while (my($key, $value) = each %files) {
if ($value) {
printf("file %s %s\n", $key, $value);