#!/usr/bin/perl -w
use strict;

my $foldername_file = shift @ARGV;
my $folderfolder_file = shift @ARGV;
my %folders = ();
my %folderpaths = ();

open(FNAMES,"$foldername_file") or die "Can't open $foldername_file: $!\n";
foreach my $folderline (<FNAMES>) {
        chomp $folderline;
        if ($folderline =~ /^Folder (\d{3,5})\s+\-\s+(.*)\.$/) {
                $folders{$1} = $2;
        }
}
close(FNAMES);

open(FFINFO,"$folderfolder_file") or die "Can't open $folderfolder_file: $!\n";
my @subfolders = <FFINFO>;

my %parents_of;
my $parentid;

while ( my $line = <FFINFO> ) {
    if ($line =~ /^Folder (\d{3,5})\s+\-\s+.*\./) {
        $parentid = $1;
    }
    elsif ($line =~ /\s+subfolder\s+(\S+)\s+\-\s+.*\./) {
        push @{ $parents_of{ $1 } }, $parentid;
    }
}

sub build_path {
    my $folderid = shift @_;
    my @parents = @{ $parents_of{ $folderid } || [] };
    return @parents ? [ map {
                                map { "$_/$folderid" } @{ build_path( $_ ) }
                            } @parents ]
                    : [ $folderid ];
}

foreach my $k (sort (keys (%folders))) {
    $folderpaths{$k} = build_path($k);
    print "$k => $_\n" for @{ $folderpaths{$k} };
}