部分目录名称的替代问题

967502aj

假设我的目录路径为：
C:/Program Files/HHDF/SimuBuilder/ModLib/
在它的下面有以下的子目录： Thl_T    Thl_B   Thl_D
各个子目录下面有一个同名的次子目录 Mrd
我想遍历每个Mrd 下的文件 .txt

用变量替换的方法：
"C:/Program Files/HHDF/SimuBuilder/ModLib/$subdir/Mrd"

其中$subdir 即是我想用来替换的 Thl_T    Thl_B   Thl_D
但是报错。
请大家指点一下

aaronvox

你把你的代码贴出来让大家看看啊
要不谁怎么解决问题？？？？？？
faint

967502aj

opendir (F,"C:/Program Files/HHDF/SimuBuilder/ModLib") ||die "canot F";
    @dir=readdir F;

    foreach my $subdir ( sort @dir)
{
        if ( -d "/$subdir" )
        {
           $DIR2 = "C:/Program Files/HHDF/SimuBuilder/ModLib/$subdir/Mrd/";
           print "$DIR2\n";

          opendir( S, "$subdir/Mrd/" ) || die "cannot  S $!";   ### 就是这个地方报错？？？
          @files=grep(/\.MRD$/i,readdir S);   #次目录下的特定文件

          foreach my $file (sort @files )
         {
          open(FP,"C:/Program Files/HHDF/SimuBuilder/ModLib/$subdir/Mrd/$file") || die "canot file $! \n";
          @ModeList1=<FP>;;     
         }
        }
}

967502aj

aaronvox

麻烦你看看