blob: d59d36036283b26eec8d197f824832565ef64d20 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
#!/usr/bin/perl
# create static/sf and static/st with subdirectories
chdir '/www/vndb/static';
sub mk {
for (@_) {
mkdir $_ or die "mkdir: $_: $!";
chmod 0777, $_ or die "chmod: $_: $!";
}
}
mk 'sf', 'st';
mk sprintf('sf/%02d',$_), sprintf('st/%02d',$_) for (0..99);
|