[Cascavel-pm] Informacoes no arquivo

[Igor Sutton Lopes]

Meus dois centavos:

<code>
#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my @data;
foreach (<DATA>) {
  next unless m/^(V-\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+\S+\s*$/;
  push @data, { tipo => $1, time => $2, id => $3, teste => $4 };
}

print Dumper \@data;

__DATA__
var TEL
 
var FIL
 
var FAX
 
var ALTSE total stns 224 # non-missing obs 114
 
TIPO TIME ID TESTE
V-NOME B1910 300.00 001111 X
V-NOME B1910 300.00 002222 C
V-NOME B1910 300.00 003333 X
V-NOME B1910 300.00 004444 C
 
TIPO TIME ID TESTE
V-END B1910 300.00 001111 X
V-END B1910 300.00 002222 C
V-END B1910 300.00 003333 X
V-END B1910 300.00 004444 C
</code>