perl学习第三篇：把某个文件夹下面的所有文件中含有“my”字符的行写入输出文件（my.rpt）中（菜鸟的继续练习）

文件夹的名字是try_vim，其中包括很多.pl脚本文件和一些其他的乱七八糟的东西，我想把这个文件夹里面的perl脚本文件筛选出来，然后再把脚本里含有定义my语句的行整理出来。

#!/usr/bin/perl
use warnings;
use strict;
my $dir = "../try_vim";
my $file;
my @filename;
undef $/;
opendir