分享一下我老师大神的人工智能教程!零基础,通俗易懂!http://blog.csdn.net/jiangjunshow
也欢迎大家转载本篇文章。分享知识,造福人民,实现我们中华民族伟大复兴!
[oracle@perass back]$ cat a.txt aaaaa1aaaaa2aaaaa3aaaaa4aaaaa5aaaaa11111[oracle@perass back]$ cat a1.pl open (A ,"<","a.txt");while (<A>){ $num++; if ( $_ =~/aaaaa/ ){ $a=$num}; if ($. == $a + 1){print "$_\n"};}[oracle@perass back]$ perl a1.pl 1234511111