perl语言写一个程序，提示用户从标准输入读取数据，当遇到包含Derek字符串的行就打印输出到屏幕

更新时间2019-06-08 09:24:23

参考

print "Please Input: ";
while(defined (my $line = <>))
 {
    chomp($line);
    if($line =~ /Derek/ )
       {
        print  $line," ";
        }
   print "Please Input: ";
 }