#!/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); } }