#!/usr/bin/perl -wuse strict;open IN,"C:\\perl\\A.txt"; #这个是你A文件的路径,注意路径中的\要用\\open OUT,">C:\\perl\\B.xls"; #这个是你输出的B文件的路径,注意路径中的\要用\\while(){ $_=~s/([ \t])+/\t/g; #将一行中的空格替换成制表符 print OUT $_;#输出替换后的内容}close IN;close OUT;以上为代码,有不明白的地方,欢迎追问。