Somar numeros presentes em um arquivo, mas antes remover um texto

[fjucks]

Ola pessoal , estou com uma duvida, tenho os seguintes dados em um arquivo que passo por parametro:

> RF00001_A
> RF00002_B
> RF00003_B
> RF00004_A
> RF00005_A
> RF00007_B
> RF00008_B
> RF00009_A
> RF00010_A
> h 9
119
140 143
120 107 142
105 108 125 107
120 93 142 120 85
103 126 131 115 42 103
255 246 245 243 262 247 268
259 250 237 237 250 245 258 304

nesses dados, eu preciso por exemplo, atribuir a 119 ao RF00001_A , a soma do (140+143) ao RF00002_B e assim por diante, mas como faço para percorrer esse arquivo? somar os numeros da matriz? e ainda atribuir essa soma a cada RF?

[acpguedes]

esses numeros q vc tem q atribuir vc coloca em um array e manda somar o arrai, no caso 8 arrays
nesse negocio acima vc vai ter q colocar em uma string so o INT, pra isso vc ira precisar de regex...

ainda não vou dar o codigo p vc, mas qualquer coisa poste aqui que eu do mais uma dica!

[fjucks]

sub abre_arquivo{
open(ARQ, $ARGV[0]) || die "error Voce nao indicou o arquivo \n";
while (my $entry = <ARQ>) {
@conteudo = split("\n", <ARQ>);
for (my $i=0; $i < scalar(@conteudo); $i++) {
print @conteudo[$i];
}
}
print "@conteudo\n";
}


sub somaDistancia{
$conta_linhas = 0;
while(my $entry = <ARQ>){
my (@lines) = split("\n", $entry);
}
print @lines;
}

essa eh uma parte do meu código, nao esta fazendo o que eu quero ainda, porém estou fazendo para ir testando aos poucos e vendo como esta ficando, o problema é que tipo, eu estou com duvida na parte de percorres os dados do arquivo, como captar esses dados, tipo (> RF00010_A) e pegar os dados daquela linha e atribuir para a mesma...

vou ver sobre regex aqui, e muito obrigado por enquanto!!!

Abraço

[acpguedes]

o "> RF00010_A" tera que virar uma regexp onde ira extrair so o "00010" que ira fazer parte de uma string

talvez não precise somar um array com aquela outra parte basta colocar "my $soma1 = 140 + 143;" e assim vai

depois soma o que extraiu da regex e pronto
RF00010_A

my @rf = (0...0);
my @resultado = (0 ... 0);
while (<DATA>){
if (regex){
@rf[0] = $1 ;
}
}
@resultado[0] = 119 + @rf[0];
$1
__DATA__
> RF00001_A
> RF00002_B
> RF00003_B
> RF00004_A
> RF00005_A
> RF00007_B
> RF00008_B
> RF00009_A
> RF00010_A
> h 9 

Bem, eu n testei, mas é por ai...fiz so p dar uma luz... qualquer coisa tamo ai...

[guilez]

Olá,
Precisa ser necessariamente em perl?
Eu fiz algo muito parecido com isto, aqui: http://www.forum-invaders.com.br/vb/showthread.php/40008-Desafio-Perl-01-Sessão-e-usuários-ativos?p=285708&viewfull=1#post285708

Abraços.

[fvox]

Hi.

Não entendi muito bem o seu "atribuir". Você só quer concatenar no fim da string?
Por exemplo, "RF00001_A" ficará "RF00001_A119" e por aí vai?

[]'s

[acpguedes]

fvox, n sei se eu to certo, mas o que ele quer é assi
"RF00001_A + 119 = RF00120_A"

acho q é isso...

[fvox]

Hi.

Se for isso...

#!/usr/bin/env perl

use strict;
use warnings;

my (@rf, @n) = ();

while(<DATA>) {
    s/\s+$//g;
    push((/^>/ ? \@rf : \@n), $_);
}

for(0 .. $#rf) {
    my @el  = split / /, ($n[$_] // 0);
    my $sum = 0;
    $sum += $_ for @el;
    my $len = length $sum;
    $rf[$_] =~ s/\d{$len}_/$sum/g;    
}
print $_, "\n" for @rf;

__DATA__
> RF00001_A
> RF00002_B
> RF00003_B
> RF00004_A
> RF00005_A
> RF00007_B
> RF00008_B
> RF00009_A
> RF00010_A
> h 9
119 
140 143 
120 107 142 
105 108 125 107 
120 93 142 120 85 
103 126 131 115 42 103 
255 246 245 243 262 247 268 
259 250 237 237 250 245 258 304 

O código com alguns comentários pode ser encontrado aqui.

[]'s

[acpguedes]

isso n foi mto didatico,,, hahahaha

eu taja dando so dicas pra ele chegar lah sozinho

[fjucks]

acpguedes não bem isso não, o código funciona assim

> RF00001_A
> RF00002_B
> RF00003_B
> RF00004_A
> RF00005_A
> RF00007_B
> RF00008_B
> RF00009_A
> RF00010_A
> h 9
119
140 143
120 107 142
105 108 125 107
120 93 142 120 85
103 126 131 115 42 103
255 246 245 243 262 247 268
259 250 237 237 250 245 258 304

de RF00002_B até RF00001_A o valor é 119
de RF00003_B até RF00002_B o valor é 140
de RF00003_B até RF00001_A o valor é 143
de RF00004_A ate'RF00003_B o valor é 120 e assim por diante, ma so problema é que eu tenho que tipo, mostrar o valor ex: RF00003_B e a soma das distancia em um relatório.. esses (RF00003_B,RF00007_B...) são apenas uma nomenclatura...