再次求各位大神帮忙～～～～

代码:

#!/usr/bin/perl -w

my $no;
my @disks;
my @bytes;
my $min_disk;
my $min_byte;

$min_disk = "sda";
$min_byte = -1;

while (<>) {
    chomp;
    if (/^Disk \/dev\/(.+?):.*?(\d+)\D*$/) {
   push @disks, $1;
   push @bytes, $2;
   
   if ($min_byte<0 || $2<$min_byte) {
       $min_disk = $1;
       $min_byte = $2;
   }
    }
}

open PART, ">/tmp/part-include";
if ($#disks+1 <= 1) {
    print PART "part /boot --fstype=ext4 --size=512 --ondisk=sda --asprimary\n";
    print PART "part / --fstype=ext4 --size=32768 --ondisk=sda --asprimary\n";
    print PART "part swap --recommended --ondisk=sda --asprimary\n";
    print PART "part /data --fstype=ext4 --size=1 --grow --ondisk=sda\n";
} else {
    print PART "part /boot --fstype=ext4 --size=512 --ondisk=$min_disk --asprimary\n";
    print PART "part swap --recommended --ondisk=$min_disk --asprimary\n";
    print PART "part / --fstype=ext4 --size=8192 --grow -ondisk=$min_disk --asprimary\n";
    $no = 1;
    foreach (@disks) {
   if ($_ ne $min_disk) {
       print PART "part /data$no --fstype=ext4 --size=1 --grow --ondisk=$_\n";
   }
    }
}
close PART;