Precisa extrair informações de HWInfo

Question

Eu preciso extrair informações como Serial e Produto do HWInfo. Agora eu tentei hwinfo --bios | grep 'Serial:' e recebo mais o que preciso. Primeiro eu gostaria da informação após o Serial atual: e não tenho idéia de como canalizar isso apenas. O segundo problema é usando o 'Serial' Eu recebo 3 Serial diferente, se eu olhar para a impressão completa do HWInfo, o Serial que eu realmente preciso está na subseção do System Info: # 1, então existe uma maneira de fazer o grep Serial sob apenas isso?

Obrigado

    

Answer 1

Eu fiz 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";
            }
        }
    }
}