07/05/23 00:20:43
よく判らんのだが、
-P 使うからには、pure perl じゃなく C 関係？
それとも pure perl でホスト毎に挙動を変更したいの？
前者だったら、 Inline::C と後述を噛み合わせて…
後者だったら、ベタだけど Sys::Hostname で hostname ゲットして
BEGIN{if ( $hostname ...){}else{} } あたり？
後者なら、もっとべたべたにソース全般で挙動を分けられるし、
実際やってるけど、前者だったらやろうと云う気にもならぬ。
って素人の口出しすまぬ。