Help for this page

Select Code to Download

Select or download this

  my @records;
  $/ = "\n[";
  while (<>) {
...
    $h =~ s/\]$//;
    push @records, { '[]' => $h, map { split /\s*=\s*/, $_, 2 } @l };
  }

Select or download this
my @server_records = grep { $_->{'[]'} =~ /^server/ } @records;