Question

有谁知道如何在顶部更改流程名称？

top - 05:02:47 up 182 days, 10:38,  1 user,  load average: 14.53, 13.11, 11.95
Tasks:   4 total,   2 running,   2 sleeping,   0 stopped,   0 zombie
Cpu(s): 57.2%us, 14.8%sy,  0.0%ni, 26.2%id,  1.3%wa,  0.0%hi,  0.5%si,  0.0%st
Mem:  24736852k total, 22519688k used,  2217164k free,   132268k buffers
Swap:  8386552k total,   741900k used,  7644652k free, 12416224k cached

  PID USER      PR  NI  VIRT  RES  SHR S %CPU %MEM    TIME+  COMMAND                                                                                                                                        
 6230 user  20   0 47540 6856 1164 R 41.5  0.0   0:03.10 perl                                                                                                                                       
 6430 user  20   0 14900 1156  936 R  0.3  0.0   0:00.02 top                                                                                                                                        
 6227 user  20   0 47276 7552 2088 S  0.0  0.0   0:00.07 perl                                                                                                                                       
14577 user  20   0 11588 1808 1340 S  0.0  0.0   0:00.46 bash

我已经想出了如何更改top -c名称 $ 0 ='新名称。'; 然而，这并没有实现我的目标。

我发现了一个非标准模块，看起来非常有前途，但是我不能使用任何非标准模块。

http://metacpan.org/pod/Sys::Prctl

# instead of "perl helloworld.pl"
$0 = "helloworld"
prctl_name("helloworld");

我希望有人有一些意见，或者有关更改流程标题/名称的知识。

我觉得我已经彻底地完成了perlvar但是我可能错过了一个简单的$ ^ 0。希望它就这么简单。

修改

@ user2783897，不知道为什么我没想到，这是我做的基本例子。

sub prctl_name {
    my $TASK_COMM_LEN = 16;
    my $SYS_prctl = 157;
    my $SYS_PR_SET_NAME = 15;
    my $SYS_PR_GET_NAME = 16;

    my ($str) = @_;

    if(defined $str) {
        my $rv = prctl($SYS_PR_SET_NAME, $str);
        if($rv == 0) {
            return 1;
        } else {
            return;
        }

    } else {
        $str = "\x00" x ($TASK_COMM_LEN + 1); # allocate $str
        my $ptr = unpack( 'L', pack( 'P', $str ) );
        my $rv = prctl($SYS_PR_GET_NAME, $ptr);
        if($rv == 0) {
            return substr($str, 0, index($str, "\x00"));
        } else {
            return;
        }
    }
}
sub prctl {
    my $SYS_prctl = 157;
    my ($option, $arg2, $arg3, $arg4, $arg5) = @_;
    syscall($SYS_prctl, $option,
        ($arg2 or 0), ($arg3 or 0), ($arg4 or 0), ($arg5 or 0));
}

Answer 1

为什么不在自己的内部复制Sys / Prctl.pm代码？它只有几十行。

此外，大多数代码专门用于查找正在运行进程的内核类型，以选择适当的SYS_prctl参数。如果你知道你正在运行什么样的内核，你可以将代码切换到它的骨架。

如何更改进程名称？

修改

1 个答案: