mkdir in the mounted partition，please h elp me，thanks

[gaochong]

#!/usr/bin/perl -w

 

#Auther:gaochong

 

use strict;

 

my @list = (3 .. 9);

my @FA=("FA00000001".."FA00002000");

sub mk_fa {

        my ($f) = @_;

        foreach my $p (@list) {

                mkdir "/data$p/NRU/$f",0755 or warn "mkdir /data$p/NRU/$f
err:$!";

                symlink "/data$p/NRU/$f","/usr/local/Titan/NRU/$f" or warn
"symlink /data$p/NRU/$f err:$!";

                shift @list;

                last;

        }

}

foreach my $fa (@FA) {

        if (@list > 0 ) {

                &mk_fa($fa); 

        } else {

                @list = (3 .. 9);

                &mk_fa($fa);        

        }

}