perl-磁盘阵列自动化脚本-请教

peking_A_Liang

有下面的配置文件config，内容如下：
vd0

adapter         0
fd0             0:0
fd1             0:1
fd2             0:2
raid            5

vd1

adapter         1
fd0             1:0
fd1             1:1
fd2             1:2
raid            6

这个是磁盘阵列raid的相关设置。具体要求：
通过此配置文件，完成一个perl脚本，脚本最终会转换为一个megacli的命令。为了方便，可以打印出来。
megacli -cfgldadd -r[磁盘阵列号][真实硬盘盘号] -a[适配器号]
比如
vd0

adapter         0
fd0             0:0
fd1             0:1
fd2             0:2
raid            5
这一段为转换为
megacli -cfgldadd -r5 [0:0,0:1,0:2] -a0


有兴趣的同学，可以写写，谢谢，下面是我的脚本


#!/usr/bin/perl
use strict;
use warnings;
my $conf = "config";

my $vdref;
my $index;
my $count;
open(FH,"<",$conf) or die "$!\n";
while(<FH>)
{
        chomp;
        if(/vd(\d+)/)
        {
                $index = $1;
                $count = 0;
        }
        if(/(adapter)\s+(\d+)/)
        {

                $vdref->{$index}->{$1} = $2;
        }
        if(/(fd\d+)\s+(.*)/)
        {
                #$vdref->{$index}->{$1}=$2;
                $vdref->{$index}->{$count}=$2;
                $count++;
        }
        $vdref->{$index}->{'cnt'} = $count;
        if(/(raid)\s+(\d)+/)
        {
                $vdref->{$index}->{$1} = $2;
        }
}
close(FH);
foreach my $external_key (sort keys %$vdref)
{
        foreach my $inner_key (sort keys %{$vdref->{$external_key}})
        {
       }
        #print "MegaCli -cfgldadd -r".$vdref->{$external_key}->{'raid'}."[ ";
        my $raid_arg;
        my $raid_arg = "-r".$vdref->{$external_key}->{'raid'}." [";
        my $temp;
        my @array;
        for(my $i = 0; $i < $vdref->{$external_key}->{'cnt'};$i++)
        {
                #print $vdref->{$external_key}->{$i}." ";
                push @array,$vdref->{$external_key}->{$i};
                $temp.=$vdref->{$external_key}->{$i};
        }
        #print "] -a".$vdref->{$external_key}->{'adapter'}."\n";
        #print "|---$temp---|\n";
        my $ret  = join ",",@array;
        #print "|---$ret---|\n";
        my $ret_ex  = $ret."] -a".$vdref->{$external_key}->{'adapter'};
        print "MegaCli -cfgldadd $raid_arg$ret_ex \n";
}

请有兴趣的朋友也做做，并分享下自己的代码和思路，谢谢。

peking_A_Liang

没朋友写写么，一起学习下。

jason680

有下面的配置文件config，内容如下：
vd0

adapter         0
fd0             0:0
fd1             0 ...
peking_A_Liang 发表于 2010-12-06 10:37

改一下,这样应该简单多了....

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. my $conf = "config";
   
5. 
   
6. my($index,$adapter, $raid);
   
7. my $fd = "";
   
8. my @aRaid;
   
9. 
   
10. open(FH,"<",$conf) or die "$!\n";
    
11. while(<FH>){
    
12.     chomp;
    
13.     if(/vd(\d+)/) {
    
14.         $index = $1;
    
15.     }
    
16.     if(/adapter\s+(\d+)/) {
    
17.         $adapter = $1;
    
18.     }
    
19.     if(/fd\d+\s+(.*)/) {
    
20.         $fd .= "$1,";
    
21.     }
    
22.     if(/raid\s+(\d)+/) {
    
23.         $raid = $1;
    
24.         $fd =~ s/,$//;
    
25.         push @aRaid, "megacli -cfgladd -r$raid [$fd] -a$adapter";
    
26.         # or print it directly
    
27.         $fd = "";
    
28.     }
    
29. }
    
30. close(FH);
    
31. foreach (@aRaid){
    
32.   print "$_\n";
    
33. }
    

复制代码

# perl config.pl
megacli -cfgladd -r5 [0:0,0:1,0:2] -a0
megacli -cfgladd -r6 [1:0,1:1,1:2] -a1

peking_A_Liang

回复 3# jason680


    嗯，谢谢，下午研究下你的思路。

liyangole

#!/usr/bin/perl -w
use strict;
my %status;
my ($key,$key1,$value);
while (<DATA>){
  next if /^$/;
  $key=$1 if /(vd\d)/;
  unless (/vd\d/){
  #print "$key\t";
  ($key1,$value)=split;
#print "$key1,$value\n";
  $status{$key}{$key1}=$value;
#  print "$key\t$key1\t$value\n";
}
}


#for (sort keys %status){
  #print "$_ => ";
  # my  $rec={};
   #$rec=$status{$_};
   #for (sort keys %$rec){
     #print "$_ => $rec->{$_}\n";
#}
}

#$,=",";
my @fd=join",", map{$status{vd0}->{$_}}qw/fd0 fd1 fd2/;
print "megacli -cfgldadd -r$status{vd0}->{raid} [@fd] -a$status{vd0}->{adapter}\n";

   
   
__DATA__
vd0

adapter         0
fd0             0:0
fd1             0:1
fd2             0:2
raid            5

vd1

adapter         1
fd0             1:0
fd1             1:1
fd2             1:2
raid            6

peking_A_Liang

回复 4# peking_A_Liang


    这个思路比较简单。代码维护性比较好。

peking_A_Liang

回复 5# liyangole


    这个思路和我的代码思路一样，以vd0,vd1之类的为外键，然后下面就是用空格来分隔vd下面的这些字段，前面的为内键，后面的为值。
另有个错误
map那行有错误。
map是对列表进行转换
比如my @arr = ("fd0","fd1","fd2");
print map{"|---".$_."---|\n"} @arr;
你那行join就在数组的元素之间插入逗号了，不需要在map了。

wfnh

1. 
   
2. use strict;
   
3. use warnings;
   
4. use 5.010;
   
5. my $rh_cfg = {};
   
6. my $index;
   
7. while(<DATA>)
   
8. {
   
9.         chomp;
   
10.         next if /^\s*$/;
    
11.         $index = $1 if /vd(\d+)$/;
    
12.         my ($key,$value) = split /\s+/,$_;
    
13.         $rh_cfg->{$index}->{$key} = $value if defined $key and defined $value;
    
14. }
    
15. print_cmd();
    
16. 
    
17. sub print_cmd
    
18. {
    
19.         for my $index (keys %$rh_cfg)
    
20.         {
    
21.                 my $square_bracket = join ",",grep{/:/} sort values %{$rh_cfg->{$index}};
    
22.                 my $last_arg = '-a'.$rh_cfg->{$index}->{adapter};
    
23.                 my $cmd = 'megacli -cfgldadd -r'.$rh_cfg->{$index}->{raid}.' ['.$square_bracket.']'." $last_arg";
    
24.                 say $cmd;
    
25.         }
    
26. }
    
27. __DATA__
    
28. vd0
    
29. 
    
30. adapter         0
    
31. fd0             0:0
    
32. fd1             0:1
    
33. fd2             0:2
    
34. raid            5
    
35. 
    
36. vd1
    
37. 
    
38. adapter         1
    
39. fd0             1:0
    
40. fd1             1:1
    
41. fd2             1:2
    
42. raid            6
    

复制代码