rekenen met perl

[efclem]

Hallo,

Ik heb een vraag over rekenen met perl? Ik heb een lijstje waarin gegevens staan over uitgegeven diskruimte aan server, de gegevens in het lijstje worden gescheiden door een ; en ik wil de getallen in kollom 2 optellen per server naam. Het lijstje ziet er alsvolgt uit:

D_AAAAA_A11_D1;10;GB;2007-07-09
D_AAAAA_A12_D2;120;GB;2007-07-09
D_BBBBBBBBB_A13_D1;50;GB;2007-07-09
D_BBBBBBBBB_A1_D1;20;GB;2007-07-09
D_BBBBBBBBB_A1_D2;100;GB;2007-07-09
D_CCCC_A2_D1;100;GB;2007-07-09
D_CCCC_A3_D1;25;GB;2007-07-09
D_CCCC_A4_D1;40;GB;2007-07-09
E_DDDDDDDDDDDDDD_A10_D1;100;GB;2007-07-09
E_DDDDDDDDDDDDDD_A13_D1;150;GB;2007-07-09

Tussen de eerste en de tweede underscore staan de servernamen.

Kan iemand mij op weg helpen?

Al vast bedankt
EF.

 

[AceT]

my file = 'document.txt';
open(FILE,$file);
while ( my $regel = <FILE> ) {
  my ($server_id,$ruimte_gebruikt,$ruimte_eenheid,$datum) = split(/\;/,$regel);
# en eventueel:
  my ($server_id1,$server_id2,$server_id3) = split(/\_/,$server_id);
# doe wat je wilt met de vars....
}
close(FILE);