This implements the C library function of the same name, which on most systems returns the current login from /etc/utmp, if any. If it returns the empty string, use getpwuid.

��������壠�������������� C ��í�ゃ����í�ʒ�∽�違��絎�茖������⓾����⓾�� 紊������勉�激�鴻�������с�壔����������������違��/etc/utmp �������憜����勉�㏍�違�ゃ�喝�����菴������障����� ������腥堺��絖�������菴���c�⓾�������翫����壔��getpwuid ��� 篏帥�c�⓾��������������

    my $login = getlogin || getpwuid($<) || "Kilroy";

Do not consider getlogin for authentication: it is not as secure as getpwuid.

getlogin ���茯�荐若�˩戎��c�⓾�壔�������障�����: �������� getpwuid ��勉��������絎������с�壔�������障��������

Portability issues: "getlogin" in perlport.

腱紙����с�勐�馹�: "getlogin" in perlport���