
perlでディレクトリ名だけを取得したいのですが、
なかなかうまい方法が見つかりません。
ファイル名を取得する・・・というのは結構あるのですが、
ディレクトリ名だけ、というのがどうもわかりません。
ちなみにファイル名取得は以下のようにやっています。
my $md;
opendir(DIR, 'q');
while (defined($dir = readdir(DIR))) {
$md=substr($dir,0,6);
}
closedir(DIR);
ディレクトリ名だけを取得・・・というのはどうやればよいのでしょうか。
No.1ベストアンサー
- 回答日時:
ファイル名の取得で例示されているものは、ファイル名だけの取得できてませんよね?
質問者さんが書かれているスクリプトだと、
DIRの中にある「何か」の「たまたま」一番最後に入っていたものの「0文字目~6文字目」までを取得するスクリプトになっているのわかりますか?
my @file;
my @directory;
my $check_dir = "./q/";
$ct =0;
opendir(DIR,$check_dir);
while( defined($temp=readdir(DIR))){
#カレントディレクトリまたは上位ディレクトリの場合はパス
if( $temp eq '.' || $temp eq '..' ){ next;}
#ファイルの場合
if( -f $check_dir.$temp ){
push @file, $temp;
}
#ディレクトリの場合
if( -d $check_dir.$temp ){
push @directory, $temp;
}
}
$check_dirに設定されているディレクトリに格納されているファイルは@fileに、ディレクトリは@directoryに格納されます。
>「何か」の「たまたま」一番最後に入っていたものの
そうなんですか・・・
いただいたソースを試してみます。
ありがとうございました
No.4
- 回答日時:
私も以前に、同じような質問をこちらで致しました。
http://oshiete1.goo.ne.jp/kotaeru.php3?q=2091615
参考になれば良いのですが。。。
参考URL:http://oshiete1.goo.ne.jp/kotaeru.php3?q=2091615
No.2
- 回答日時:
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ファイル名と更新日付の取得に...
-
batファイルでrenameができませ...
-
ディレクトリの判別
-
vba dir の相対パス
-
空白を含むディレクトリにある...
-
C言語でファイル名を取得
-
cookieの削除
-
FindFirstFileとFindNextFileで...
-
ディレクトリ名を取得したい
-
一定時間が経過したフォルダの削除
-
サーバーにある特定の拡張子フ...
-
全角と半角文字が混在している...
-
fgets で値が取得できない
-
ファイル名の切捨てとリンクの...
-
perl ファイルが開かない
-
ReadLineでの読み出し行を指定する
-
文字コードの変換(Shift-JISか...
-
close()で例外が投げられる理由
-
perlで、後ろの行を読んで、前...
-
Perl<->Oracle間での文字化けに...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Windowsで複数のファイルを同じ...
-
batファイルでrenameができませ...
-
vba dir の相対パス
-
パスから最後のディレクトリだ...
-
FindFirstFileとFindNextFileで...
-
readdir()で得られるファイル・...
-
ディレクトリー内のリスト出力...
-
ファイル名と更新日付の取得に...
-
C言語でファイル名を取得
-
ファイルの削除について
-
シェルでfind結果を文字列で比...
-
dos変数の%~dp0は powershellで...
-
フォルダに入っているファイル...
-
サーバー内にある指定した拡張...
-
CGIで日本語名ファイルのアップ...
-
find関数が1階層(カレントディ...
-
下のディレクトリ(3つ)に含ま...
-
ファイル名が日本語の物をダウ...
-
<>の意味が分かりません
-
makefileでファイルをコピー(...
おすすめ情報