如何统计一个文件内pod的行数

luol_001

一个文件的内容如下：
...
...
...
=head2 _check_file_exist()

$self->_check_file_exist('comic_detail')

ファイルが存在するかどうかを判断する。

param1: コミックID

param2: 流れ順

return: ファイル存在フラグ(存在:1,存在しない:0)

=cut
.....
....
....
....
....

我怎么来统计从=head开始到=cut之间的行数（空行不算），谢谢！

apile

你没有试着写代码？我们怎麽知道你问题在哪？