 |
|
Well, that's me after several weeks of non-shaving :-)
Authors I like
- J. R. R. Tolkien
- Terry Pratchett
- Douglas Adams
- T. H. White
- Alan Dean Foster
-----BEGIN PERL GEEK CODE BLOCK----- Version: 0.01 P+++>++++(+++)$c-->+P6+ R++>++++M++>+++O++>+++MA++E++PU+BD C++D++>+++S++X+WP+++MO+PP!n-CO PO o+G A-OLC+OLCC+OLJ--Ee---Ev+Eon-uL++uS uH uo w-m! ------END PERL GEEK CODE BLOCK------
Starting my own index into the Monastery here, not much by now
- GUI Tk design tool: here
- When to use OO: Damian Conway's ten rules for when to use OO
- Coding Style: Re: To sub or not to sub, that is the question?
- Sharing data between apache processes: Sharing data structures among http processes?
- Variable which is numeric and alpha: How to make bi-modal variables like $! ?
- Find::File with params: Why I hate File::Find and how I (hope I) fixed it
Link types at PM (because i tend to forget :-):
- [id://] a node id
- [cpan://] searches CPAN
- [jargon://] searches the Jargon file hosted at the University of Amsterdam.
- [kobe://] is an alternate for the [cpan://] tag
- [perldoc://] searches perldoc. The idea here is to provide a way of linking to current Perl documentation.
- [pad://] is a shortcut to a user's scratch pad
SQL snippets
- largest grouped sum:
select key, sum(val) from table group by key order by sum(val) desc read only the first record
perl idioms
- slurp a file: my $contents = do { local (@ARGV, $/) = $filename; <> };
- set even elements of @list to 'bla': $_ % 2 or $list[$_] = 'bla' for 0..$#list;
- getting indices sorted by value: my @indices = sort { $a[$a] <=> $a[$b] } 0..$#a;
- initialize hash elements: @hash{@array} = (1) x @array
- assign empty string defaults: $_ = '' for grep ! defined ( $foo, $bar, $baz );
- blank padding:$str = pack('A40',$str);