Help for this page

Select Code to Download

Select or download this

my $text = <<'_EOT_';
dbSetCellPortTypes "/opt/mylib/s956M" "blahblah" '(
...
) #f
_EOT_

Select or download this

 parse    : <skip:'(?:\s*(?:#[^\n]*)?)'> portDef(s?) /\Z/
              { $item[2] }