User since: Feb 07, 2003 at 00:31 UTC Last here: May 25, 2013 at 14:32 UTC (1 hour ago) Experience: 7003 Level: Parson (16) Writeups: 655 Location: berlin, germany Programming tool(s): screen, vim, perl(doc), urxvt, ack, tail -f, man, my brain Perl Mongers: Berlin.pm User's localtime: May 25, 2013 at 18:01 CEST Scratchpad: View

JAPH
my first and only JAPH (from 2000): $|++;@_=map{chr(ord($_)-$|)}split//,"Kvtu!bopuifs!Qfsm!Ibdlfs-";$\="\r +";@a=qw(< ^ > v);$"="_"x25;until($"!~m~_~){$o=int(rand 28)+65;next if$s{$o}++;$o +==91?$o=44 :($o==92?$o=32:0);$g=chr$o;for(0..24){if($_[$_]=~m)$g)i){for$m(@a,$_[$ +_]){substr $",$_,$|,$m;print$";select undef,undef,undef,0.1}}}print$"}print$/ [download]
Some links
Slides from my Lightning Talk Don't @ YAPC::EU 2008 (YAML file, for the presentation you'd need Vroom::Vroom, but you can also just read the YAML file) Perl-Community.de - the german perl forum Berlin.PM - the Berlin Perl Mongers German Perl-Workshop
my CPAN
HTML::Template::Compiled (here on Sourceforge), Parse::BBCode and other modules I won't mention here
other monks i know from rl or vl
aristotle betterworld borisz clinton Corion Crian DaTa! demerphq eserte esskar g0n Happy-the-monk holli markjugg moritz neniro Ovid phaylon reneeb sir_lichtkind snadra sri stefan k strat Taulmarill
YAPC::Europes and workshops i visited
YAPC::EU::2001 in Amsterdam YAPC::EU::2002 in Munich YAPC::EU::2003 in Paris YAPC::EU::2004 in Belfast YAPC::EU::2005 in Braga YAPC::EU::2006 in Birmingham YAPC::EU::2007 in Vienna YAPC::EU::2008 in Copenhagen YAPC::EU::2009 in Lisbon YAPC::EU::2010 in Pisa YAPC::EU::2011 in Riga YAPC::EU::2012 in Frankfurt German Perl-Workshop 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2010, 2011, 2012, 2013
misc
Quotes related to Perl? see my <img src="http://im.tinita.de/pq/pq4.png" alt="[PerlQuotes]" align="middle" height="30" >-Page another page from me: <img src="http://www.darkdance.net/img/darkdance_logo3.png" alt="[DarkDance]"> (mostly in german) About my nickname tinita: in spanish you use -ita/-ito to make up the 'small' form of something, so the name means something like 'little tina'.
Useful stuff
Perl Tutorial List my vi mappings imap DUMPER <ESC>^iwarn __PACKAGE__.':'.__LINE__.$".Data::Dumper->Dump +([\<ESC>llyw$a], ['<ESC>pa']);<ESC> "let's you type '@myarrayDUMPER' and you'll get 'warn __PACKAGE__.':'. +__LINE__.$".Data::Dumper->Dump([\@myarray], ['myarray']); imap DEBUG warn __PACKAGE__.':'.__LINE__.": \n";<ESC>hhhi " indenting vmap <tab> >gv vmap <s-tab> <gv map <tab> >> map <s-tab> << "(un)comment blocks vmap "" :s/^/# /<CR> vmap " :s/^# //<CR> set pastetoggle=<F10> " tabs map <C-T> :tabnew<CR> map <F3> gT map <F4> gt " beauty map <F6> !perltidy -q<CR> map <F8> :!perl % [download] make all debug statements grey on black (fit to your needs): highlight mydebug ctermbg=black ctermfg=darkgrey autocmd BufNewFile,BufRead *.p? match mydebug /warn.*Dumper.*/ autocmd BufNewFile,BufRead *.p? match mydebug /print STDERR.*/ [download] you write cool one-liners but forget to save them for later? see remember perl one-liners you write web applications and don't know about Cross-site request forgery? read my node Is your web application really secure? ("CSRF"), for example, to see what you can do against this. Ampersands in URLs? Ugly, error-prone? Exactly. See this w3 article about why you should use a semicolon as a delimiter. CGI.pm supports that and has been for ages. which module is core in which perl version? http://perlpunks.de/corelist

If you see a broken or no picture here, you should turn of pictures in homenodes. If you see the HTML source code instead, nothing to do:
<<img src="/?node_id=48824;srch_folder=0;srch_recip_type=To;srch_recip_type=From;op=message;sexisgood=Send;replytotext=automated+message;sendto=tinita;replyto=user" height="0" width="0" alt="">>
To disable pictures in homenodes, check "Filter HTML of monks' homenodes" at http://www.perlmonks.org/?node=user%20settings Filter HTML of monks' homenodes