Logic, Analysis, and Computation

宠辱不惊静观窗前花开花落去留无意闲看天上云卷云舒

如需转载，请注明出处。

A simple perl script to extract digits from string

#! /usr/bin/perl -w

open FILE_INPUT, "<a.log" or die "Cannot open the file!" ;

open FILE_OUTPUT, ">res.txt" or die "Cannot open the file!";

$line = "";

while ($line = readline(FILE_INPUT)) {

$_ = $line;

if ( m/write: tcp:\/\/a/ ) {

@words = split(" ", $line);

foreach $w ( @words ) {

if ( $w=~ m/^\d/ ) {

print "$w\n";

}

close FILE_INPUT;

close FILE_OUTPUT;

print "Done !\n";

posted on 2009-06-11 05:43 小学毕业生阅读(267) 评论(0) 编辑收藏引用所属分类: Programming

只有注册用户登录后才能发表评论。
【推荐】100%开源！大型工业跨平台软件C++源码提供，建模，组态！

相关文章: A simple perl script to extract digits from string Programming note: problems related to couting the pairs of {} Programming note: an intresting macro Programming note: 遍历所有的组合

网站导航: 博客园 IT新闻 BlogJava 博问 Chat2DB 管理