my $link_dir = shift @ARGV;
(-d $link_dir) or usage;
+my $prefix_length = 3;
+
sub slash_prefix {
my ($file) = @_;
- my $prefix = substr($file, 0, 3);
- my $suffix = substr($file, 3);
+ $file .= '_' x (length($file) + 1 - $prefix_length) if length($file) + 1 < $prefix_length;
+ my $prefix = substr($file, 0, $prefix_length);
+ my $suffix = substr($file, $prefix_length);
$prefix =~ s:(.):$1/:osg;
chop($prefix);
return ($prefix, $suffix);