如何在一个目录更改所有文件的后缀

li_000828

小弟想在一个目录下更改文件的后缀，比如：
在/tmp目录下有a.txt,b.txt,c.txt
我想变为a.doc,b.doc,c.doc,
我试了用：
chdir "/tmp";
@files=glob "*.txt";
for $file(@files)
{
}
下面就不知怎么用了。
而且我觉得用File::Find肯定也能实现。

jason680

小弟想在一个目录下更改文件的后缀，比如：
在/tmp目录下有a.txt,b.txt,c.txt
我想变为a.doc,b.doc,c.do ...
li_000828 发表于 2010-11-17 11:58

    $file =~ s/txt$/doc/;

黑色阳光_cu

rename

li_000828

回复 1# li_000828


   是不是这样：

1. #!/usr/bin/perl
   
2. chdir "/tmp";
   
3. @f=glob "*.txt";
   
4. for (@f)  
   
5. {        
   
6. /(\w+)\.txt/
   
7. &&
   
8. rename($_,$1.'.doc');
   
9. }

复制代码

nhw_cs

看来是个新新手， 给你来个完整的吧

chdir "/tmp";
@files=glob "*.txt";
my $oldf;
for $file(@files)
{  
    $oldf=$file;
    $file =~ s/txt$/doc/;
    rename $oldf, $file;
}

li_000828

多谢楼上的各位的热情帮助，用rename可以实现了。:wink: