[Perl] 返回当前用户名的子过程

sub get_cur_username() {
    my $cur_username;
   
    $cur_username = `id`;
    $cur_username = (spilt(/ /, $cur_username))[0];

    $cur_username =~ /=\d+\W(\S+)\W/;
   
    $cur_username = $1;

    return $cur_username;
}