你这个数据看起来是文本，可以用记事本打开确认，如果是文本数据，PERL读取是很容易的，open打开文件，以行为单位读入，使用split分为数组，然后取你需要的就可以了，大概的代码如下： my ($str,@arr);open(FD,'xxx.txt');while($str=){ @arr=sp...
