unix writeコマンドをPerlから

質問

unixで、ログインしている誰かにメッセージを送信するwriteコマンドをPerlから実行したいのですが、上手くいきません。
`write john\nThis is test msg`;
では、sh[2] This ....とエラーとなります。
writeコマンドは、
write ユーザーid <CR>
メッセージ<CR>
ctl-D
とするようですが、そのあたりが上手くプログラミングできない
のが原因のようですが、良く判りません。
判るかた、宜しくお願い致します。
定期的のDISK使用状況をチェックし、FULLになりそうなら、
ログインしているユーザーに通知したいのです。

回答No.1

zxcv0000 · ベストアンサー

「write ユーザーid 」はコマンドですが、続くメッセージ本文は write が読むデータであってコマンドはありません。

もしもコンソールでは無くて stdin からの入力なら、以下でできるかも知れません。

open(my $write, "|write john") or die("open() failed. $!");
print $write "This is test msg\n";
close $write;

お礼

有り難う御座いました。
すんなり出来ました。