[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"; } -- Mvh. Carsten Svaneborg http://www.softwarepatenter.dk
![]() |
![]() |
![]() |
||||||||||||
|
||||||||||||||
![]() | ||||||||||||||
|
||||||||||||||
![]() |
![]() |
![]() |