Perl计数器

最新推荐文章于 2022-05-06 16:23:16 发布

scan724

最新推荐文章于 2022-05-06 16:23:16 发布

阅读量658

点赞数

CC 4.0 BY-SA版权

分类专栏： Perl 大骆驼

本文链接：https://blog.youkuaiyun.com/zhaoyangjian724/article/details/46315895

Perl 大骆驼专栏收录该内容

72 篇文章 ¥39.90 ¥99.00

订阅专栏

这篇博客展示了如何在Perl中读取文件并使用计数器记录行数。通过`cat test.out`显示文件内容，共有15行。然后，作者展示了一个名为`test.pl`的Perl脚本，该脚本打开`test.out`文件，逐行读取并增加计数器`$num`，最终打印出行号。执行`perl test.pl`后，可以看到与原始文件相同的内容，证实了计数器正确工作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

jrhapt01:/home/tomcat/sbin> cat test.out 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
You have new mail in /var/spool/mail/tomcat
jrhapt01:/home/tomcat/sbin> wc -l test.out 
15 test.out

jrhapt01:/home/tomcat/sbin> cat test.pl 
 open( D, "<", "test.out" ) || die "$!\n";
  while (<D>) 
              {
              $num++;
              print "\$num is $num\n";
}

jrhapt01:/home/tomcat/sbin> perl test.pl 
$num is 1
$num is 2
$num is 3
$num is 4
$num is 5
$num is 6
$num is 7
$num is 8
$num is 9
$num is 10
$num is 11
$num is 12
$num is 13
$num is 14
$num is 15