perl读写文字和数据混杂的文件

ironbridge

perl读写文字和数据混杂的文件， 有一文件vFloors,内容如下：
~v varFloor1
<Variance> 39
2.882107e-001 1.011243e+000 6.391264e-001 1.449148e+000 8.005224e-001
我希望把它读到另外一个文件 macros
也

脚本如下，发现只能读文字，数据不能读入，该如何解决？
#!/usr/local/bin/perl -w
use strict;

my ($macros, $vFloors,@labs);

# this script makes an mlf out of a list of file names and
# corresponding prompts - ie in the format
# fileid prompt
# fileid prompt
# "        "
# The prompts are automatically converted to upper case.


if (@ARGV != 2) {
  print "usage: $0 mlf promptlist\n\n";
  exit (0);
}

# read in command line arguments
($macros, $vFloors) = @ARGV;


# open MLF file
open (MACROS,">$macros") || die ("Unable to open mlf $macros file for writing");

print "writing to mlf file $macros\n";

print MACROS ("\~o\n");
print MACROS ("\<VECSIZE\> 39\<MFCC_0_D_A\>\n");
# open vFloors file
open (LAB, "$vFloors") || die ("Unable to open vFloors file $vFloors ");
#peint LAB pack("h8",99);  
binmode LAB;
while (@labs = <LAB>) {
  printf(MACROS "%s\n",@labs);
}
close (LAB);
close(MACROS);
print "writing to $macros file done\n";

ironbridge

已经解决，应该一行一行读入，请大家指教。我重新贴下，
#!/usr/local/bin/perl -w
use strict;

my ($macros, $vFloors,$labs);

# this script makes an mlf out of a list of file names and
# corresponding prompts - ie in the format
# fileid prompt
# fileid prompt
# "        "
# The prompts are automatically converted to upper case.


if (@ARGV != 2) {
  print "usage: $0 mlf promptlist\n\n";
  exit (0);
}

# read in command line arguments
($macros, $vFloors) = @ARGV;


# open MLF file
open (MACROS,">$macros") || die ("Unable to open mlf $macros file for writing");

print "writing to mlf file $macros\n";

print MACROS ("\~o\n");
print MACROS ("\<VECSIZE\> 39\<MFCC_0_D_A\>\n");
# open vFloors file
open (LAB, "$vFloors") || die ("Unable to open vFloors file $vFloors ");

while ($labs = <LAB>) {
  
  print MACROS $labs;
}
close (LAB);
close(MACROS);
print "writing to $macros file done\n";

dugu072_cu

一次读入所有文件，不算什么错，但是，printf用的实在是不对，且不好：
printf(MACROS "%s\n",@labs);
这里没有必要用 printf，看上去很别扭，也容易出错：
1. @labs是所有的行，包括了回车符，没有必要多一个 \n
2. %s需要一个字串，但你的 @labs 提供了多个字串，所以后面的数据一个都没有被写入进去

所以，你改为 行读入然后用print ，问题自然没了