Necesidad de extraer información de HWInfo

Question

Necesito extraer información como Serie y Producto de HWInfo. Ahora mismo lo intenté hwinfo --bios | grep 'Serial:'y obtengo más de lo que necesito. Primero, me gustaría obtener la información después del serial real: y no tengo ni idea de cómo canalizar eso únicamente. El segundo problema es que al buscar el 'Serie' obtengo 3 números de serie diferentes. Si miro la impresión completa de HWInfo, el número de serie que realmente necesito está en la subsección de Información del sistema: n.º 1, entonces, ¿hay alguna manera de buscar el 'Serial'? ¿Serie bajo eso solamente?

Gracias

Answer 1

Tenía la misma pregunta y creé esta como primer paso:

#! /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";
            }
        }
    }
}