perl可以实现这样的匹配吗

文件包括:
.....
monday.........
tuesday........
wednsday........
thursday........
friday..........
saturday......
....

perl如何实现：匹配从包含friday的行开始到文件最后或者到指定字符串，将中间的这些内容输出到一个新文件中。

我有个方法,但不是很好：
main.pl中
调用system("test.sh")
然后在test.sh中，用sed -n '/friday/,$p' file > file2
这样是可以实现的，但较为啰嗦，需要用两个程序执行：main.pl和test.sh

当我在main.pl中，
直接用system("/usr/bin/sed -n '/friday/,$p' file > file2");
程序出错，提示：sed: command garbled:

如果用sed，可以在一个程序里写完吗？若是不用sed，perl有没有直接的匹配方法呢？

本帖最后由 jason680 于 2010-11-15 17:41 编辑

回复 zljjg2000

while(<>){
  $out = 1 if (m/friday/);
  print if $out;
}


or

perl -lane '{$out = 1 if (m/friday/); print if $out;}' file1 > file2

回复 jason680


    这个很强大 能不能讲解下？为什么这样写就能到文件末尾呢？