Hi

I am new to perl programming and i have one query and a problem in perl hashing.

I have two hashes containing

Hash 1 Hash 2
a=> 1 1 => c1
b=> 2 2 => c2
c=> 1 3 => c3
d=> 1
e=> 2
f => 3

I want to retrive the Keys of Hash1 from the keys of Hash 2.The Keys of hash matches the values of Hash1. How can i do this.

I have a file like this a csv file

DB01967 ZIPA
DB01967 PFAZ
DB01992 YVBK
DB01992 ZAP70
DB02191 ZIPA
DB02319 YQHD
DB02552 ZFPP

I want to print a file of csv in the format like

DB01967 ZIPA PFAZ
DB01992 YVBK ZAP70
DB02191 ZIPA
DB02319 YQHD
DB02552 ZFPP

i am totally new to python problem in parsing.

Well

I have a 2D array matrix file like
[CODE]
0.5 0.8 0.9 0.10
1.0 0.5 0.75 0.6
2.5 6.0 0.5 0.53
3.0 2.75 0.9 0.5

I want to read this file as csv and edit the file such as when the values are above (> 1) i want to edit it as 1.0
so my matrix will look like

0.5 0.8 0.9 0.10
1.0 0.5 0.75 0.6
1.0 1.0 0.5 0.53
1.0 1.0 0.9 0.5
[/CODE]

I have a sort of csv file which looks likes given below i want to count number of digits in each line like number of 0's ,1 s in each line and print them this way for each line i want to print information in csv file .

0 0 1 2 3 4 2 1 2 5 0 7 7 7 3 3 3 8 1 1 9 1 6 3 0 9 8 1 6 9 2 0 1 7 3 3 1 0 1 6 7 7 0 1 2 8 9 8 3 2 6 1 2 4 3 0 6 5 2 9 9 5 7 2 8 4 9 8 5 1 6 0 6 4 9 6 3 0 0 8 9 7 6 0 3 2 3 1 4 9 6 3 7 9 2 9