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