hi choroba, Upto printing number and datainfo is ok, it displying toatl numbers and thier datainfo but after that i need to sotre these numbers into hash so i created hash,but in my hash only one element is there how can use all elements in my hash.

Several ways to do the same, i.e.

Updated (to avoid duplication in the other post)

use strict;
use warnings;

my %hash = (
    'name'=>'hisham',
    'keyword'=>undef,
    'place'=>'the Monastery'
    );
my $key_count = keys %hash;
my $value_count = grep {defined} values %hash;

print $key_count,"\n";
print $value_count,"\n";
[download]

I think many here are confused because you split your script into two halves.

Instead of

my %nums =( "$number", $info);
[download]

which initializes (i.e. removes previous information in) a hash, you should use

$nums{$number}= $info;
[download]

i tried like that as you said but i have one doubt

#!/usr/bin/perl
    use warnings;
    use strict;

    use XML::LibXML::Reader;

my $file;open $file, 'formal.xml');

my $reader = XML::LibXML::Reader->new( IO => $file ) or die ("unable t
+o open file");

while ( $reader->nextElement( 'DATA' ) ) {

my $info = $reader->readOuterXml();

$reader->nextElement( 'number' ); 

my $number = $reader->readInnerXml(); 

$nums{$number}=$info;

print( "num: $number\n" );

print( " datainfo: $info\n" 
}
[download]

it excuting but can i print hash directly not using

print( "num: $number\n" );

print( " datainfo: $info\n"
[download]

i tried like this

print %nums;
[download]

but it excuting infinity times. and also how to specify input path outside the module.

Sigh, I think that your real problem is the lack of a solid basis. I don't want to be rude but it seems that you don't know exactly what are you doing. If you need help to iterate, print a hash or even open a file, the best advice that I can give you is: "Stop now, stop to write code for a while and read some manuals".

how can i count number of keys in hash
can you tel me how to create hash table in my code.
how can i iterate all keys in my hash
I need to to fill my hash with all keys
[download]

If you open the manual for the function keys (perldoc -f keys) you will have the answer to your first question in the fourth line. If you take a look to the faqs (perldoc perlfaq) you will see that the perlfaq4 cover "How do I process an entire hash?" and "How can I know how many entries are in a hash?"

Well... just read the manual, we can't do this for you...

Naturally when you put a print statement inside a loop it prints as often as the loop is executed. And when you have a print statement inside a loop inside another loop, this print statement will be executed much much more often. If you don't want to print so many times, put the print statement AFTER the loop(s).

normally the number of keys = number of values, if a value is missing is filled automatically, if a value is undef is not printed, but you still can call it. If you need to discard the null values you can always add a test or if-block

hi Its not working, it giving only one number is there but i have 148 numbers.can you tel me how to create hash table in my code.

well, of course you will need to create and fill a hash first with the desired part of your data. The code tells you exactly what you have: my %nums =( "$number", $info) is a hash with one element only, a single pair key-value. You need to iterate between all keys and all values

As pointed out, there's no need to iterate over the hash using each. Considering you are calling keys - I've no idea why you are using each.

Furthermore, since you build the hash as a one key, one value pair, why the need to find out the number of keys? The answer to that is already known, isn't it?

hi javafan, I need to to fill my hash with all keys, still now i have only one element in hash. so i need to fill all elements in hash then disply the number of keys.

Uhm, why don't you count them while filling in? ;-)