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
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
Microsoft Windows 2000 [Version 5.00.2195]
(C) Copyright 1985-2000 Microsoft Corp.
C:\Daten\perl\forum>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');
C:\Daten\perl\forum>dollar_null.pl
Hier laeuft das Skript 'C:\Daten\perl\forum\dollar_null.pl'
UID PID PPID TTY STIME COMMAND
usr207 1420 1 -1 15:19:29 /usr/bin/ps
Hier laeuft das Skript 'chrrrrrchrrrrchrrrr'
UID PID PPID TTY STIME COMMAND
usr207 1404 1 -1 15:19:31 /usr/bin/ps
Das wars dann von 'tschuess'
UID PID PPID TTY STIME COMMAND
usr207 1420 1 -1 15:19:31 /usr/bin/ps
C:\Daten\perl\forum>
... ja ... ;)
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