[quote=Dubu,11.06.2004, 12:35]@Crian: Ersetze
system('ps') mal durch
system('ps -f'). Es muss eine ps-Variante sein, die die Kommandozeile anzeigt, nicht nur das ausgefuehrte Programm.[/quote]
Wusst ichs doch, dass da ein dummer Fehler war, das probier ich gleich mal aus =)
Edit:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
usr207@cvs-srv:~/perl> cat dollar_null.pl
#!/usr/bin/perl
use strict;
use warnings;
print "Hier laeuft das Skript '$0'\n";
sleep 2;
system('ps -f');
$0 = "chrrrrrchrrrrchrrrr";
print "Hier laeuft das Skript '$0'\n";
sleep 2;
system('ps -f');
$0 = "tschuess";
print "Das wars dann von '$0'\n";
system('ps -f');
usr207@cvs-srv:~/perl> dollar_null.pl
Hier laeuft das Skript './dollar_null.pl'
UID PID PPID C STIME TTY TIME CMD
usr207 2173 2172 0 11:42 pts/6 00:00:00 /bin/bash
usr207 2764 2173 3 13:48 pts/6 00:00:00 /usr/bin/perl ./dollar_null.pl
usr207 2765 2764 0 13:48 pts/6 00:00:00 ps -f
Hier laeuft das Skript 'chrrrrrchrrrrchrrrr'
UID PID PPID C STIME TTY TIME CMD
usr207 2173 2172 0 11:42 pts/6 00:00:00 /bin/bash
usr207 2764 2173 1 13:48 pts/6 00:00:00 chrrrrrchrrrrchrrrr
usr207 2766 2764 0 13:48 pts/6 00:00:00 ps -f
Das wars dann von 'tschuess'
UID PID PPID C STIME TTY TIME CMD
usr207 2173 2172 0 11:42 pts/6 00:00:00 /bin/bash
usr207 2764 2173 1 13:48 pts/6 00:00:00 tschuess
usr207 2767 2764 0 13:48 pts/6 00:00:00 ps -f
usr207@cvs-srv:~/perl>
Aha, schon besser =)\n\n
<!--EDIT|Crian|1086954721-->
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
use strict; use warnings; Link zu meiner Perlseite