+ -
当前位置:首页 → 问答吧 → 这个代码有问题吗?Undefined subroutine &main::OPEN called at cov.pl line 3

这个代码有问题吗?Undefined subroutine &main::OPEN called at cov.pl line 3

时间:2010-12-18

来源:互联网

  1. #!/usr/bin/perl -w

  2. OPEN(FILE,"/home/BA/test1/temp")or die"$!";
  3. $i=0;
  4. while(<FILE>)
  5. {
  6. if (/^4296$/) {$i++;}
  7. }
  8. print $i;
  9. close FILE;
复制代码
显示Undefined subroutine &main::OPEN called at cov.pl line 3.

作者: nb509   发布时间: 2010-12-18

会不会是因为 open 应该小写……  我在win测试小写,同样的形式,没说什么问题
open(FILE,$0)or die "die";

作者: paktc   发布时间: 2010-12-18

果然要小写,谢谢!!!!

作者: nb509   发布时间: 2010-12-18

先学习计算机文化和计算机发展简史。

作者: flw   发布时间: 2010-12-18