#!/usr/bin/perl
#

for $l (<>) {
	print "$0: Line $l" if $V>1;
	while ($l =~ s'([\(\w/\)]+)/(\w+\.abc)\b'') {
		$f = $2;
		print "$0: File $f" if $V>1;
path:	for $p (<../*/$f>) {
			if ($p =~ m"\.\./(.*)/$f") {
				$d = $1;
				next path if ($d =~ /^[A-Z]/);
				if (! -d $d) {
					if (mkdir($d,0777)) { } else {
						print STDERR "$0: Can't mkdir(\"$d\",0777) ($!)\n";
					}
				}
				if (-f "$d/$f") {
					print "$0: Have $d/$f\n";
				} else {
					$err = `Ln $p $d/$f`;
					if ($err) {
						print STDERR "$0: Can't Ln $p $d/$f ($err)\n";
					} else {
						print "$0: Link $d/$f <- $p\n";
						last path;
					}
				}
			} else {
				print STDERR "$0: \"$p\" doesn't match!!!\n";
			}
		}
	}
}