求助一个目录和文件名的问题

骑士番茄

我想实现这样一个功能，就是我现在有很多文件夹，里面都有一个相同的文件，
比如aaa/test.c
      bbb/test.c
      ccc/test.c
我想改名字为
    aaa/aaa.c
      bbb/bbb.c
      cccc/ccc.c
这样要如何写？
新手，郁闷了半天愣是没写出来，我调用了shell语句： %cwd:t 得到当前文件夹名字

比如我用file_name=system“%cwd:t”，这样为什么file_name得不到system“%cwd:t”显示的值呢？要怎么做呢？

liyangole

#!/usr/bin/perl
use strict;
use File::Find;

my $file = "test.c";
my $path = "/home/xxx/";

my @array;
find(\&process, $path);
sub process{ push (@array,$File::Find::dir) if /$file/; }
for (@array){
chdir $_;
$_=~s#.*/(.*?)(?=$)#$1\.cc#;
rename ($file,$_);
}


exit 0;

这个我实现的，可以在简化一下，就算给你一些提示吧。

兰花仙子

比如我用file_name=system“%cwd:t”，这样为什么file_name得不到system“%cwd:t”显示的值呢？要怎么做呢？

system是在不同进程里执行的，它的返回值也并不是像你想象这样。
见perldoc -f system

兰花仙子

找文件 I prefer:

my @files = File::Find::Rule->file()->name('*.txt')->in(".");

骑士番茄

谢谢楼上各位，我要好好研究下你们的程序。
我现在是采取的有点笨的方法，用system调用sh然后把目录名生成一个filelist，然后再读取文件，读出目录名，用foreach和$_实现了，就是有点笨。