Kiran,

This is a *Perl* site for *Perl* questions. In some cases the problem domain overlaps a little with Unix/Linux, Apache, SQL, mod_perl and networking areas of expertise -- that's OK. However, here you're asking us to write a complete answer, without having tried anything (well, anything that we can see here, anyways), and that's just not on.

It seems you want to generate some kind of report, based in some input files. Well, in broad terms, the solution is

• Read the data into some kind of hash or array data structure, making the appropriate connections between the data as necessary;
• Make further appropriate connections, possibly simplifying the data structure; and
• Dump out the data structure in some sort of suitable format.

And let us know when you have a Perl question that we can help with. ;)

Kiran - you need to learn to boil down your questions, use <readmore> and <code> tags where appropriate, and provide the code you've attempted to use (and how it is not fitting your requirements). And, preferably, concentrate on a single problem at a time - not a bunch of "operations". Your posts feel like an abuse of the monks. At the very least, scanning them has become an abuse on my eyes...

My "Inputs" therefore are to read the PerlMonks FAQ thoroughly before posting anything further.

Pax,
NovMonk

If I wanted to produce the following result

Header stuff
123456|987|12
Apples|9
Oranges|19
Bananas|4
Footer junk
Header stuff
123456|987|34
Apples|7
Oranges|15
Bananas|11
Footer junk
Header stuff
123456|987|56
Apples|3
Oranges|9
Bananas|8
Footer junk
[download]

from the two input files fake1.dat

Header stuff
123456|987|12
Apples|4
Oranges|12
Bananas|3
Footer junk
Header stuff
123456|987|34
Apples|5
Oranges|7
Bananas|8
Footer junk
Header stuff
123456|987|56
Apples|2
Oranges|1
Bananas|3
Footer junk
[download]

and fake2.dat

Header stuff
123456|987|12
Apples|5
Oranges|7
Bananas|1
Footer junk
Header stuff
123456|987|34
Apples|2
Oranges|8
Bananas|3
Footer junk
Header stuff
123456|987|56
Apples|1
Oranges|8
Bananas|5
Footer junk
[download]

I would probably write a script like this to do it:

See if that helps you.

<update>I've fixed a potential bug since the original posting - btw you don't specify what should happen if the header+subheader+object only appears in one file (either file 1 or file 2) - currently, they will still be reported.</update>

Kiran, try the following code. A couple of things (since I can't believe that this will be the end of it).

1. You have some lines that look like sub-headers, but the first set of digits is an ip address, not a simple numeric-string - how should these be treated?
2. You haven't really specified your output format.

BTW I doubt I'm doing you any favours writing your code - I don't know whether you are over your head at school or in a job, but you're digging yourself in deeper. Unless you're in management, or training for management, in which case you're doing fine. That said, learn to write better specifications (unless you're shooting for the golden ring, and going for upper management).

Here's the latest code...

map{$a=1-$_/10;map{$d=$a;$e=$b=$_/20-2;map{($d,$e)=(2*$d*$e+$a,$e**2
-$d**2+$b);$c=$d**2+$e**2>4?$d=8:_}1..50;print$c}0..59;print$/}0..20
[download]

I doubt I'm doing you any favours writing your code

You're certainly not doing PerlMonks any favors... which I would hope, at this point, would be of more concern to you.

A word spoken in Mind will reach its own level, in the objective world, by its own weight

I'm not entirely sure how this impacts on PM in a negative way - can you elaborate?

map{$a=1-$_/10;map{$d=$a;$e=$b=$_/20-2;map{($d,$e)=(2*$d*$e+$a,$e**2
-$d**2+$b);$c=$d**2+$e**2>4?$d=8:_}1..50;print$c}0..59;print$/}0..20
[download]

Tom Melly, pm@tomandlu.co.uk