user
busunsl
Well, that's me after several weeks of non-shaving :-)<p>
<hr>
<h4>Authors I like</h4>
<ul>
<li>J. R. R. Tolkien
<li>Terry Pratchett
<li>Douglas Adams
<li>T. H. White
<li>Alan Dean Foster
</ul>
<hr>
<pre>
-----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------
</pre>
<p>
<!-- location:latitude=50.56.49,longitude=6.15.5 -->
<!-- os:Linux,Solaris,HP-UX,AIX,OS/400 -->
<!-- birthday:1964/04/18 -->
<hr>
<h4>Starting my own index into the Monastery here, not much by now</h4>
<ul>
<li>GUI Tk design tool: [id://90282|here]
<li>When to use OO: [id://91080]
<li>Coding Style: [id://91162]
<li>Sharing data between apache processes: [id://92078]
<li>Variable which is numeric and alpha: [id://92331]
<li>Find::File with params: [id://109068]
</ul>
<hr>
<h4>Link types at PM (because i tend to forget :-):</h4>
<ul>
<li><code>[id://]</code> a node id
<li><code>[cpan://]</code> searches CPAN
<li><code>[jargon://]</code> searches the Jargon file hosted at the University of Amsterdam.
<li><code>[kobe://]</code> is an alternate for the <code>[cpan://]</code> tag
<li><code>[perldoc://]</code> searches perldoc. The idea here is to provide a way of linking to current Perl documentation.
<li><code>[pad://]</code> is a shortcut to a user's scratch pad
</ul>
<hr>
<h4>SQL snippets</h4>
<ul>
<li>largest grouped sum:
<code>
select key, sum(val) from table
group by key
order by sum(val) desc
read only the first record
</code>
</li>
</ul>
<hr>
<h4>perl idioms</h4>
<ul>
<li><b>slurp a file:</b>
<code>my $contents = do { local (@ARGV, $/) = $filename; <> };</code></li>
<li><b>set even elements of @list to 'bla':</b>
<code>$_ % 2 or $list[$_] = 'bla' for 0..$#list;</code></li>
<li><b>getting indices sorted by value:</b>
<code>my @indices = sort { $a[$a] <=> $a[$b] } 0..$#a;</code></li>
<li><b>initialize hash elements:</b>
<code>@hash{@array} = (1) x @array</code></li>
<li><b>assign empty string defaults:</b>
<code>$_ = '' for grep ! defined ( $foo, $bar, $baz );</code></li>
<li><b>blank padding:</b><code>$str = pack('A40',$str);</code></li>
</ul>
<hr>
2013-05-13 09:01:14
5899
358676
images/userincoming/busunsl.jpeg
352
Germany/Ederen or Düsseldorf
Europe/Rome
120