Opened by Rambo at 2004-06-08 23:00
User since
2003-08-04
5873 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5873 Artikel
ModeratorIn
Hmmm :
Die Anzeige in ps bleibt anscheinend immer dieselbe, oder worauf bin ich hier reingefallen?\n\n
<!--EDIT|Crian|1086949379-->
Code: (dl
)
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 10;
system('ps');
$0 = "chrrrrrchrrrrchrrrr";
print "Hier laeuft das Skript '$0'\n";
sleep 10;
system('ps');
$0 = "tschuess";
print "Das wars dann von '$0'\n";
system('ps');
usr207@cvs-srv:~/perl> dollar_null.pl
Hier laeuft das Skript './dollar_null.pl'
PID TTY TIME CMD
2173 pts/6 00:00:00 bash
2340 pts/6 00:00:00 dollar_null.pl
2341 pts/6 00:00:00 ps
Hier laeuft das Skript 'chrrrrrchrrrrchrrrr'
PID TTY TIME CMD
2173 pts/6 00:00:00 bash
2340 pts/6 00:00:00 dollar_null.pl
2342 pts/6 00:00:00 ps
Das wars dann von 'tschuess'
PID TTY TIME CMD
2173 pts/6 00:00:00 bash
2340 pts/6 00:00:00 dollar_null.pl
2343 pts/6 00:00:00 ps
usr207@cvs-srv:~/perl>
Die Anzeige in ps bleibt anscheinend immer dieselbe, oder worauf bin ich hier reingefallen?\n\n
<!--EDIT|Crian|1086949379-->
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
use strict; use warnings; Link zu meiner Perlseite