Opened by Froschpopo at 2003-09-12 16:30
User since
2003-08-04
771 Artikel
HausmeisterIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-04
771 Artikel
HausmeisterIn
[quote=eisbeer,12.09.2003, 15:03]$string =~s/\s{3,}//g
Reicht schon denke ich, weil niemand mehr als 3 Leerzeichen macht,
und wenn doch, hatter Pech, weil es wirklich keinen typographischen
und logischen sinn gibt, mehr als 1 Leerzeichen zu setzen :)[/quote]
An manchen Stellen macht es schon Sinn mehr als ein \s zu setzten.
ein neuer Absatz zum Beispiel enthält zwei \n (in \s enthalten) direkt hintereinander. Außerdem kann es durchaus vorkommen, daß man mal ein Leerzeichen am Ende der Zeile stehen lässt. Und wenn jemand nen großen Absatz machen will, sind das schon vier \s hintereinander, die man nicht wirklcih als Spam bezeichen kann.
Reicht schon denke ich, weil niemand mehr als 3 Leerzeichen macht,
und wenn doch, hatter Pech, weil es wirklich keinen typographischen
und logischen sinn gibt, mehr als 1 Leerzeichen zu setzen :)[/quote]
An manchen Stellen macht es schon Sinn mehr als ein \s zu setzten.
ein neuer Absatz zum Beispiel enthält zwei \n (in \s enthalten) direkt hintereinander. Außerdem kann es durchaus vorkommen, daß man mal ein Leerzeichen am Ende der Zeile stehen lässt. Und wenn jemand nen großen Absatz machen will, sind das schon vier \s hintereinander, die man nicht wirklcih als Spam bezeichen kann.
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}
"":"\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}