hyphenate.lua

kpse.set_program_name("luatex")
local load_enc =  function()
  local f = "t1.tsv"
  local i = 0
  local uni = {}
  local chars = {}
  for line in io.lines(f) do
    local c = string.explode(line,"\t")
    hex = c[3]
    if hex then 
      hex = tonumber(hex,16)
      uni[i] = hex
      chars[hex] = i
      i= i + 1
    end
  end
  return uni, chars
     
end
local uni, chars = load_enc()

local callback = function(head)
  lang.hyphenate(head)
  for n in node.traverse_id(37, head) do
     n.char = chars[n.char]
    --n.subtype = 0
  end
end

return callback

sample.tex

\documentclass{article}
\usepackage[T1]{fontenc}

%   \usepackage[utf8]{luainputenc}
%\usepackage{fontspec}
\usepackage{luacode}
\begin{luacode*}
local clb = require "hyphenate"
--local showhyphens =  require "showhyphens"
luatexbase.add_to_callback("hyphenate", clb, "xxx")
 local mychar = unicode.utf8.char
  luatexbase.add_to_callback("pre_linebreak_filter", function(head)
    for n in node.traverse_id(37,head) do
      print(mychar(n.char),n.char, n.subtype, n.lang)
    end
    return head
  end,"xxx")
--]]
\end{luacode*}
  \usepackage[czech]{babel}
\textwidth=3em
\begin{document}
straße
straße

Příliš \textit{žluťoučký kůň úpěl} ďábelské ódy.
Příliš žluťoučký kůň úpěl ďábelské ódy.
Příliš žluťoučký kůň úpěl ďábelské ódy.
Příliš žluťoučký kůň úpěl ďábelské ódy.
Příliš žluťoučký kůň úpěl ďábelské ódy.
Příliš žluťoučký kůň úpěl ďábelské ódy.
Příliš žluťoučký kůň úpěl ďábelské ódy.
Příliš žluťoučký kůň úpěl ďábelské ódy.
Příliš žluťoučký kůň úpěl ďábelské ódy.
Příliš žluťoučký kůň úpěl ďábelské ódy.
Příliš žluťoučký kůň úpěl ďábelské ódy.
\end{document}

t1.tsv