reading from file

[hack_tom]

Hi have a file which consist of following thing

begining of file
----------------------
my name some dfgfgfk jdksjdkls laladsl sdlsdls
.
.
.
kfdjkfdk some drt pro vhdl sdjls.
----------------------------------------------------------------
ddr.spw.df.df 0 0 0 0 0
ddr.ser.ddf.tp 1 2 3 4 1
ddr.pwq.pro.fgt.tp 1 3 4 5 7
eth.pro.iw 1 2 3 4 5
eth.3po.lk 1 2 5 6 7
eth.3yu.lo 3 4 5 6 9

--------------------------------------------------------
end of file

Now I want to seprate all lines begining with ddr and sum their 5th column, similiarly I want to seprate all lines begining with eth and sum their 5 column. The top portion of file as shown might consist of some paragraph which don't need to consider. So please can anyone help with perl script to perform this operation.

[KevinADC]

What have you tried so far? Is this school/class work?

[hack_tom]

What have you tried so far? Is this school/class work?

Hi this neither my school/class work. I don't know perl and I need this to make my work easier.

[KevinADC]

one way to do it:

my %table = (
   ddr => 0,
   eth => 0
);
open (FH, "path/to/yourfile") or die "$!"; 
while(<FH>){
   if(/^ddr\./) {
      my ($col5) = /\s(\d+)$/;
      $table{ddr}+=$col5;
   }
   elsif(/^eth\./){
      my ($col5) = /\s(\d+)$/;
      $table{eth}+=$col5;
   }
   else {
      next;
   }
}
close(FH);
print "ddr = $table{ddr}\neth = $table{eth}";

[hack_tom]

Thanks Kevin for wuick reply.
I need one more perl script to generate the following file in format given below

-----------------------

move t1
move t2
move t3
move t4
..
..
.
move tn

--------------------------

where t1, t2, t3, t4.... tn are psudo random numbers between 1 and largest 32 bit signed and unsigned number. value n can be between 1 to 40.

[KevinADC]

I need a new car myself.