Re^2: Replace $a with $b if $a ne $b

Once you've cleared $dir, it's useless to compare $currentdir to it. Maybe you want something like:

my $printed_dir = '';
foreach $file (@filelist) {
  my ($dir, $name) = split '/', $file;
  printf("%s  %s\n", ($dir eq $printed_dir ? '' : $dir), $name);
  $printed_dir = $dir;
}
[download]

Caution: Contents may have been coded under pressure.

Comment on Re^2: Replace $a with $b if $a ne $b Download Code