如何用Erlang代码验证OS端口是否可用？跨平台实现可行吗？

Hey there! Let's break down your questions one by one to get you sorted.

Good news: bash scripts can absolutely handle cross-platform port checking, though you’ll need to account for small differences between operating systems. Here’s what you need to know:

• Unix-like systems (Linux/macOS): Tools like nc (netcat), ss, or lsof are standard. nc is the most portable option here—most systems come with it preinstalled.
• Windows: If you’re using WSL (Windows Subsystem for Linux) or Git Bash, the same Unix tools will work. For native Windows Command Prompt/PowerShell, you can use netstat, but integrating that into a bash script might require conditional logic.

Here’s a simplified cross-platform bash script example that uses nc (works on Linux, macOS, and Windows via Git Bash/WSL):

#!/bin/bash

HOST="localhost"
PORT="$1"

# Check if nc is available
if ! command -v nc &> /dev/null; then
    echo "Error: netcat (nc) is not installed."
    exit 1
fi

# Use nc to check port availability
nc -z -v -w 2 "$HOST" "$PORT"
if [ $? -eq 0 ]; then
    echo "Port $PORT on $HOST is occupied."
else
    echo "Port $PORT on $HOST is available."
fi

Notes: #

• Some systems use nc with slightly different flags (e.g., macOS might not need -v for quiet checking, but -z works universally to scan without sending data).
• Checking ports below 1024 will require root/sudo privileges on Unix-like systems.
• For native Windows without a bash layer, you’d need to add a conditional that uses netstat -ano | findstr ":$PORT" instead.

Erlang has built-in network modules that make port checking straightforward. There are two common scenarios you might care about: checking if a port is already in use (by another process) or checking if you can bind to a port (to use it yourself).

1. Check if a port is reachable (already occupied) #

This tries to connect to the port—if it succeeds, the port is being used:

-module(port_checker).
-export([is_port_reachable/2]).

is_port_reachable(Host, Port) ->
    % Timeout after 5 seconds to avoid hanging
    case gen_tcp:connect(Host, Port, [], 5000) of
        {ok, Socket} ->
            gen_tcp:close(Socket),
            true;  % Port is occupied (can connect)
        {error, _Reason} ->
            false % Port is not reachable (likely available)
    end.

2. Check if you can bind to a port (available for your use) #

This tries to listen on the port—if it succeeds, the port is free for you to use:

-module(port_checker).
-export([is_port_available/1]).

is_port_available(Port) ->
    % {reuseaddr, false} ensures we don't bypass TIME_WAIT state for strict checking
    case gen_tcp:listen(Port, [binary, {active, false}, {reuseaddr, false}]) of
        {ok, ListenSocket} ->
            gen_tcp:close(ListenSocket),
            true;  % Port is available (can bind)
        {error, _Reason} ->
            false % Port is occupied (can't bind)
    end.

Notes: #

• Binding to ports below 1024 requires Erlang to run with root privileges (on Unix-like systems).
• The {reuseaddr, false} flag is important if you want a strict check—setting it to true lets you bind to a port even if it’s in TIME_WAIT state, which might not be what you want for "fully available" checks.
• You can test these functions in the Erlang shell: port_checker:is_port_available(8080). or port_checker:is_port_reachable("localhost", 22).

内容的提问来源于stack exchange，提问作者Chen Yu