Perl、パイプでbashコマンドを実行

Question

英語が悪い場合は申し訳ありません。

私はbashコマンドを持っている：

戻り番号を命じる

convert somefile1.png somefile2.png -resize '200x200!' MIFF:- | compare -metric AE -fuzz '5%' - null:- 

、私のPerlスクリプトでこの値を得ることができますか？

マイコード：

my $s_command = 
    "convert " . $s_img1_path . " " . 
    $s_img2_path . " -resize '" . 
    $N_IMAGEMAGICK_IMG_SIZE . "x" . $N_IMAGEMAGICK_IMG_SIZE . 
    "!' MIFF:- | compare -metric AE -fuzz '5%' - null:-"; 

my $s_out = `$s_command`; 

しかし、私は$のS_OUTでの戻り値を取得することはできません。さらに、この値はstdout自体に行くのですが、なぜですか？

Answer 1

私は、次のコードを実行しました。（私は実際には、このコードに対してgrepを実行した）予想通りだった

#!/usr/bin/perl -w 
use strict; 

my $cmd = "grep strict test.pl -n|cut -c1-12"; 
my $result = `$cmd`; 
print $result; 

出力STDOUTた：

2:use strict 
4:my $cmd = 

私はprint行をコメントアウトするとSTDOUTには出力がありませんでした。 問題はSTDERRと何か関係があるかもしれませんが、確認する必要があります。