请将所有.c文件变成.c.bak文件

fufelixzh

如题，方法越多越好

liuqiao007

rename

awk47

#!/usr/bin/perl -w

use strict;
use File::Copy;

opendir DIR,"/home/Administrator" || die $!;
foreach my $item (readdir DIR) {
    rename $item,$item.".bak" if (-f $item && $item =~ m/\.c$/);
}

Perlvim

1. use File::Find::Wanted qw(find_wanted);
   
2. 
   
3. 
   
4. my $dir = "../";
   
5. my @cfiles = find_wanted( sub { /\.c$/ }, $dir);
   
6. 
   
7. foreach my $file (@files) {
   
8.     rename $file, "$file.bak";
   
9. }

复制代码