creating array of hash..

I thing this is what You are expecting.hope it help.
Regards
Rajiv

Expand|Select|Wrap|Line Numbers

1. use Data::Dumper;
2.  
3. @name=('abcv','abcdv');
4. @add=('Mumbai','Delhi');
5. @ph= ('838246','237546'); 
6.  
7. my %det;  
8.  
9.  
10.  
11. my @array=();
12.  
13. for $i(0..$#name){
14. my %info;
15. $info{name}=$name[$i];
16. $info{add}=$add[$i];
17. $info{ph}=$ph[$i];
18.  
19. push(@array,\%info)
20. }
21.  
22. $det{class}=\@array;
23.  
24.  
25. print Dumper %det; 

I thing this is what You are expecting.hope it help.
Regards
Rajiv

Thanks rajiv
Now it is working fine...
If any issue is coming then i will contact you....

Thanks rajiv
Now it is working fine...
If any issue is coming then i will contact you....

Hi Rajiv,

I have same type of two hashes i want to merge two hases into one hash.

Can u help me.

Hi Rajiv,

I have same type of two hashes i want to merge two hases into one hash.

Can u help me.

Dilip,
Could you be more clear on your question. What do you mean by 'same type' here? In merging, do you want to just put key-value pairs of both hashes into one?
Sample data would be good.

Dilip,
Could you be more clear on your question. What do you mean by 'same type' here? In merging, do you want to just put key-value pairs of both hashes into one?
Sample data would be good.

I have 2 hash given below:

You need to parse through each elements of the anonymous array (which is the value for your hash key) of both hashes and push it to the anonymous array (values) ofthird hash's keys.

Though in your example, you have only one key -"diff" for both %hash1 and %hash2, the following code will also work for hashes with multiple keys.

You need to parse through each elements of the anonymous array (which is the value for your hash key) of both hashes and push it to the anonymous array (values) ofthird hash's keys.

Though in your example, you have only one key -"diff" for both %hash1 and %hash2, the following code will also work for hashes with multiple keys.

Expand|Select|Wrap|Line Numbers

1. use Data::Dumper;
2.  
3. #### defining two hashes
4. %hash1 =( diff =>
5. [
6. {
7. 'filename' => 'src',
8. 'line_number' => 2,
9. 'source_line' => '448|303 EAST',
10. 'target_line' => ''
11. },
12. {
13. 'filename' => 'src',
14. 'line_number' => 4,
15. 'source_line' => '320|2200 WEST',
16. 'target_line' => ''
17. }
18. ]);
19.  
20. %hash2 = (diff=>
21. [
22. {
23. 'filename' => 'trg',
24. 'line_number' => 2,
25. 'source_line' => '455|303 SOUTH',
26. 'target_line' => ''
27. },
28. {
29. 'filename' => 'trg',
30. 'line_number' => 4,
31. 'source_line' => '322|2200 NORTH',
32. 'target_line' => ''
33. }
34. ]);
35.  
36.  
37. ### creating third hash by merging values of first two hashes
38. foreach (keys %hash1) {
39.  @{$hash3{$_}}=();
40.  for $i (0..$#{@{$hash1{$_}}}) {
41.    push @{$hash3{$_}},(${$hash1{$_}}[$i],${$hash2{$_}}[$i]) ;
42. }
43.  
44. }
45.  
46. print Dumper %hash3;
47.  

Now it is working fine
Actually I am comparing two flat files..
Now i got those lines which are different from src to trgt

if any further issue is comming i will contact you.

dillipkumar,

When posting code fragments and snippets please use the [CODE][/CODE] tags. It will make the code much more readable. It is expected.

Thank You,

Kevin

What is this supposed to do?

That does not look like it is correct syntax.

Now it is working fine
Actually I am comparing two flat files..
Now i got those lines which are different from src to trgt

if any further issue is comming i will contact you.

Hi,

Can u tell me how to read a pdf file...

Dillip.

Hi,

Can u tell me how to read a pdf file...

Dillip.

You can make use of PDF::Core or PDF::Extract or PDF::Parse modules.

You can make use of PDF::Core or PDF::Extract or PDF::Parse modules.

Hi nithin,

Can u provide me some sample code how to read a file....

Actually there is no such module available in my server, which u have providede.

Thanks
Dillip

Hi nithin,

Can u provide me some sample code how to read a file....

Actually there is no such module available in my server, which u have providede.

Thanks
Dillip

If the modules are not available, you need to install them. If you are using Activestate Perl, you can install this through PPM. Else, you can also download them(from the links provided) and install.