User since: Nov 23, 2001 at 18:49 UTC (23 years ago) Last here: Dec 26, 2015 at 13:19 UTC (9 years ago) Experience: 20767 Level: Abbot (19) Writeups: 292 Location: Sardinia, Italy CPAN Directory:   GMAX Home page:   the data charmer User's localtime: Dec 02, 2024 at 17:06 -01 Scratchpad: View For this user: Search nodes

     _/_/_/ _/_/_/  _/_/     _/_/_/ _/    _/  
  _/    _/ _/    _/    _/ _/    _/   _/_/     
 _/    _/ _/    _/    _/ _/    _/ _/    _/    
  _/_/_/ _/    _/    _/   _/_/_/ _/    _/     
     _/                                          
_/_/        

                                            

Savoir, savoir faire, faire, faire savoir.

Systems analyst and database designer, converted to Perl after a long mutual love with C.

Currently working as MySQL Community Team lead with Sun Microsystems a QA developer for MySQL AB, free-lance database designer and IT forensic consultant, loves C/C++, perl, women, linux, mysql, object-pascal, books and chess (not necessarily in that order :-)

I have used the gmax nickname since 1991, and I would like to state that I have no association to a game tool with the same name.

Places I visited

Articles (SQL & Perl):

My policy

I usually don't participate in flames. Nor I answer to gratuitous attacks. I apply Murphy's law about not getting engaged in a discussion with an idiot, since people couldn't tell the difference.

         \|||/       
         (o o)       
,----ooO--(_)-------.   ,---------------------------------.
| Please            |   | If you are arguing with a fool, |
|   don't feed the  |   | chances are he's doing the same |
|     TROLLs  !!    |   | thing.                          |
'--------------Ooo--'   '---------------------------------'
        |__|__|      
         || ||       
        ooO Ooo      

I got the above ascii-art from this usenet collection. Thanks to IlyaM for providing the link.

CPAN Modules

Nodes

database programming

Tutorials

Perl community

obfuscation

#/usr/bin/perl -w
   use strict;my%p=
 ("\40"=>chr(ord("\40"
)*3-1).chr(ord("\40")+ord("\40")/4+7));$p{$p{"\40"}}="\40";print
@{[map{my$o= $p{"\40"};@{[map{(($o=$p{$o})x$_)}map{ord($_)-(ord(
"\40")*3       )-1}split//]},"\n"}split/n/,"uaqbnfdgcebcccbnebe"
."bcecc"       ."gbndbeb"          ."cbibi"   ."bncdg"  ."dcbib"
."nbbna"       ."bnaaua"           ."ubndd"   ."ccgce"  ."debcb"
."ncbeb"       ."ebcbeb"
 ."cbebc"     ."cnbbeb"
  ."ebcbebcbebcbcbnab"
   ."ebebecebebcbeb"
    ."na"]};# amen
[download]

various