PerlでWin95でバーミッションの代替えは？

[上に] [前に] [次に]
J.Naka [E-Mail] [HomePage] 1999/05/19(水) 18:12:30
Perl 5 でディレクトリを跨いだ、ファイル処理スクリプトを
作ろうとしています。

ターゲットＯＳとして、#上方が高優先順位

　自宅のローカルマシン　=　Win95
　自宅サーバー　　　　　=　httpd115にて構築
　ＣＧＩ動かすサーバー　=　UnixかNT

これらの環境を同一スクリプトで処理したいのですが、
ディレクトリを再帰的に操作するために、通常ファイルと
ディレクトリを判別する共通または代替えとなる方法が分かりません。

今までの経緯：
１．Win95は、ＮＥＣ製はパーミッションを擬似的に返すようですが、
　　富士通(ノートのFMV-475)のものはヌルを返す。
　　よってバーミッションのみでは無理。
２．動作ＯＳ種を取得する関数がPerlにあれば、それを元に各ＯＳ用の
　　関数に分岐できる算段なのですが、ＯＳ種の取得関数が分からない。

　完全な共通処理は無理（Perl自身がUNIX用だから？）だと思うので、
　２のＯＳ種取得関数ってのがあれば良いなと思っとりまするぅぅ。
J.naka [E-Mail] 1999/05/19(水) 18:51:26
全然間違い(^^;
---------------
１．Win95は、ＮＥＣ製はパーミッションを擬似的に返すようですが、
　　富士通(ノートのFMV-475)のものはヌルを返す。
　　よってバーミッションのみでは無理。
---------------

ＮＥＣ製Win95も富士通製Win95も値を返します。

Nomal　　　： 0x81B6
ReadOnly　： 0x8124
実行File　：0x81FF
Dir　　　： 0x41FF

すいせん(^^;コードのバグでした(笑)
＃うーん、こんなんか多いぞ−−＞わしわし(^^;ひー
ふじ 1999/05/19(水) 19:03:38
ファイルテスト演算子。
-d でディレクトリ。-f でファイルであることが判別できます。
(-d ディレクトリ名)で、ディレクトリなら真が返ります。
J.Naka [E-Mail] 1999/05/19(水) 19:49:07
おっぉぉ　そんなんに簡単なのがありましたか(^o^)
目から大鱗(笑)

いや、ども有り難う御座いました ぶしさん。
J.Naka [E-Mail] 1999/05/20(木) 15:12:44
[[解決]]
「ぶし」さんではありませんでした。
「ふじ」さんでした。
どうも、すいません。アンド　有り難う御座いました。
ふじさん　(_ _)
[上に] [前に] [次に]