Precisa extrair informações do HWInfo

0

Preciso extrair informações como Serial e Product do HWInfo. Agora eu tentei hwinfo --bios | grep 'Serial:'e recebo mais o que preciso. Primeiro, gostaria das informações após o Serial real: e não tenho idéia de como canalizar isso apenas. O segundo problema é grepping o 'Serial'. Eu recebo 3 Serial diferentes. Se eu olhar para a impressão completa do HWInfo, o Serial de que realmente preciso está na subseção de Informações do sistema: Serial sob apenas isso?

Obrigado

ChangeMyNameForPA
fonte

Respostas:

1

Eu tive a mesma pergunta e criei esta como primeira etapa:

#! /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";
            }
        }
    }
}
Michael B
fonte
No meu exemplo eu encontrei a série sob Chassis Info, assim que este procura Chassis Informações e nas próximas linhas para a série
Michael B