Perlで標準入出力の判断は？

J.Naka [E-Mail] 1999/05/29(土) 17:14:08
Perlで標準入出力が、
ファイルにリダイレクトされているか？
本来の標準入出力のままか？
を、判断する方法ってあるでしょうか？

昔作ったDosの小物ツールには必須の便利な機能でしたので、
温故知新的感情で使いたいな思っています。

B-Cus 1999/05/30(日) 09:13:23
環境を書かんと…。DOS? UNIX?

以下UNIXと仮定。

STDIN、STDOUT を statで調べればわかると思います。
　http://www.cs.gunma-u.ac.jp/~j5306050/cgi-bin/tmp/mode.txt

一般的には、CHAR_DEVならttyへ出力、REG_FILEならファイルへの
リダイレクト、FIFOならパイプへの出力。
# 入力も同じ。

J.Naka [E-Mail] 1999/05/30(日) 11:52:39
　おっとと(笑)、環境が抜けていました。(_ _)
Ｗｉｎ９５とその上の自宅サーバです。
御教授をヒントに少しやってみます。ありがとさん。

[上に] [前に] [次に]