$cdat = "top_hp;$top_hp,nm_hp;$nm_hp,top_mp;$top_mp,nm_mp;$nm_mp,top_ua;$top_ua,nm_ua;$nm_ua,top_ud;$top_ud,nm_ud;$nm_ud,top_lr;$top_lr,nm_lr;$nm_lr,top_ag;$top_ag,nm_ag;$nm_ag,top_lv;$top_lv,nm_lv;$nm_lv,top_job_lv;$top_job_lv,nm_job_lv;$nm_job_lv,top_ten;$top_ten,nm_ten;$nm_ten,\n"; open (OUT,">$cdatfile2") || &error("open error:$cdatfile2",1); print OUT $cdat; close(OUT) or die "Can't close : $!"; |