Opened by AndreasM at 2006-08-02 15:01
User since
2006-07-10
2611 Artikel
BenutzerIn
2006-07-10
2611 Artikel
BenutzerIn
Wenn man keine Lust hat "File::Path" zu verwenden, kann man das auch schnell von Hand zusammentippen:
so ähnlich funktioniert das im Modul auch, nur das Splitten des Pfades ist ausgefeiter.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
sub mkpath()
{
my ($path,$rights)=@_;
my @dirs=split('/',$path);
for( my $i=0; $i<@dirs; $i++ )
{
my $d_now.=join('/', @dirs[0..$i]);
mkir($d_now,$rights);
}
}
so ähnlich funktioniert das im Modul auch, nur das Splitten des Pfades ist ausgefeiter.