スポンサーサイト
上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
再帰的に ファイルの中身にある文字列が含まれてるか調べる
use strict; と書かれているかファイル名を表示させる

Perlなら、
use strict;
use File::Find;

find(
     sub {
          return if ! -f $_;
          open my $f, "$_";
          while(<$f>){
            if( $_ =~ /use strict;/ ){
                print $File::Find::name, "\n"; 
                last;
            }
          }
          close $f;
     },
     '.'
   );       


grepコマンドを使うなら、
$ grep -r 'use strict' . | sort | uniq | awk -F: '{ print $1 }'




.pl と書かれたソースだけからfindコマンドを使って見つけるなら、
$ find . -name '*.pl' | xargs grep 'use strict' | awk -F: '{ print $1 }' | sort | uniq
スポンサーサイト
通りすがり
grep の -l オプションを使えば sort と uniq と awk は不要になるような。
2008/11/26 (水) 02:59:38|URL |#grGQ8zlQ
ビンゴ中西
おお これは知りませんでした。
2008/11/27 (木) 22:29:12|URL |#-
コメントを投稿する
Name:
URL:
Comment:

秘密:管理者にだけ表示を許可する
トラックバック
この記事のトラックバックURL
この記事にトラックバックする(FC2ブログユーザー)
ブログ検索

プロフィール

ビンゴ中西
Perlが好きである。
プログラミング言語のほとんどは独学。独学の過程で多くのプログラム仲間にも色々教わりました。

FC2カウンター

カレンダー

06 | 2018/07 | 08
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21
22 23 24 25 26 27 28
29 30 31 - - - -

ブロとも申請フォーム

この人とブロともになる

| ホーム |
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。