/ *简单的grep实现* / intmain（string argv []）{string buf，regexp; int ret = 1; //除非（regexp = argv [1]）die（＆＃34;用法：grep regexp [files]＆＃34;）; undef（argv [1]）; // //向下移args / * *示例perl优度，遍历文件和regexp * / while（buf =＆lt;＆gt;）{if（buf =〜/ $ {regexp} /）{puts（buf）; ret = 0; }} return（ret）;}