Aquisição de dados udp e escrever um arquivo wav

[Dilson_boy]

Ola pessoal estou com um problemão no meu tcc rsrs.

Estou fazendo aquisição de amostras de um módulo arduino que se comunica através de uma interface udp com níveis de quantização de 0 a 1023.

Estou armazenando esta aquisição na variável $watts.

O problema consiste em gerar um arquivo wav com várias amostras dentro dele, com este programa que eu fiz, ele está armazenando apenas 1 valor na variável $watts.

Quando eu gero um loop na variável ele pega o valor e mostra 8000 vezes!

Alguém tem uma idéia de como eu poderia armazenar várias amostras que chegado da UDP em uma variável?

Ou alguma forma de fazer aquisição destes dados?

Segue o programa:

#!/usr/bin/perl -w

# cclisten - UDP Currentcost listener

use strict;

use IO::Socket;

my($msglen,$sock, $newmsg, $MAXLEN, $PORTNO);

my($lasttimestamp,$timestamp,$tempr,$watts,$errcount,$timeouts);

$MAXLEN = 1024;

$PORTNO = 52240;

$sock = IO::Socket::INET->new(LocalPort => $PORTNO,

Proto => 'udp',

LocalAddr => '192.168.10.255',

Broadcast => 1)

or die "socket: $@";

print "Awaiting UDP messages on port $PORTNO\n";

$lasttimestamp = 0;

while ($sock->recv($newmsg, $MAXLEN)) {

$msglen = length($newmsg);

$timestamp = unpack("L", substr( $newmsg, 0, 4));

$tempr = unpack("S", substr( $newmsg, 4, 2)) / 10;

$watts = unpack("S", substr( $newmsg, 6, 2));

#print "tempo: $tempr Obtendo dados: $watts\n";

use Audio::Wav;

my $wav = new Audio::Wav;

my $sample_rate = 44100;

my $bits_sample = 10;

my $details = {

'bits_sample' => $bits_sample,

'sample_rate' => $sample_rate,

'channels' => 1,

# if you'd like this module not to use a write cache, uncomment the next line

#'no_cache' => 1,

};

my $write = $wav -> write( 'testesom.wav', $details );

my $i;

for $i (44..8000){

print "$watts\n";

$write -> write($watts);

}

$write -> finish();

die "recv: $!";

}

[Fvox]

Hi.

Não tenho como fazer o teste pra te ajudar melhor, mas vamos lá...

Você faz o unpack e joga isso pra escalar $watts, certo?

=> perldoc - unpack()

unpack does the reverse of pack: it takes a string and expands it out into a list of values. (In scalar context, it returns merely the first value produced.)

Tenta jogar o valor do unpack pra um array e depois joga pra uma scalar.

my @watts = unpack("S", substr( $newmsg, 6, 2));
$watts = join q(), @watts;

[]'s

[Dilson_boy]

Ok farei este teste, também estava olhando para outras formas de se fazer isso e encontrei o rrdtool, vou tentar das 2 formas, a que der certo eu posto aqui no fórum!

Muito obrigado!

[Dilson_boy]

Aew cara consegui fazer dar certo!

É isso mesmo que você falou eu preciso gerar uma array e capturar as informações:

fiz isso da seguinte forma:

code:

my @watts;

my $i =0;

for ($i=0 , $i<=8000, $i++);{

if (sock-> recv($newmsg,$MAXLEN)) {

[$watts] [$i] = unpack("S", substr( $newmsg, 6, 2));

}

}

Valeu pela ajuda camarada!!

Dessa forma funfou!!

[Fvox]

Hi.

Opa, que bom que deu tudo certo!

Seria difícil tentar ajudar sem poder testar a aplicação. oO

Tamo aqui pra isso rs. Boa sorte com o projeto aí. ;-)

[]'s

[Dilson_boy]

E ae galerinha estou aqui de novo, com um problema um pouco diferente. Acredito que pra vocês programadores será fácil.

Eu gerei 4 programas que fazer a coleta de dados, o problema é que eles precisam executar o processo exatamente no mesmo instante!

Para isso eu gerei uma programação no crontab.

* * * * * * perl ./Ouvinte.pl

* * * * * * perl ./Estação1.pl

* * * * * * perl ./Estação2.pl

* * * * * * perl ./Estação3.pl

O problema é que a precisão de 1 minuto para mim é muito ruim! eu precisaria executar os 4 programas no mesmo segundo. Alguém teria alguma idéia de como fazê-lo?

Obrigado e abraços!

[Fvox]

Hmm... Hora de brincar com um pouco de assincronismo então.

Há diversos modos de se fazer isso, mas acho que forking é o mais simples.

Faremos um script que executará os outros simultaneamente. Lembrando que, por ser simultâneo, não há controle de qual executará primeiro. Todos serão disparados juntos!

#!/usr/bin/env perl

use strict;
use warnings;

my @childs = ();
my @files  = qw(Ouvinte.pl Estação1.pl Estação2.pl Estação3.pl);

for(@files) {
    my $pid = fork;
    if($pid) {
        push @childs, $pid;
    }
    elsif($pid == 0) {
        exec $^X . ' ' . $_;
        exit(0);
    }
    else {
        print "não foi possivel realizar a operacao: $!\n";
    }
}

for(@childs) {
    waitpid($_, 0);
}

[Dilson_boy]

E ISSO MESMO QUE EU PRECISO!

TODOS DISPARANDO SIMULTANEAMENTE!

IREI TESTAR E POSTO A RESPOSTA AQUI NO FÓRUM... MUITO OBRIGADO MAIS UMA VEZ!!

[Dilson_boy]

Opa ai sim funcionou! Valeu tu é o cara Fvox!

Bom agora surgiu um outro pequeno problema, nós estamos escrevendo um arquivo.txt com uma sequência numérica de uma array.

Ex .: @am1 = 12 20 35 50.

Até ai tranquilo.

Porém esta sequência deve ser recuperada em outro arquivo.

Ex.: open = my $fh , '<', 'ouvinte.txt';

my @a = <$fh>;

dai quando eu dou print no primeiro elemento:

print '$a[0]';

aparece

12 20 35 50

sendo que o pretendido seria

print '$a[0]';

aparecesse somente o primeiro elemento da array

12;

Preciso de cada elemento pois farei um tratamento matemático deles.

Grato!

[Fvox]

This?

my @a = split / /, <DATA>;
print 'Item 1: ', $a[0], "\n";
print 'Item 2: ', $a[1], "\n";

__DATA__
12 20 35 50

Output:

Item 1: 12

Item 2: 20

[]'s

[Dilson_boy]

É isso mesmo eim cara, tu salvo minha vida mais uma vez!

kkkkk

vlwsss!!! =D

This?

my @a = split / /, <DATA>;
print 'Item 1: ', $a[0], "\n";
print 'Item 2: ', $a[1], "\n";

__DATA__
12 20 35 50

Output:

Item 1: 12

Item 2: 20

[]'s