235 |
# return as many text filenames as you like, followed by the retval. |
# return as many text filenames as you like, followed by the retval. |
236 |
print((scalar keys %files)." files total\n"); |
print((scalar keys %files)." files total\n"); |
237 |
my %out; |
my %out; |
238 |
foreach (keys %files) { |
foreach my $f (sort keys %files) { |
|
my $f = $_; |
|
|
$f =~ s/^\E$dirname\Q//; |
|
|
$f =~ s/^\///; |
|
239 |
if ($dirname) { |
if ($dirname) { |
240 |
$out{$f}++ if (/^\E$dirname\Q/ && $f =~ /^[^\/]+$/); |
if ($f =~ s/^\E$dirname\Q\///) { |
241 |
|
$out{$f}++ if ($f =~ /^[^\/]+$/); |
242 |
|
} |
243 |
} else { |
} else { |
244 |
$out{$f}++ if ($f =~ /^[^\/]+$/); |
$out{$f}++ if ($f =~ /^[^\/]+$/); |
245 |
} |
} |
248 |
$out{'no files? bug?'}++; |
$out{'no files? bug?'}++; |
249 |
} |
} |
250 |
print scalar keys %out," files in dir '$dirname'\n"; |
print scalar keys %out," files in dir '$dirname'\n"; |
251 |
|
print "## ",join(" ",keys %out),"\n"; |
252 |
return (keys %out),0; |
return (keys %out),0; |
253 |
} |
} |
254 |
|
|