netbooty-dev-client-5:~ labuser$ perl -e '"adsf bbb"=~/(?=.*(adsf))(?=.*(bbb)).*$/; print $1." ".$2."/n";'
adsf bbb
netbooty-dev-client-5:~ labuser$ perl -e '"bbb adsf"=~/(?=.*(adsf))(?=.*(bbb)).*$/; print $1." ".$2."/n";'
adsf bbb
Effective Perl
發表評論
所有評論
還沒有人評論，想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章
[轉載] Perl的內置變量(2)
$- 當前頁可打印的行數,屬於Perl格式系統的一部分$! 根據上下文內容返回錯誤號或者錯誤串$” 列表分隔符$# 打印數字時默認的數字輸出格式$$ Perl解釋器的進