【 スクリプト改造依� ..

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
485:484 07/05/24 23:28:35 わるい、>>484の getenv("HOST_ADDR"); は getenv("REMOTE_ADDR"); だった 486:nobodyさん 07/05/25 05:01:30 >>481 何をしたいかわからないんだけど、とりあえず↓を保存して実行。 　 　 　 1 #! /usr/bin/env perl 　 　 　 2 $name = 'rpm'; 　 　 　 3 $base_dir = '.'; 　 　 　 4 @dirs = glob("$base_dir/*"); 　 　 　 5 @dirs = grep(-d,@dirs); 　 　 　 6 if(scalar(grep(/^$base_dir\/$name$/,@dirs))) { 　 　 　 7 　 　 print "ARUYO\n"; 　 　 　 8 } else { 　 　 　 9 　 　 print "NAIYO\n"; 　 　 　10 } 実行するとカレント (.) から rpm というディレクトリを探索。 ファイルを探索したければ2行目で$nameにファイル名 (irc.rpm) 、 3行目でパス (./rpm) を設定し、5行目の-dを-fに。 両方探したければさらに5行目をコメントアウト。 487:nobodyさん 07/05/25 06:00:33 寝起きでボケてた。 　 　 　 1 #! /usr/bin/env perl 　 　 　 2 $name = './rpm'; 　 　 　 3 if(-d $name) { 　 　 　 4 ？？？？print "ARUYO\n"; 　 　 　 5 } else { 　 　 　 6 ？？？？print "NAIYO\n"; 　 　 　 7 } ディレクトリの存在確認ならこれだけで良かった。

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

4118日前に更新/279 KB
担当:undef