2

有谁知道如何更改顶部的进程名称？

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

我已经想出了如何更改顶部 -c name $0 = 'new name.'; 然而，这并没有实现我的目标。

我找到了一个非标准模块，它看起来很有前途，但是我不能使用任何非标准模块。

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));
}
4

1 回答 1

2

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

此外，大部分代码专门用于查找进程在哪种内核上运行，以选择适当的 SYS_prctl 参数。如果你知道你在运行什么样的内核，你就可以把代码删减到最简单的程度。

于 2013-09-22T11:10:10.220 回答