[an error occurred while processing this directive] [an error occurred while processing this directive][an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] (none) [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive][an error occurred while processing this directive]
[an error occurred while processing this directive][an error occurred while processing this directive] [an error occurred while processing this directive][an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] (none) [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive][an error occurred while processing this directive]![]() |
![]() |
![]() |
|||||||||||||||||||||||||
|
|||||||||||||||||||||||||||
![]() |
![]() |
![]() |
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
![]() |
![]() |
![]() |
||||||||||||
|
||||||||||||||
![]() | ||||||||||||||
|
||||||||||||||
![]() |
![]() |
![]() |