perl-5.34.0
HANDLE->input_line_number( EXPR )
$INPUT_LINE_NUMBER
$NR
$.

Current line number for the last filehandle accessed.

���緇���˨�≪�壔�祉�鴻�������������<�ゃ�˨����潟����˨�勛憜����勤����ɱ垩��

Each filehandle in Perl counts the number of lines that have been read from it. (Depending on the value of $/, Perl's idea of what constitutes a line may not match yours.) When a line is read from a filehandle (via readline() or <>), or when tell() or seek() is called on it, $. becomes an alias to the line counter for that filehandle.

Perl ��勐�������<�ゃ�˨����潟����˨�壔��������������茯㏍�粋昭������茵���違����違����⓾����障����� ($/ ��勐�ゃ�˩��絖������⓾��篏����茵����罕���������������̹�≪����� Perl ��勤�������壔����ŝ���� ���������筝���眼����ŝ����������������障��������) 茵����(readline() ��� <> ���篏帥�c��)�����<�ゃ�˨����潟����˨�����茯㏍�粋昭��障����������� tell() ��� seek() ��������<�ゃ�˨����潟����˨��絲障����☗�若�喝�冴����������翫����� $. ��壔����勉����<�ゃ�˨����潟����˨�勤����˨�⓾�潟�帥�吾�勉����ゃ�ŝ�≪�鴻����ŝ����障�����

You can adjust the counter by assigning to $., but this will not actually move the seek pointer. Localizing $. will not localize the filehandle's line count. Instead, it will localize perl's notion of which filehandle $. is currently aliased to.

$. ��娯撮��ャ�������������с�˨�⓾�潟�帥�勐�ゃ��篆勖③��с����障����������������壠�������˨�激�若� �����ゃ�潟�帥�������������������壔�������障�������� $. �����㏍�若�˨����������⓾�������<�ゃ�˨����潟����˨�勤����˨�⓾�潟�帥�壔�㏍�若�˨�������������障�������� 篁c�������˨���憜�� $. �����í�勉����<�ゃ�˨����潟����˨�吾�勉����ゃ�ŝ�≪�鴻����������������宴�� ��㏍�若�˨�������������障�����

$. is reset when the filehandle is closed, but not when an open filehandle is reopened without an intervening close(). For more details, see "I/O Operators" in perlop. Because <> never does an explicit close, line numbers increase across ARGV files (but see examples in "eof" in perlfunc).

$. ��壔����<�ゃ�˨����潟����˨����壔�㏍�若�冴�������������ŝ�祉�������������障�������� ��ŝ�若����潟����⓾����������<�ゃ�˨����潟����˨�� close() �����������������ŝ�������ŝ�若����潟�������� ��翫����˨�壔�ŝ�祉����� ��������障�������� ��������ŝ��荅括完��˨�ゃ����⓾�壔��"I/O Operators" in perlop ��������с����⓾�������������� ��ŝ����ŝ����� <> ��壩浦�����〠��腓榊����ŝ�壔�㏍�若�冴�虁�����������茵���ɱ垩�� ARGV �� �����<�ゃ�̹����ч��膊������⓾�˨�⓾�潟�������������������с��(篏���� "eof" in perlfunc ��勌����� �����с����⓾�����������)���

You can also use HANDLE->input_line_number(EXPR) to access the line counter for a given filehandle without having to worry about which handle you last accessed.

��障�����HANDLE->input_line_number(EXPR) �����������������с����í�勉����潟����˨� ���緇���˨�≪�壔�祉�鴻�����������羂���˨�������������ŝ�頫���˨�⓾�潟�帥�˨�≪�壔�祉�鴻�с����障�����

Mnemonic: many programs use "." to mean the current line number.

荐���倶��: 紊������勉����㏍�違�í����� "." ����憜�◑����ɱ垩��腓冴����������˩戎��������⓾����障�����