weidagang2046的專欄

          物格而后知致
          隨筆 - 8, 文章 - 409, 評論 - 101, 引用 - 0

          導(dǎo)航

          <2025年7月>
          293012345
          6789101112
          13141516171819
          20212223242526
          272829303112
          3456789

          常用鏈接

          留言簿(12)

          隨筆檔案(8)

          文章分類(421)

          文章檔案(409)

          相冊

          Link

          搜索

          •  

          最新評論

          閱讀排行榜

          評論排行榜

          將某目錄下(包括子目錄)的所有.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 ( - f? $_ ? && ? $_ ? =~ ? / ( .* ) . c$ / )
          ????{
          ????????
          print ? " rename?$_?to?$1.cpp " , ? " \n " ;
          ????????
          rename ? $_ , ? " $1.cpp " ;
          ????}
          }

          posted on 2006-03-30 11:29 weidagang2046 閱讀(588) 評論(0)  編輯  收藏 所屬分類: Perl

          主站蜘蛛池模板: 苍溪县| 涡阳县| 塔河县| 彭州市| 东源县| 营口市| 永登县| 乌拉特前旗| 镇远县| 嘉义市| 镇沅| 镇宁| 德惠市| 盘山县| 西吉县| 景洪市| 略阳县| 雷州市| 炎陵县| 张家港市| 台州市| 东宁县| 祁连县| 错那县| 临沭县| 兴城市| 陇川县| 北票市| 新丰县| 平定县| 遂平县| 宁河县| 曲周县| 信丰县| 华蓥市| 中江县| 桃园市| 成安县| 开鲁县| 延寿县| 呼玛县|