Сборка массива с вывода

Question

Я пытаюсь создать скрипт, который будет выводить данные из системной команды, и я хочу организовать данные в массив.

Сценарий заключается в обнаружении виртуальных машин, находящихся на локальном сервере ESXi, который у меня есть. Я использую plink.exe для отправки команды на сервер, а затем возвращает список виртуальных машин, который выглядит так.

Vmid Name    File     Guest OS  Version Annotation 
128 NS01 [datastore2] NS01/NS01.vmx  ubuntu64Guest vmx-07 
144 NS02 [datastore2] NS02/NS02.vmx  ubuntu64Guest vmx-07 
208 MX01 [datastore2] MX01/MX01.vmx  ubuntu64Guest vmx-07 
224 SQL01 [datastore2] SQL01/SQL01.vmx ubuntu64Guest vmx-07 
240 WS01 [datastore2] WS01/WS01.vmx  ubuntu64Guest vmx-07

Как бы это сделать и сделать массив из него? Единственными столбцами, которые действительно важны, являются VMID, Name, File

Команда, которую я использую для получения результата, это.

# Parse ESX\ESXi server for virtual machines that reside on it 
system ("$plink \-batch \-pw $esx_password $esx_user\@$esx_host vim-cmdvmsvc/getallvms\n"); 

Любое понимание было бы замечательным.

Answer 1

Да, используйте backquotes не system, если вы хотите разобрать выход.

my $cmd 
    = "$plink -batch -pw $esx_password $esx_user\@$esx_host " 
    . "vim-cmdvmsvc/getallvms" 
    ; 
my @lines = `$cmd`; 

system будет просто использовать ваш стандарт вне.

Не знаю, почему вы убегали черточки, хотя ...

После того, как у вас есть выход, вы можете сделать следующее (обратите внимание, что я использовала поля фиксированной длины выглядит):

foreach (@line) { 
    # this is the get-it-and-do-something-else-with-it version 
    my ($vmid, $name, $file) 
     = substr($_, 0, 47) =~ m/^ (\d+) \s+ (\S+) \s+ (.*\S) \s* $/x 
     ; 

    # OR the store-it-in-an-array-of-hashes version: 
    @{ my $h = {}}{ qw<VMID Name File> } 
     = substr($_, 0, 47) =~ m/^ (\d+) \s+ (\S+) \s+ (.*\S) \s* $/x 
     ; 
    push @array, $h if %$h; 
} 

Answer 2

Если ни один из столбцов данных не содержит пробелов, вы можете легко сделать вывод в строки, перебрать их и split(/\s+/) строки в массивы. Затем извлеките интересующие колонки, по индексу.