nazov perl programu pre top

[Miroslav Lachman]

Jozef Drahovsky wrote:
> V tuto neskoru nedelnu hodinu mam jednu jednoduchu otazku:
>
> Ako definovat nazov programu v perle psutaneho zo shellu alebo cronu,
> najlepsie definicia za #! aby v programe top bol identifikovatelny
> a nesvietilo u vsetkych programov perlx.x.x ?
>
> ps
> 15394 p0 S 0:00.01 /usr/bin/perl ./a (perl5.8.9)
> 15594 p0 S 0:00.01 /usr/bin/perl ./b (perl5.8.9)
> top
> 14562 root 1 44 0 3148K 1236K select 7:36 0.00% syslog-ng
> 15594 root 1 8 0 4568K 1776K nanslp 0:00 0.00% perl5.8.9
> 15394 root 1 8 0 4568K 1776K nanslp 0:00 0.00% perl5.8.9
> 14767 root 1 44 0 23812K 12356K select 2:00 0.00% httpd

Pokud jde jen o to, jak se v topu dostat ke smysluplnejsi informaci, nez 
"perl", tak pak mi vetsinou staci v jiz bezicim topu stisknout klavesu 
"a", pripadne ten top rovnou spustit jako `top -a`

Co se tyce toho nastaveni ze scriptu, tak to jak zminil Michal jde 
pouzitim $0 a nebo takto:

http://search.cpan.org/~opi/Sys-Proctitle-0.04/lib/Sys/Proctitle.pm

   use Sys::Proctitle qw/:all/;
   setproctitle( "my new title" );
   setproctitle( qw/my new title/ );
   $s=getproctitle;

Mirek