Re: [PROGRAMMERING] [PERL] Split fil/bibliotek og opret bib

[Erlo Haugen <sslug@sslug>]

Carsten Svaneborg wrote:

> Erlo Haugen wrote:
>
> > Problemet er at jeg ikke lige kan finde en smart måde at bruge output
> > fra dirname til at oprette biblioteksstrukturen!
>
>
> use File::Path;
> mkpath "elefant/ged/ost";
>
> opretter automatisk katalogerne, således at du kan kopiere
> xxx-yyy-zzz-ppp.txt til xxx/yyy/zzz/ppp.txt
>
> Jeg ville noget i retning af (totalt uprøvet):
>
> use File::Path;
>
> foreach $n (listen af filer)    f.eks. "xxx-yyy-zzz-ppp.txt"
> {
> @f = split "-",$n;
> $fil = pop @f;         # ppp.txt
> $dir = join "/",@f;    # xxx/yyy/zzz
>
> mkpath $dir;
> system "mv $n $dir/$fil";
> }
Ligner lidt det jeg kom frem til.
Tak

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