1

こんにちはみんな私は外部コマンドの出力をキャプチャする必要があります、それで私はバッククォートを使用します。ただし、コマンドが改行に達すると、出力は省略されます。ここで$_= AD

@lines = `"C:/Program Files/Veritas/NetBackup/bin/admincmd/bppllist" $_ -U"`

テスト：test1
テスト：test2

テスト：test3
テスト：test4

実際の出力：@lines

テスト：test1
テスト：test2

お時間をいただきありがとうございます。

    print HTML "<h2 id='pol'>Policy Configuration\n</h2>" ;

  @bpllist =`"$admincmd/bppllist.exe"` or die print "$admincmd/bppllist.exe not found or could not be executed";
foreach (@bpllist) 
{
  print HTML "<div><table class='table'>\n";
  @lines = `"$admincmd/bppllist" $_ -U` or die print       "$admincmd/bpplinfo $_ -U not found or could not be executed";
   print HTML "\t<tr>\n\t<td><b>Policy name: <b></td><td>$_</td>\n\t</tr>\n" ;

  foreach (@lines) {

chop;
 ($var, $value) = split(/:/,$_,2);
 $var = "" if !defined($var);
 $value = "" if !defined($value);
print HTML "\t<tr>\n\t<td>$var</td><td>$value</td>\n\t</tr>\n" ;

  } 
  print HTML "</table></div>";
  }

@bpllistの出力：

  AD
  Sharepoint
  Echchange
  Vmware
4

3 に答える 3

1

qxまたはバックティックを使用してからシェルコマンドを使用して出力をリダイレクトする代わりに、コアモジュールであるIPC::Cmdを試してみてください。特に、そのエクスポート可能な機能&runは、STDOUTとSTDERRの両方を便利にキャプチャします。あらすじから：

### in list context ###
my( $success, $error_message, $full_buf, $stdout_buf, $stderr_buf ) =
run( command => $cmd, verbose => 0 );
于 2012-04-06T08:02:11.017 に答える
1

バックティックを使用して、生成されたプロセスのSTDOUTとSTDERRをキャプチャする方法は次のとおりです。

my $output = join('', `command arg1 arg2 arg3 2>&1`);

それがどのように機能するかは、の出力の改行にまったく依存しませんcommand。

のSTDINにもテキストを送信する必要があるcommand場合は、IPC::Open3を使用します。

コードを少しクリーンアップしました。わたしにはできる。

use strict;
use warnings;
use 5.10.0;

# something missing here to set up HTML file handle
# something missing here to set up $admincmd

print HTML q{<h2 id='pol'>Policy Configuration\n</h2>};
my @bpllist = `"$admincmd/bppllist.exe"` 
  or die "$admincmd/bppllist.exe not found or could not be executed\n";
for my $policy (@bpllist) {
  print HTML q{<div><table class='table'>\n};
  my @lines = `$admincmd/bpplinfo.exe $policy -U 2>&1`;
  print HTML qq{\t<tr>\n\t<td><b>Policy name: <b></td><td>$policy</td>\n\t</tr>\n} ;
  for my $pair (@lines) {
    chomp($pair); # only remove newlines, not other characters
    my ($var, $value) = split /:/, $pair, 2;
    $var //= '';
    $value //= '';
    print HTML qq{\t<tr>\n\t<td>$var</td><td>$value</td>\n\t</tr>\n} ;
  }
  print HTML q{</table></div>};
}

アップデート2

あなたはウィンドウズでこれをしているように見えますか？

私はその2>&1トリックがそこでうまくいくとは思わない。

于 2012-04-06T07:14:41.047 に答える
0

たぶん、コマンドはその出力をstderrに送信します。

これを試して：

my $output = `'command' -ARG -L 2>&1`;

よろしく、

于 2012-04-06T07:44:12.623 に答える