Przemek Wesołek jest

View gist:3425640
1 2 3 4 5 6 7 8 9 10
<!--
add this to ~/.fonts.conf, inside <fontconfig> (add if file is empty)
-->
 
<match target="pattern">
<test name="family">
<string>Inconsolata</string>
</test>
<edit name="autohint" mode="assign">
<bool>true</bool>
View watch.pl
1 2 3 4 5 6 7 8 9 10
#!/usr/bin/env perl
use warnings;
use strict;
 
# For watching "on demand" (i.e. archived) streams
# usage:
# mplayer -user-agent 'NSPlayer/7.10.0.3059' $(perl watch.pl http://ics.webcast.uwex.edu/mediasite/Viewer/?peid=1dde05aea2624c69a12db461afb00a6b1d)
 
my @parts = (shift =~ /\?peid=(\w{8})(\w{4})(\w{4})(\w{4})(\w{12})/);
local $" = '-';
View gist:998849
1 2 3 4 5 6 7 8 9 10
/usr/bin/perl <<'__END__' -- - plugin-build.xml|dot -Tpng -oplugin-build-deps.png
use 5.010;
use XML::Twig;
 
say q(digraph test {);
$t=XML::Twig->new();
$t->parsefile(shift);
$r = $t->root;
for ($r->children(q(property))) {
if ($n1=$_->{att}{name}) {
View gist:989521
1 2 3 4 5 6 7 8 9 10
#!/usr/bin/env perl
 
use warnings;
use strict;
 
{
my %hsh = map { ($_ => 1) } qw( some costy hashmap here );
sub has {
return $hsh{$_[0]};
}
Something went wrong with that request. Please try again.