[PERL] Split fil/bibliotek og opret bib

[Erlo Haugen <sslug@sslug>]

Mit første PERL-projekt:
et bibliotek indeholder et antal filer, der navngivet således:
!xxx-yyy-zzz-ppp.txt

'-' er rent faktisk path-separatoren fra den maskine filerne kommer fra.
(De er ftp-et over på min Linux-box). Dybden af biblioteksstrukturen
varierer fra fil til fil.
Nu vil jeg gerne genskabe den oprindelige biblioteksstruktur, således
at filen i eksemplet kommer til at ligge i ../xxx/yyy/zzz og hedde ppp.txt


Jeg har fundet ud af at iterere mig genne alle filerne (med glob) og
jeg kan osse sagtens erstatte '-' med '/'.
File::Basename kan splitte fil og biblioteksnavn, så de havner i
hver sin variabel.
Problemet er at jeg ikke lige kan finde en smart måde at bruge output
fra dirname til at oprette biblioteksstrukturen! Jeg føler mig 
overbevist om at det ikke er nogen stor opgave, samt at den rent faktisk 
allerede er løst. Jeg kan bare ikke hitte løsingen..

--
Erlo
----------
Mine skriverier udtrykker ikke nødvendigvis
min arbejdsgivers mening