正则表达式匹配和打印perl

Question

我是perl的新手，我对正则表达式进行了大量研究以使其正确但我无法做到。

我有一个Linux盒子的输出，当用户选择测试作为VG时，它应该打印4.99g，这是该特定卷组剩余的空闲大小。

# vgs
VG    #PV #LV #SN Attr   VSize  VFree 
test    1   3   0 wz--n- 19.99g  4.99g
test1   1   0   0 wz--n- 19.99g  50.00m

Answer 1

要在文件vgs的第2行提取字段＃7：

perl -anE 'say $F[6] if $. == 2' vgs

Answer 2

我来到这里但没有得到输出。

#!/usr/bin/perl

@vg = system(vgs);
print "Enter the vg name: ";
chomp($vgname = <STDIN>);

@values = split (' ', $vg);
foreach $line (@values)
{
   if ($vgname eq $line[0])
   {
      print "$line[5]"
   }
}