Select Code to Download

Symmetrix ID: 

...
    Device Service State     : Normal

my $symm_id;
foreach ( `symdev list -v` )
...
     $symm_id = ( m/Symmetrix ID\s+:\s+(\d+)/ );
  }
}

my $text_to_parse = `symdev list -v`;

...
     ( $text_to_parse =~ m/Device Symmetrix Name\s+\:\s+([A-F0-9]+).*S
+ymmetrix ID\s+\:\s+(\d+).*Device Capacity.*Cylinders\s+\:\s+(\d+).*SC
+SI-3 Persistent Reserve\s+\:\s+(\w+)/m );

print "$dev, $sym, $config, $SCSI3\n";