Retirar números de um arquivo de texto e adicioná-los juntos

Question

Eu tenho um arquivo de texto com centenas de linhas, como abaixo. Eu estou tentando encontrar uma maneira de puxar o número de registros e adicioná-los juntos. Então eu quero colocar a resposta em um arquivo separado Este é o meu primeiro script que eu já tentei escrever.

Record 4957 of message 1:
Record 3411 of message 1:
Record 2529 of message 1:

    

Answer 1

One-liner Perl:

perl -ne '$c += $_ for m/(\d+)(?!=:)/g; }{ print $c' in.txt > out.txt

Formulário de script em Perl:

#!/usr/bin/perl
use warnings;
use strict;

my $infile = 'in.txt';
my $outfile = 'out.txt';

open my $fh, '<', $infile
  or die $!;

my $count = 0;

while (my $line = <$fh>){
    my @line_count = $line =~ m/(\d+)(?!=:)/g;
    $count += $_ for @line_count;
}

close $fh or die $!;

open my $wfh, '>', $outfile
  or die $!;

print $wfh $count;

close $wfh or die $!;

Breve explicação: Colete todas as instâncias de um ou mais inteiros consecutivos por linha, desde que não sejam seguidos por um : anexado. Em seguida, basta atualizar uma variável adicionando esses novos valores a ela.

    

Answer 2

Desculpe, mas eu tive que resolver a resposta awk obrigatória.

awk '{sum+=$2}END{print "There are "sum" records."}' in.txt

A edição ninja garante que apenas as linhas com "Record" sejam somadas.

awk '$1=="Record"{sum+=$2}END{print "There are "sum" records."}' in.txt