Effective Perl

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

發佈了22 篇原創文章 · 獲贊 2 · 訪問量 2萬+
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章