Test meiner Signatur: Wies im Tread aussieht (Seite 3) (Tests)

roc

2003-08-31 17:29

User since
2003-08-18
81 Artikel
BenutzerIn

ich will ja nicht meckern...
aber strat, das ist der reinste spamm... das hätteste alles in einen beitrag bekommen können...

bis dahin...
cu roc...
die datenbaenker

Ishka

2003-08-31 17:31

User since
2003-08-04
771 Artikel
HausmeisterIn

Aus diesem Grunde ist das hier das Testforum. Da ist sowas erlaubt.\n\n

sub z{if(@_){1while$x[$k=rand 10];t($t=$x[$k]=1)}print map"$z[$x[$_]]$_".($_%3?
"":"\n"),1..9}sub t{$j=0;$x[$_+1]==$t&&($j+=2**$_)for 0..8;z,die"Gewinner $z[$t]
"if grep$_==($j&$_),7,56,73,84,146,273,292,448;z,die"Gleichstand\n"if@x>9&&!grep
!$_,@x}@x=4;@z=qw{. [ (};z$^T&1;while(<>){next if$_>9||$x[$_];t$t=$x[$_]=2;z 1}

pq

2003-08-31 17:41

User since
2003-08-04
12208 Artikel
Admin1

test kursiv test2

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

[E|B]

2003-08-31 18:10

User since
2003-08-08
2561 Artikel
HausmeisterIn

Signatur Test! ;o)

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]

[E|B]

2003-08-31 18:15

User since
2003-08-08
2561 Artikel
HausmeisterIn

So, hab alle Smileys wieder gekillt. 8)

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]

Ishka

2003-08-31 18:16

User since
2003-08-04
771 Artikel
HausmeisterIn

Um die Signatur zu testen muß man nciht extra posten, die verändert sich nämlcih bei allen Postings automatisch mit (im Gegensatz zum alten Forum).

Aber - wie gesagt, ist ja ein Testforum, kann und will ich niemanden dran hindern auch Signaturtests zu machen.

sub z{if(@_){1while$x[$k=rand 10];t($t=$x[$k]=1)}print map"$z[$x[$_]]$_".($_%3?
"":"\n"),1..9}sub t{$j=0;$x[$_+1]==$t&&($j+=2**$_)for 0..8;z,die"Gewinner $z[$t]
"if grep$_==($j&$_),7,56,73,84,146,273,292,448;z,die"Gleichstand\n"if@x>9&&!grep
!$_,@x}@x=4;@z=qw{. [ (};z$^T&1;while(<>){next if$_>9||$x[$_];t$t=$x[$_]=2;z 1}

Ishka

2003-08-31 18:17

User since
2003-08-04
771 Artikel
HausmeisterIn

[E|B
,31.08.2003, 16:15]So, hab alle Smileys wieder gekillt. 8)

Nein, eines ist noch da *gg* ^\n\n

sub z{if(@_){1while$x[$k=rand 10];t($t=$x[$k]=1)}print map"$z[$x[$_]]$_".($_%3?
"":"\n"),1..9}sub t{$j=0;$x[$_+1]==$t&&($j+=2**$_)for 0..8;z,die"Gewinner $z[$t]
"if grep$_==($j&$_),7,56,73,84,146,273,292,448;z,die"Gleichstand\n"if@x>9&&!grep
!$_,@x}@x=4;@z=qw{. [ (};z$^T&1;while(<>){next if$_>9||$x[$_];t$t=$x[$_]=2;z 1}

roc

2003-08-31 18:53

User since
2003-08-18
81 Artikel
BenutzerIn

[quote=Ishka,31.08.2003, 15:31]Aus diesem Grunde ist das hier das Testforum. Da ist sowas erlaubt.[/quote]
sorry, das hatte ich verrissen...

bis dahin...
cu roc...
die datenbaenker

Ishka

2003-08-31 18:59

User since
2003-08-04
771 Artikel
HausmeisterIn

Immer diese Beiträge eines tages, bei denen man nicht merkt, in welchem forum man grad ist ;)
edit:
Test, ob edits den Thread nach oben bringen\n\n

sub z{if(@_){1while$x[$k=rand 10];t($t=$x[$k]=1)}print map"$z[$x[$_]]$_".($_%3?
"":"\n"),1..9}sub t{$j=0;$x[$_+1]==$t&&($j+=2**$_)for 0..8;z,die"Gewinner $z[$t]
"if grep$_==($j&$_),7,56,73,84,146,273,292,448;z,die"Gleichstand\n"if@x>9&&!grep
!$_,@x}@x=4;@z=qw{. [ (};z$^T&1;while(<>){next if$_>9||$x[$_];t$t=$x[$_]=2;z 1}

Crian

2003-09-01 16:55

User since
2003-08-04
5866 Artikel
ModeratorIn

Musst halt vorher schauen, das Forum steht ja daneben :)

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