如何更改进程名称？

有谁知道如何改变进程名称？

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

我已经想出了如何更改顶部的名称$ 0 ='新名称。 但是这并不能达到我的目标。

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

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

从头开始，我在Linux中引用'make'gcc-5.3.0软件包时出错

Opencv本地位置设置为基于java-eclipse linux

为什么glibc的fclose（NULL）会导致分段错误而不是返回错误？

CakePHP高可用性服务器场设置

线程开销性能

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

我希望有人有一些input，或有关更改过程的标题/名称的知识。

我觉得我已经完全通过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,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)); }

“env”和“set”（在Mac OS X或Linux上）有什么区别？

在程序中检查networking状态并控制PPP

如何用g ++（Ubuntu）编译OpenAL程序？

如何使我的Docker容器通过第二个接口与另一个节点通信？

如何find一个程序的堆内存的起始和结束地址？

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

而且，大多数代码专门用于查找进程正在运行的内核类型，以选择适当的SYS_prctl参数。 如果你知道你正在运行什么样的内核，那么你可以把代码切割成它的骨头。