首页 | 新闻 | 交流 | 问吧 | 文档 | 手册 | 下载 | 博客

一个关于正则分隔的问题

作者:  时间: 2010-11-12
有一批需要处理的文件,其中每个文件中只有一行,但是每行中有类似如下数据
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";
  }
}


待处理文件:
文件: TLOGON-0111105,1289426408.gz
大小: 0KB
下载: 下载