如何在PL/SQL块中捕获唯一约束错误？

DECLARE
  -- 声明变量
  v_user_id NUMBER := 100;
  v_username VARCHAR2(50) := 'John Doe';
BEGIN
  -- 尝试插入数据
  INSERT INTO users (user_id, username) VALUES (v_user_id, v_username);

  -- 捕获唯一约束错误
  EXCEPTION
    WHEN DUP_VAL_ON_INDEX THEN
      DBMS_OUTPUT.PUT_LINE('唯一约束错误：用户名已存在');
END;