Return to main menu

(Some of) My signatures

Copyright 2008 Davide Brini

Copying and distribution of the code published in this page, with or without
modification, are permitted in any medium without royalty provided the copyright
notice and this notice are preserved.

Here are some signatures I use when posting on Usenet, with the nickname Dave B, to protect my email address from spambots.

This is the signature I used when posting to comp.unix.shell (warning: may not work with some implementations of sed):

echo 0|sed 's909=mO#3u)o19;s0#0co*)].O0;s()(0bu}=(;s#}#m1$"?0^2{#;
s)")9v2@3%"9$);s[%[o]x(.$e#![;sz(z^+.z;su+ur!z"au;sxzxd?_{g)/x;:b;
s/\(\(.\).\)\(\(..\)*\)\(\(.\).\)\(\(..\)*#.*\6.*\2.*\)/\5\3\1\7/;
tb'|awk '{while((i+=2)<=length($1)-24)a=a substr($1,i,1);print a}'

The above has been replaced with the following, which uses (AFAICT) pure POSIX sh (yes, with some useless cosmetic addition to achieve alignment):

sh -c 'a123=$4;b=$2;j=4464346045754551;h=$1;r=4165722075063752;s=$3;
while [ "$r" != "" ];do x=0;y=;w=${#h};while [ $x -lt $(($w-1)) ];do
y=$y?;x=$((x+1));done;o=$o$s${h%$y}${j%$y}${r%$y};r=${r#?};j=${j#?};
h=${h#?};done;eval "$a123 $b$o$b"' sh 1111111111101110 \' '\' printf

And this is another one I use on comp.lang.awk, which had the (unexpected) honour of being included by Arnold Robbins in the GNU awk manual:

awk 'BEGIN{O="~"~"~";o="=="=="==";o+=+o;x=O""O;while(X++<=x+o+o)c=c"%c";
printf c,(x-O)*(x-O),x*(x-o)-o,x*(x-O)+x-O-o,+x*(x-O)-x+o,X*(o*o+O)+x-O,
X*(X-x)-o*o,(x+X)*o*o+o,x*(X-x)-O-O,x-O+(O+o+X+x)*(o+O),X*X-X*(x-O)-x+O,
O+X*(o*(o+O)+O),+x+O+X*o,x*(x-o),(o+X+x)*o*o-(x-O-O),O+(X-x)*(X+O),x-O}'

Hopefully, others will follow (as soon as I have half a day to waste :-)).

Return to main menu

Number of views since 2008-07-14: 511