gaochong wrote:
#!/usr/bin/perl -w
#Auther:gaochong
use strict;
my @list = (3 .. 9);
my @FA=("FA0001".."FA2000");
sub mk_fa {
my ($f) = @_;
foreach my $p (@list) {
mkdir "/data$p/NRU/$f",0755 or warn "mkdir /data$p/NRU/$f
err:$!";
symlink
2009/11/17 gaochong :
> #!/usr/bin/perl -w
>
>
>
> #Auther:gaochong
>
>
>
> use strict;
>
>
>
> my @list = (3 .. 9);
>
> my @FA=("FA0001".."FA2000");
>
> sub mk_fa {
>
> my ($f) = @_;
>
> foreach my $p (@list) {
>
> mkdir "/data$p/NRU/$f",0755 or warn "mkdir /da
