Perl
各位大牛，大家好！我有两个文件为text1,301列，N行，第一行为表头，如：
chr sam1 sam2 sam3 sam4 sam5 sam6... ... sam300
sda sdew whgf eogd dgrk wwww wopm... ...woky
... .... .... .... ...... .....
第二个文件，text2，共一行，与表一中的表头完全对应：
chr w008 w007 w002 w006 w001 w010 ... ...
现在，我想把text1的表头替换成text2的第一行，即生成文件：
chr w008 w007 w002 w006 w001 w010 ... ... ---------------text2
sda sdew whgf eogd dgrk wwww wopm... ...woky ---------------以下是text1
... .... .... .... ...... .....
请各位大牛不吝赐教！！！！
