perl - 配列を読み取り、特定のパターンを 1 番目の配列から 2 番目の配列に配置するための perl スクリプト

Question

次のようなコマンドの出力である配列にデータを読み取るperlスクリプトを作成しようとしています:

my @a = system "p4 changes -u";

データが配列 @a に入ったので、次のようになります。

change 256789 on date.. by user@workspace 'some description'
change 256788 on date.. by user@workspace 'some description'
..........................................................
...........................................................
.
.
..
...

非常に多くの行があります

今私がやりたいことはsome description、各エントリの " " フィールドを別の配列に取得し、共通のテキストをそれに追加することです。
それを行う方法についてのアイデア、私はPerlに比較的慣れていないので、それを行う方法について多くのアイデアを得ることができません.

Answer 1

systemコマンドを実行しますが、出力をキャプチャしません。出力をキャプチャするには、backticks(`)またはqx演算子を使用できます。

#!/usr/bin/env perl

use strict;
use warnings;

my @descriptions;
for (qx{p4 changes -u}) {
    chomp;
    push @descriptions, /(?<=')(.+)(?=')/;
}

Answer 2

多分このように：

@b = map { /('[^']+')/; "abc $1 xyz"; } @a;
print "$_\n" for @b;