Help for this page

Select Code to Download


  1. or download this
    my ($id) = ( $_ =~ /Logical device ID=(\w+)/ );
  2. or download this
    use Data::Dump;
dd  { line => $_, id => $id };
  3. or download this
    my $id;
while.... {
...
    $id  = $1 if /Logical device ID=(\w+)/ ;
    dd  { line => $_, id => $id };
}