Perlスクリプトのコマンドラインから引数として指定された名前を抽出する

Question

私はスクリプト言語が新しく、erlのコマンドラインから与えられた引数から名前を抽出する必要があるという作業があります。

が、私はこの

./perl.plx file.txt 

のようなPerlスクリプトを呼び出していると私は、ファイルの名前を取得するにはそれだけでfile名前、全体ではなくfile.txt

Answer 1

を取得する必要があり、あなたはそれを抽出する必要があります@ARGVから、ドット上で分割します。 「」：

my $fileName = (split /\./, $ARGV[0])[0]; 

、について説明ドット（文字の

split /\./, $ARGV[0]分割が正規表現で特殊文字で、それは 『任意の文字』を意味;文字通りそれを持って、あなたはそれをエスケープする必要があり、よって、）。

(...)[0];は、最初の要素、つまりファイル名をとります。

Answer 2

Perlスクリプトへのコマンドライン引数は、perldoc perlvarで説明されている@ARGVに表示されます。

ファイル名の解析は簡単ではありませんが、外観は誤解を招く可能性があります。しかし、Perlにはすぐには考慮しないかもしれないエッジケースを扱うFile::Basenameというモジュールが付属しています。単純なsplitが処理しない1つの辺のケースは、最後の接尾辞を除いて、ファイル名のどこかにドットが表示される可能性があります。

File::Basenameのドキュメントを確認するには、コマンドプロンプトにperldoc File::Basenameと入力します。

use stict; 
use warnings; 
use File::Basename qw(fileparse); 

my ($fname, $dirs, $suffix) = fileparse($ARGV[0], qr/\.txt/); 

print "Base file name is $fname\n"; 
print "Suffix is $suffix\n"; 
print "Path to $fname$suffix is $dirs\n"; 

Perlで、このモジュールの船は、あなたがそれを使用するために何かをインストールする必要はありませんので：ここでは

は一例です。すべてのPerlディストリビューションに同梱されているコアPerlモジュールを利用する際には、これらのツールで実装されたベストプラクティスとデバッグを活用してください。