先回に引き続きお伺いします。
■フォルダツリー体系が次のようになっているとき、
D:\TEMP
├─フォルダ名の末尾に機能
│ test1.txt
├─フォルダ名の末尾に表
│ test2.txt
├─途中に機能がある
│ test3.txt
└─途中に表がある
test4.txt
■次のスクリプトを処理させるのですが、
#!perl
use strict;
&subdir($ARGV[0]);
sub subdir {
my($dir) = $_[0];
opendir(DIR,"$dir") || die "'$dir' $! stopped";
foreach(sort readdir(DIR)){
next if(/^\.+/);# '.' '..' はパス
if(-f "$dir\\$_"){
print "'$dir\\$_'\tはファイルです\n";
}elsif(-d "$dir\\$_"){
print "'$dir\\$_'\tはフォルダです\n";
&subdir("$dir\\$_");
}else{
print "'$dir\\$_'\tは何ですか?\n";#出て欲しくない
}
}
closedir(DIR);
}
■結果は、次のようになります。
(※フォルダ名の末尾に特殊な漢字コードがある所が判定できない)
C:\>test.pl d:\temp
'd:\temp\フォルダ名の末尾に機能' は何ですか?
'd:\temp\フォルダ名の末尾に表' は何ですか?
'd:\temp\途中に機能がある' はフォルダです
'd:\temp\途中に機能がある\test3.txt' はファイルです
'd:\temp\途中に表がある' はフォルダです
'd:\temp\途中に表がある\test4.txt' はファイルです
先回、色々と教わったこと
use encoding "Shift_JIS"; や 局所的に $dir を decodeさせるなどしても上手く行きません。良い方法があれば教えてください。
No.6ベストアンサー
- 回答日時:
ファイル名が'一覧表'とかみたいになっている場合の対処について考えてみました。
相変わらずですが^^
----------------------------------------------------------------
#!perl
use strict;
use File::Basename;
&subdir($ARGV[0]);
sub subdir {
my($dir) = $_[0];
my $wk;
opendir(DIR,"$dir/") || die "'$dir' $! stopped";
foreach(sort readdir(DIR)){
next if(/^\.+/); # '.' '..' はパス
my ($base,$path,$type) = fileparse("$dir/$_", qr{\..*});
$wk = "$dir/$_" . ($type ? "" : "\.");#拡張子が無い場合ピリオドを付ける
if(-d "$dir/$_/"){
print "'$dir/$_'\tはフォルダです\n";
&subdir("$dir/$_");
}elsif(-f $wk){
print "'$dir/$_'\tはファイルです\n";
}else{
print "'$dir/$_'\tは何ですか?\n";#出て欲しくない
}
}
closedir(DIR);
}
なるほどー
#拡張子が無い場合ピリオドを付ける
がミソですね。
fileparse("$dir/$_", qr{\..*});
の関数でファイル名が正しく分離できるんだったら、
今回のような問題もすんなり対応できるようにperl本体が進化してくれれば良いですね。
あ、だから、jperlがあるのか・・・Own Goal!!(^^;
No.5
- 回答日時:
-fや-d, opendir などを使った場合にはCのランタイムライブラリ(さらにはもぐってWindowsAPI)を呼び出すのですが、これには
Unicode文字列を渡せない(少なくとも現状では)ので、今回のケースでは
use encoding や decode することは対策にはなりません。
で、機能とか表はバイト列で見ると '\' で終わっています。Perlの内部で
-fなどの処理をするときに末尾の'\' を '/' で置き換える等の処理をしています(ライブラリのバグ回避等のため)。
このとき、ShiftJISの文字列であるかどうかを気にしていないので、
「機能」とかが末尾に来ると置き換えてはいけないものを置き換えてしまうので、誤動作することになります。
WindowsAPIやライブラリのレベルではパスの区切りとして'\'でも'/'でも
許すので、Perlでも区切りとして'/’が使えるようになっています。
対策としては、BLUEPIXYさんがしているように、末尾に'/'を加えて
みるというものなどがあります。ただ、ディレクトリ名ではなく
ファイル名が'一覧表'とかみたいになっていると多分どうしようも
ないです。
以上重箱の隅でした。
なるほど勉強になりました。
ありがとうございます。
>>ただ、ディレクトリ名ではなくファイル名が'一覧表'とかみたいになっていると多分どうしようもないです。
確かに、そうですね・・・
ただ今回の場合は、MS系の文書ファイル類が主なので、必ず半角英数字で拡張子が付くため、結果オーライの感じです。
(”ぎじゅつ者”的には、少し許せないところではありますが)
ありがとうございました。
No.4
- 回答日時:
sub subdir {
my($dir) = $_[0];
opendir(DIR,"$dir/") || die "'$dir' $! stopped";
foreach(sort readdir(DIR)){
next if(/^\.+/); # '.' '..' はパス
if(-f "$dir/$_"){
print "'$dir/$_'\tはファイルです\n";
}elsif(-d "$dir/$_/"){
print "'$dir/$_'\tはフォルダです\n";
&subdir("$dir/$_");
}else{
print "'$dir/$_'\tは何ですか?\n";#出て欲しくない
}
}
closedir(DIR);
}
としてみるとか
この回答への補足
追伸ですが、
Windows用でも、perlスクリプトの中では、デリミタを'/'としても良いのですね・・・
これまでは、わざわざ、
$_DLM = ("$^O" =~ /linux/i)? "/" : "\\";# OS別パスデリミタ
のようなことをしていました・・・
encodeを使わない方法もあるのですね。
示して頂いたスクリプトで、目的のことができるようになりました。
夜遅くにご回答ありがとうございました。
No.3
- 回答日時:
「表」も「能」も、S-JISでは第2バイトが「\」です。
ですので、-dまたは-f付きif文は、falseを返します。
perlでは、漢字を含む文字列を処理する際、文字列がS-JISだと漢字の第2バイトが悪さをして正常に動きません。
一時的に文字列をS-JIS以外の文字セットに変換するなどして、文字列中に「\」や「|」などの文字が入らないようにして下さい。
この回答への補足
深夜に素早いご回答、ありがとうございました。
>>一時的に文字列をS-JIS以外の文字セットに変換するなどして、
ですが、やってみたこととして、
use Encode;
を使って、
my($dir) = Encode:decode("s-jis",$_[0]);
opendir(DIR,"$dir") || die "'$dir' $! stopped";
foreach(sort readdir(DIR)){
next if(/^\.+/); # '.' '..' はパス
$_ = Encode:decode("s-jis",$_);
if(-f "$dir\\$_"){
print "'$dir\\$_'\tはファイルです\n";
}elsif(-d "$dir\\$_"){
print "'$dir\\$_'\tはフォルダです\n";
&subdir(Encode:encode("s-jis","$dir\\$_"));
}else{
print "'$dir\\$_'\tは何ですか?\n";#出て欲しくない
}
のようにしてみたのですが、これでも上手く行きませんでした。
良い指定の方法などがあれば教えてください。よろしくお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) あるフォルダーのファイルを違う親フォルダーのサブフォルダーに移したい 11 2023/02/15 19:00
- Visual Basic(VBA) エクセルのマクロについて教えてください 物件ごとのフォルダを作成してます そのフォルダ内にサブフォル 2 2023/07/02 17:58
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) 入力ボックスが繰り返しポップアップして止まらない。 下記コードでファイル名の変更をしたいのですが、変 1 2022/09/08 11:27
- Visual Basic(VBA) VBA GetAttrについて教えてください 2 2022/12/22 15:25
- Visual Basic(VBA) 集めたシートのシート名を変更したい。 下記のコードでサブフォルダにあるファイルのSheet3を集めて 6 2022/08/23 10:38
- Visual Basic(VBA) ファイル名の右側を変更したい ファイル名:「1001日別売上」の左側へ「2022」を追加し、「202 6 2022/10/14 10:03
- Visual Basic(VBA) VBAでの共有パスにつきまして 1 2023/03/04 17:24
- Visual Basic(VBA) Excel VBAについて、 フォルダ内のファイルを全て開きたい場合、 FSOを使えば、Dirは使わ 1 2023/01/27 13:18
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
batファイルでrenameができませ...
-
vba dir の相対パス
-
下のディレクトリ(3つ)に含ま...
-
ディレクトリ名を取得したい
-
perlのNet::FTPで、ファイルか...
-
ディレクトリのファイル作成を...
-
エラー 'dir.h' : No such fi...
-
Perlでのファイルリスト作成
-
readdir()で得られるファイル・...
-
makefileでファイルをコピー(...
-
サーバー内にある指定した拡張...
-
ファイル名の変更
-
dos変数の%~dp0は powershellで...
-
LinuxのC言語で、ファイル名の...
-
バッチファイルの作り方(CSV→...
-
openした後、closeしないでプロ...
-
VBAでCSVファイルを途中行まで...
-
Firefox で file:// で始まる U...
-
CSVファイルの中身
-
htaccessで特定のディレクトリ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
batファイルでrenameができませ...
-
readdir()で得られるファイル・...
-
ディレクトリ名を取得したい
-
パスから最後のディレクトリだ...
-
Windowsで複数のファイルを同じ...
-
C言語でファイル名を取得
-
FindFirstFileとFindNextFileで...
-
Perlで フォルダ内の全て...
-
エラー 'dir.h' : No such fi...
-
vba dir の相対パス
-
一定時間が経過したフォルダの削除
-
テキストファイルの結合
-
LinuxのC言語で、ファイル名の...
-
chdirがうまくできない
-
複数のCSVファイルを一つのCSV...
-
ディレクトリの判別
-
空白を含むディレクトリにある...
-
Perl 特定のフォルダ以外削除
-
正規表現で、特定のファイル名...
-
dos変数の%~dp0は powershellで...
おすすめ情報