weidagang2046的专栏

物格而后知致
随笔 - 8, 文章 - 409, 评论 - 101, 引用 - 0
数据加载中……

文本提取并输出到文件

# !/usr/bin/perl -w

@ARGV   >   0   ||   die   " Usage:\nperl $0 [file] " ;

 open (INH ,   " <$ARGV[0] " )  ||   die   " Can't open file $ARGV[0]\n " ;
 open (OUTH ,   " >d:/log.txt " )  ||   die   " Can't open file d:/log.txt\n " ;

 while ( $line   =   < INH > )
{
     if ( $line   =~   " GTS MS FSM "   ||   $line   =~   " GTS RPM PFC "   ||   $line   =~   " -> " )
    {
         print  OUTH  $line ;
    }
}

 close (INH);
 close (OUTH);

posted on 2006-03-24 12:23 weidagang2046 阅读(1270) 评论(0)  编辑  收藏 所属分类: Perl


只有注册用户登录后才能发表评论。
网站导航: