pastebin - collaborative debugging tool
rovema.kpaste.net RSS


find_free_tcp_port1.ksh - find free tcp port
Posted by Anonymous on Sun 26th Feb 2023 17:31
raw | new post
view followups (newest first): find_free_tcp_port1.ksh - find free tcp port by Anonymous

  1. #!/usr/bin/ksh93
  2.  
  3. #
  4. # find_free_tcp_port1.ksh - find a free tcp port
  5. #
  6. # Written by Roland Mainz <roland.mainz@nrubsig.org>
  7. #
  8.  
  9. #    
  10. # simple netstat -n parser
  11. #    
  12. function netstat_list_connections
  13. {
  14.         nameref data=$1
  15.        
  16.         typeset -a data.connections
  17.  
  18.         typeset nsout="$(LC_ALL='POSIX' netstat -n)"
  19.  
  20.         while read i ; do
  21.                 leftover="${i/~(Elrx)
  22.                 (?: # non-capturing group
  23.                         #
  24.                         # regex group for tcpudp
  25.                         #
  26.                         (tcp|tcp6|udp)  # Proto
  27.                         [[:space:]]+
  28.                         ([[:digit:]]+)                  # Recv-Q
  29.                         [[:space:]]+
  30.                         ([[:digit:]]+)                  # Send-Q
  31.                         [[:space:]]+
  32.                         ([^[:space:]]+)                 # Local Address
  33.                         [[:space:]]+
  34.                         ([^[:space:]]+)                 # Foreign Address
  35.                         [[:space:]]+
  36.                         ([^[:space:]]+)                 # State
  37.                 |
  38.                         #
  39.                         # regex for unix
  40.                         #
  41.                         (unix)                          # Proto
  42.                         [[:space:]]+
  43.                         ([[:digit:]]+)                  # RefCnt
  44.                         [[:space:]]+
  45.                         (\[.+\])                        # Flags
  46.                         [[:space:]]+
  47.                         ([^[:space:]]+)                 # Type
  48.                         [[:space:]]+
  49.                         ([^[:space:]]*?)                # State
  50.                         [[:space:]]+
  51.                         ([[:digit:]]+)                  # I-Node
  52.                         (?:
  53.                                 |
  54.                                 [[:space:]]+
  55.                                 ([^[:space:]]+)         # Path
  56.                         )
  57.                 )
  58.                         /X}"
  59.        
  60.                 # if the regex above did not match then .sh.match remains
  61.                 # untouched.
  62.                 # so we check the leftover whether it just contains the
  63.                 # dummy value of "X" to indicate a successful regex match
  64.                 if [[ "$leftover" == 'X' ]] ; then
  65.                         #print -v .sh.match
  66.                        
  67.                         if [[ "${.sh.match[1]}" != '' ]] ; then
  68.                                 data.connections+=(
  69.                                         typeset proto="${.sh.match[1]}"
  70.                                         typeset recv_q="${.sh.match[2]}"
  71.                                         typeset send_q="${.sh.match[3]}"
  72.                                         typeset local_address="${.sh.match[4]}"
  73.                                         typeset foreign_address="${.sh.match[5]}"
  74.                                         typeset state="${.sh.match[6]}"
  75.                                 )
  76.                         elif [[ "${.sh.match[7]}" != '' ]] ; then
  77.                                 data.connections+=(
  78.                                         typeset proto="${.sh.match[7]}"
  79.                                         typeset refcnt="${.sh.match[8]}"
  80.                                         typeset flags="${.sh.match[9]}"
  81.                                         typeset type="${.sh.match[10]}"
  82.                                         typeset state="${.sh.match[11]}"
  83.                                         typeset inode="${.sh.match[12]}"
  84.                                         typeset path="${.sh.match[13]}"
  85.                                 )
  86.                         fi
  87.                 else
  88.                         :
  89.                         #printf "leftover=%q\n" "${leftover}"
  90.                 fi
  91.         done <<<"$nsout"
  92.        
  93.         return 0
  94. }        
  95.  
  96. function main
  97. {
  98.         compound c
  99.         netstat_list_connections c
  100. #       print -v c
  101. #set -x
  102.         for i in "${!c.connections[@]}" ; do
  103.                 nameref n=c.connections[$i]
  104.                 if [[ "${n.proto}" == ~(El)tcp && "${n.local_address}" == ~(Elr)(127\.0\..+|::1):[[:digit:]]+ ]] ; then
  105.                         #print -v n
  106.                         printf $"port = %q\n" "${n.local_address##*:}"
  107.                 fi
  108.         done
  109.        
  110. }
  111.  
  112. main
  113. # EOF.

Submit a correction or amendment below (click here to make a fresh posting)
After submitting an amendment, you'll be able to view the differences between the old and new posts easily.

Syntax highlighting:

To highlight particular lines, prefix each line with {%HIGHLIGHT}




All content is user-submitted.
The administrators of this site (kpaste.net) are not responsible for their content.
Abuse reports should be emailed to us at