同じ拡張子を持つ複数の入力ファイルに対してPerlスクリプトを実行するにはどうすればよいですか？

Question

同じ拡張子を持つ複数の入力ファイルに対してPerlスクリプトを実行するにはどうすればよいですか？

perl scriptname.pl file.aspx 

私はそれが現在のディレクトリにあるすべてのaspxファイルに対して

感謝を実行持っていますよ！あなたのPerlファイルで

Answer 1

、

my @files = <*.aspx>; 
for $file (@files) { 

     # do something. 

} 

<*.aspx>がglobと呼ばれています。

Answer 2

Linuxマシンを使用している場合は、このようなものを試すことができます。

for i in `ls /tmp/*.aspx`; do perl scriptname.pl $i; done 

Answer 3

あなたは

$ perl myscript.pl *.aspx 

Answer 4

また、あなたは持っているパスを渡すことができるコマンドライン上でスクリプト

foreach (@ARGV){ 
    print "file: $_\n"; 
    # open your file here... 
     #..do something 
    # close your file 
} 

にワイルドカード

とperlのこれらのファイルを渡すことができますaspxファイルを読み込んで1つずつ読み込みます。

#!/usr/bin/perl -w 

use strict; 

my $path = shift; 
my @files = split/\n/, `ls *.aspx`; 

foreach my $file (@files) { 
     do something... 
} 

Answer 5

globを明示的に使用して、シェルの動作に大きく依存することなくシェルパラメータを使用できます。

for my $file (map {glob($_)} @ARGV) { 
    print $file, "\n"; 
}; 

あなたは拡大し、複数のパラメータを使用して重複したファイル名の可能性を制御する必要があるかもしれません。 -nまたは-pとシンプルなワンライナーのために

Answer 6

、あなたが

perl -i~ -pe 's/foo/bar/' *.aspx 

をしたい-i~は、代わりに各ターゲットファイルを変更し、~接尾辞でバックアップをファイルに追加して、元のままにすると言います名。 （バックアップを残さないように接尾辞を省略しますが、まだ学習や実験を行っているなら、それは良い考えではありません;バックアップが完了したら削除することは、何かを台無しにしてバックアップから元のファイルを復元するよりもずっと面倒です。 ）

あなたのPerlコードはワンライナー（または再利用できるように十分なだけの便利のためにあまりにも複雑である場合）、明らかにscriptname.plで-e '# your code here'を交換...それはファイル名の引数のリストを受け入れるように多分scriptname.plをリファクタリングものの、現在のディレクトリにある*.aspxすべてのファイルに対して実行するには、単にscriptname.pl *.aspxを使用してください。

ディレクトリ構造を再帰的に処理し、特定の名前パターンを持つすべてのファイルを検索する必要がある場合は、findユーティリティが便利です。

find . -name '*.aspx' -exec perl -pi~ -e 's/foo/bar/' {} + 

それが遅くなると（あなたの代わりにすべてのファイルを処理するために可能な限り少数の見つけファイルごとに1つ）を複数のプロセスを起動しますけれども、あなたのfind-exec ... \;と-exec ... +試みをサポートしていない場合。ディレクトリだけのスペース区切りのリストで（その名カレントディレクトリ）.を置き換える検討、あるいはディレクトリに自分自身を見つけるためにfindを使用します（その後、おそらくに何かをするため-execdirを探るために、いくつかのディレクトリをスキャンするために

findが複雑で複雑な、ビジネスクリティカルな、おそらく秘密リストのfindオプション述語で選択する各ディレクトリ）。

find2perlを参照して、このディレクトリ再帰をネイティブにPerlで行うこともできます。 Linuxではperl scriptname.pl *.aspx *.asp

を処理するために、例えば

Answer 7

：perlが単にWindowsのようにperlで各引数でワイルドカードを展開するワイルドカードを展開しない

for (@ARGV) { 
    operation($_); # do something with each file 
} 

ことができるので、シェルは、ワイルドカードを展開します続く。 forループその後、例えば

for (map {glob} @ARGV) { 
    operation($_); # do something with each file 
} 

上記と同様に各ファイルを処理し、これはWindowsの

の下で展開されたリストを出力します

print "$_\n" for(map {glob} @ARGV);