weidagang2046的专栏

物格而后知致
随笔 - 8, 文章 - 409, 评论 - 101, 引用 - 0
数据加载中……

将某目录下(包括子目录)的所有.c文件重命名为.cpp文件

# !/usr/bin/perl -w

use  File :: Find;

@ARGV   >   0   ||   die   " usage:\nperl $ [directory] " ;

$dir   =   $ARGV [ 0 ];

find(
\& traverse ,   $dir );

sub  traverse
{
    
print   $_ ,   " \n " ;
    
if ( - $_   &&   $_   =~   / ( .* ) . c$ / )
    {
        
print   " rename $_ to $1.cpp " ,   " \n " ;
        
rename   $_ ,   " $1.cpp " ;
    }
}

posted on 2006-03-30 11:29 weidagang2046 阅读(557) 评论(0)  编辑  收藏 所属分类: Perl


只有注册用户登录后才能发表评论。


网站导航: