Precisa extrair informações do HWInfo

Question

Preciso extrair informações como Serial e Produto do HWInfo. Agora eu tentei hwinfo --bios | grep 'Serial:'e consegui mais o que preciso. Primeiro, gostaria das informações após o Serial real: e não tenho ideia de como canalizar apenas isso. O segundo problema é usar o 'Serial' para obter 3 Serial diferentes, se eu olhar a impressão completa do HWInfo, o Serial que eu realmente preciso está na subseção de Informações do Sistema: #1, então existe uma maneira de usar o grep no Série apenas sob isso?

Obrigado

Answer 1

Eu tive a mesma pergunta e criei esta como primeiro passo:

#! /usr/bin/perl

use strict;
use warnings;

my $filename = 'hwinfo_example.txt';
open(my $fh, '<:encoding(UTF-8)', $filename)
  or die "Could not open file '$filename' $!";
while (my $row = <$fh>) {
    chomp $row;
    if( index($row, '  Chassis Info') eq 0 ){
        #print "$row\n";
        while (my $row = <$fh>){
            chomp $row;
            if( (length($row) < 5) or (substr($row, 2, 1) ne ' ') ){
                last ;
            }
            if( index($row, '    Serial:') eq 0 ){
                print "$row\n";
            }
        }
    }
}