久久精品亚洲,欧美久久免费观看,亚洲成人精品一区

文本提取并輸出到文件

# !/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 閱讀(1239) 評論(0) 編輯收藏所屬分類: Perl


只有注冊用戶登錄后才能發表評論。




網站導航: 博客園 IT新聞 Chat2DB C++博客博問管理
相關文章: 統計工程的源代碼行數 Perl eval函數探討如何捕捉CGI程序exception 創建或刪除目錄 Perl Tips 2006/8/19 刪除用通配符匹配的一類文件列出目錄下的所有子目錄和文件名 perl自帶的介紹圖形界面的例子 windows 下的system命令的后臺運行求助 Perl處理Unix命令輸出