作者 主題: 關於Perl text file parsing 問題  (閱讀 9018 次)

0 會員 與 1 訪客 正在閱讀本文。


Pail

  • 俺是博士!
  • *****
  • 文章數: 1040
  • 性別: 男
    • 檢視個人資料
回覆: 關於Perl text file parsing 問題
« 回覆 #1 於: 2010-05-11 18:14 »
print $1."\n" if ( /^(http:\/\/[^\/]+)/ ) ;
Pail Luo.
Email: pail.luo@gmail.com

特級大肉腳

  • 憂鬱的高中生
  • ***
  • 文章數: 113
    • 檢視個人資料
回覆: 關於Perl text file parsing 問題
« 回覆 #2 於: 2011-01-08 00:41 »
這題如果用tcl來做字串處理,就很簡單:
用split把每行用"/"做分隔符來拆開,然後lindex第二的列表元素。