| ||||||||||||||||||||||||
![[Date Prev]](/grafix/mhonarc/prev.png)
![[Date Index]](/grafix/mhonarc/up.png)
![[Date Next]](/grafix/mhonarc/next.png)
|
|
|
|||||||||||||||||||||||||
|
|||||||||||||||||||||||||||
|
|
|
|||||||||||||||||||||||||
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
|
|
|
||||||||||||
|
||||||||||||||
| ||||||||||||||
|
||||||||||||||
|
|
|
||||||||||||