初次接触perl

今天贝在烦一个程序，也为难他了，刚学perl不到两天，就让他写程序完成功能，虽然现在他有很大的提高，但是也还是心里没底啊。第一次布置的任务，他说如果不完成还是挺不好的，呵呵，没办法，我就乐于助人，赶紧看了看perl的大概语法，变量循环等，然后找了相关的网页看了看，还好，因为比较熟悉C语言，而且上过Solaris课，所以这个基本上还是没多大问题。下面是他要的程序，其实，真的如他说的，相对于C语言来说，实现这个功能还是比较容易的，呵呵。

 

open(INPUT, "input.txt");
open DATA, ">","result.txt";
foreach (<INPUT>)
{
if($_=~m/^[aeiouAEIOU]["][^aeiouAEIOU]/)
  {print DATA "$_ "; }
}

 

现在我还是决定不给他程序，免得和以前一样，一直依赖于俺给他写程序了，那可就麻烦了，前车之鉴啊，哈哈。我告诉了他的基本思路，也告诉了我写出程序出来的几个有用的网页，希望他能成功，也相信他肯定能自己写出来的，呵呵。加油。。。