perl实例代码，读取文件的前200行内容。
例子：
复制代码 代码示例:
#!/bin/perl
#site: www.jb200.com
#
##读取前200行
#open (IN2,"F:vartxt_filesinsert_B73_1.txt") or die "$!";
#open (OUT2,"+>F:vartxt_filesinsert_B73_1_myout.txt") or die "$!";
#my @myout;
#while(<IN2>)
#{
# if($.<=200)
# {
# push @myout,$_;
# }
#}
#print OUT2 @myout;
