パイプコマンドの入力としてperlの変数を使用するには？

Question

例：ここ$gid

foreach $gid (sort (keys %list)){ 
    if ($list{$gid} >= $count){ 
     print "$list{$gid} ---> "; 
     print "$gid ---> "; 
     system(getent group | grep -w ^$gid | awk -F: '{printf $0 } '); 
    } 
} 

**は、私は、システムのcommmand内を検索し、印刷されたそのコマンドの最初の部分を取得したい値を含む変数です。

Answer 1

systemは文字列をとるので、補間を他の場所で使用してください。

system("getent group | grep -w ^$gid | awk -f: '{printf \$0}'"); 

（あなたはsystemに文字列を渡す前$0の拡大からPerlを防ぐためにawkコマンドで$をエスケープする必要があります。）

Answer 2

ここにシェルアウトする理由はありません。グループIDのグループ名が必要なようです。 Perlの組み込みgetgrgid()機能に容易GIDに渡すことであることを処理することができます：

for my $gid (sort (keys %list)){ 
    if ($list{$gid} >= $count){ 
     print "$list{$gid} ---> "; 
     print "$gid ---> "; 
     my $name = getgrgid($gid); # <-- here 
     print "** $name **\n"; 
    } 
} 

Answer 3

むしろ、適切な正規表現を含む適切なシェルコマンドを構築しようと、それが提供するCライブラリコールを使用するように簡単です。

あなたが望むものは不明です。 $gidはあなたがグループのIDを持っているように聞こえますが、^$gidはあなたがグループの名前を持っているように見えます。それで、私は2つの答えを出しました。

---

あなたはグループのIDを持っていて、その名前をしたい場合は、グループの名前を持っていて、そのIDを望む、

my $name = 'root'; 

while (my ($this_name, $this_id) = (getgrent())[0,2]) { 
    if ($this_name eq $name) { 
     print("$this_id\n"); 
     last; 
    } 
} 

---

場合は、

my $id = 0; 

my $name = getgrgid($id); 
print("$name\n");