Help for this page

Select Code to Download


  1. or download this
    use v5.10;
    my $acl_rx = qr{
    ...
          (?<ws>                       \s*        )
        )
    }x;
    
  2. or download this
    use Data::Dump;
    
    ...
    access-list V422_IN extended permit object-group Symantec_Service_Grou
    +p any any (Source & Destination any)
    access-list V423_IN extended permit tcp any any range 137 139 (with a 
    +range of TCP ports)
    access-list V424_IN extended permit tcp any any eq 445 (with a single 
    +service port)
    
  3. or download this
    MATCHED
    {
    ...
    CAN'T MATCH: access-list V422_IN extended permit object-group Symantec
    +_Service_Group any any (Source & Destination any)
    CAN'T MATCH: access-list V423_IN extended permit tcp any any range 137
    + 139 (with a range of TCP ports)
    CAN'T MATCH: access-list V424_IN extended permit tcp any any eq 445 (w
    +ith a single service port)