【スクリプト改造依頼スレ】(丸投げ) part6

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

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行目をコメントアウト。

次ページ