linux - プロセス名を変更するにはどうすればよいですか?

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   

トップ -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));
}