Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

tinita

by tinita (Parson)
on Feb 07, 2003 at 00:31 UTC ( #233329=user: print w/ replies, xml ) Need Help??

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$/

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 %
    • 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.*/
  • 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

Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (11)
As of 2014-12-19 22:47 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (94 votes), past polls