Parsing a Text File

ebmt2006

I have this data inside a file saved as “filename.txt” with bunch of other data what I want to do is I want to sort the following data and have an output as shown below

These lines are inside my text file:

number_of_students................ Total_by_gender 25 (F 11 => 44.0) (M 14 => 56.0)

number_of_students................ Total_by_gender 73 (F 69 => 94.5) (M 4 => 5.5)

number_of_students................ Total_by_gender 14 (F 1 => 7.1) (M 13 => 92.9)

the Out put I want :

Total number of Female = 11+69+1 = 81
Total number of male = 14+4+13 = 31

Total number of student = 25+73+14 = 112

The number after => is percentage and I want to calculate that as well

I would really appreciate if some one can give me some ideas and help me as well.

Thank You
T_Lee

KevinADC

What have you tried so far? Any code at all?

docsnyder

@ebmt2006

I don't know for what I should need code from you?

So, here we go (just to help you, as requested):

Expand|Select|Wrap|Line Numbers

 @lines = (

  "number_of_students................ Total_by_gender 25 (F 11 => 44.0) (M 14 => 56.0)",

  "number_of_students................ Total_by_gender 73 (F 69 => 94.5) (M 4 => 5.5)",

  "number_of_students................ Total_by_gender 14 (F 1 => 7.1) (M 13 => 92.9)",

);
 
for $line ( @lines ) {

  ( $f, $m ) = ($line =~ /\(F\s+(\d+)\s+=>\s+[\d.]+\)\s*\(M\s+(\d+)\s+=>\s+[\d.]+\)/);

  push(@fem, $f);

  push(@male, $m);

}
 
$f = join('+', @fem);

$m = join('+', @male);
 
printf("Total number of female: %s = %d\n", $f, eval($f));

printf("Total number of   male: %s = %d\n", $m, eval($m));

Greetz, Doc

KevinADC

Quote:

I don't know for what I should need code from you?

A smart guy like you can probably think of a few reasons. ;)

docsnyder

Quote:

Originally Posted by KevinADC

A smart guy like you can probably think of a few reasons. ;)

No, I can't!

I just prefer to give a simple answer to a simple question.

I am wrong to do so?

Greetz, Doc

docsnyder

Addition to Kevin:

Sorry, I did not want to offend you.

I just paid attention to the question, in which the concern was clearly stated:

Expand|Select|Wrap|Line Numbers

 I would really appreciate if some one can give me some ideas and help me as well.
 

A forum like this is intended to interchange experiences among experts and especially to transfere knowledge from experts to novices. In most cases, no novice gets help, if he is confronted with a counterquestion. This might be helpful in some circumstances (e.g. if the problem is not described clearly), but if a direct answer is possible, it should be given. That's my opinion and as my personal experience has shown, novices appreciate this philosophy.

Greetz, Doc

KevinADC

Quote:

Originally Posted by docsnyder

Addition to Kevin:

Sorry, I did not want to offend you.

I just paid attention to the question, in which the concern was clearly stated:

Expand|Select|Wrap|Line Numbers

 I would really appreciate if some one can give me some ideas and help me as well.
 

A forum like this is intended to interchange experiences among experts and especially to transfere knowledge from experts to novices. In most cases, no novice gets help, if he is confronted with a counterquestion. This might be helpful in some circumstances (e.g. if the problem is not described clearly), but if a direct answer is possible, it should be given. That's my opinion and as my personal experience has shown, novices appreciate this philosophy.

Greetz, Doc

OK. My experience and philosophy is different than yours on the subject.

docsnyder

Quote:

Originally Posted by KevinADC

OK. My experience and philosophy is different than yours on the subject.

Definitely!!!

Greetz, Doc

Parsing a Text File

re: Parsing a Text File

re: Parsing a Text File

re: Parsing a Text File

re: Parsing a Text File

re: Parsing a Text File

re: Parsing a Text File

re: Parsing a Text File

Similar Perl bytes

/bytes/development

/bytes/it

/bytes/about