Hi,
I have used print statement inside the while loop to print the content of data and also used Data::Dumper.The output is as follows
data returned is HASH(0x4e9574)
data returned is HASH(0x4e9598)
data returned is HASH(0x4e958c)
data returned is HASH(0x4e961c)
data returned is HASH(0x4e95b0)
data returned is HASH(0x4e955c)
data returned is HASH(0x4e94fc)
data returned is HASH(0x4e9568)
data returned is HASH(0x4e95e0)
data returned is HASH(0x4e96d0)
data returned is HASH(0x22d410)
data returned is HASH(0x4e94e4)
data returned is HASH(0x22d350)
data returned is HASH(0x4e9574)
data returned is HASH(0x4e9598)
data returned is HASH(0x4e958c)
contents of hash is $VAR1 = {
'' => undef,
'foo' => 'bar'
};
The output of query in sql is as follows:
SQL> select seq_nbr,data_record from usage_inq;
SEQ_NBR DATA_RECORD
------------------ -----
200 10
145 10
205 10
450 10
2227 10
2386 10
202 10
204 10
144 10
472 10
1042 10
SEQ_NBR DATA_RECORD
------------------ -----
1261 10
203 10
504 10
201 10
503 10
16 rows selected.
SQL>
|