Perlスクリプト内のBash環境変数を使用していますか？

Question

私はPerlプログラム内からBashコマンドを実行しようとしています。 しかし、PerlはBash $ PWD環境変数をPerl変数と混同しているようです。

どうすれば文字列として読み込むことができますか？

これは私が

my $path = /first/path; 
`ln -s $path $PWD/second/path` 

これらのバッククォートを実行しようとしているものですがバッシュの2行目が実行されます。 System（）を使用すると同じ問題が発生します。

アイデア？

Answer 1

ここでは、Bash変数の使用と外部コマンドの実行に2つのクエリがあります。

Perlで%ENV hashは、物事がASスクリプトまたは変更のために微妙に異なる意味を有することができるように、環境変数を

perl -wE'say $ENV{PWD}' 

は、しかし、あなたは、多くの場合、スクリプト内で同等になったほうが良いです、ありますスクリプトが実行されます。

さらに重要なことに、シェルコマンドを使用すると、クォート、シェルインジェクション、および解釈に関するあらゆる種類の潜在的な問題が発生します。たとえば、あなたが表示するコマンドは、Charles Duffyのコメントに記載されているように、危険です。原則として、Perlの豊富な機能を使う方が良いです。例

• Executing system commands safely while coding in Perl  および利点の冷静、詳細、アカウントの

• Using system commands in Perl instead of built in libraries/functions [duplicate]

を参照してください。あなたが外部コマンドを実行する必要がない場合には

---

、それはsystemの多引数の形式を使用することにより、たとえば、完全にシェルを避けるのがベストです。コマンドの出力が必要な場合は、それを提供するPerlのさまざまなモジュールがあります。以下のリンクを参照してください。

シェルの機能を使用する必要がある場合は、シェルが必要なものを受け取れるようにすべてをちょうど引用する代わりに、String::ShellQuoteのような準備ツールを使用してください。

いくつかの例：

• How to use both pipes and prevent shell expansion in perl system function?

• Perl is respecting '<' as a regular character rather an output redirection

• How to pipe the content of a variable as STDIN in a qx{} statement in Perl?

• Perl system command with multiple parameters output to file。qx operator（バッククォート）は、またはバッシュに追いやら取得してもしなくてもよい/bin/shを、使用することが

注意。あなたがBashを望むなら、system('/bin/bash', '-c', @cmd)が必要です。例とのリンクを参照してください。

---

ここでは、質問の背後にある目的に関する完全な例を示します。

プログラムの作業ディレクトリは、起動方法によっては予想外になる場合があります。 1つは、chdirの後に変更されます。私はPWDであなたの正確な意図は分かりませんが、PerlでコアCwd :: cwd とFindBin :: $RealBinがあります。パスは、スクリプトの場所がFindBin::$RealBinの代わりcwd使用することを意図されている場合は

は、現在の作業ディレクトリ

use warnings; 
use strict; 
use Cwd qw(cwd); 

my $cwd = cwd; 

my $path = '/first/path'; 

symlink($path, "$cwd/second/path") or die "Can't make a symlink: $!"; 

次の相対パスで、$pathへのシンボリックリンクを作成します。

symlinkでは、リンク名の代わりにディレクトリを渡すことはできません。 this pageを参照してください。