一个关于正则分隔的问题

时间：2010-11-12 来源：scrit

有一批需要处理的文件，其中每个文件中只有一行，但是每行中有类似如下数据
2010-11-11055251NVT-706 HWWGJK
这些数据以一段空格分开，每个文件中这些数据的个数不固定
现在的问题是，需要把“2010-11-11055251NVT-706 HWWGJK ”这些数据，分隔开，让它们在多行显示，而不是只在一行

经过别人提醒，想到了解决办法，代码如下：

#!/usr/bin/perl

use strict;
use warnings;
open FH,"file.txt";
my $hostname="test";

while(1)
{
my $tmpline = <FH>;
if(not defined ($tmpline))
  {
    last;
   }
chomp $tmpline;
#$tmpline =~ s/\s+/\;/g;

if( $tmpline =~ s/\s+/\n$hostname\;/g )
  {
   my $logline = $tmpline;
  print "$logline";
  }
}