If i print the name of the directories with the print i get . ..#!/usr/bin/perl use strict; use warnings; use Text::CSV; my $dir = "C:/Users/ST/DesktopSample"; opendir (my $gdh, $dir) or die "Unable to open main directory"; my @dirs = grep {-d} readdir($gdh); closedir($gdh); foreach my $tumordirs (@dirs) { #opendir (my $tdh, $tumordirs) or die "Unable to open subdir"; print "$tumordirs\n"; }
In reply to Iterate trough a series of folders by BlueStarry
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |