I hereby claim:
- I am dpavlin on github.
- I am dpavlin (https://keybase.io/dpavlin) on keybase.
- I have a public key whose fingerprint is 7CC8 934E 8AEA AAF0 231D 90B9 C97F AD45 059A 34B6
To claim this, I am signing this object:
I hereby claim:
To claim this, I am signing this object:
ack-grep --type-add perl=.ep |
#!/bin/sh -x | |
file=$1 | |
function encoding { | |
echo "# $1" | |
head $file | iconv -f $1 -t utf-8 | |
} | |
encoding cp850 |
use Benchmark qw(:all); | |
use Devel::Size; | |
use DevXX::Size; | |
use Storable; | |
sub _storable_freeze { | |
length Storable::freeze $_[0]; | |
} |
#!/usr/bin/perl | |
use warnings; | |
use strict; | |
sub valid_jmbg { | |
my $jmbg = shift; | |
return 0 unless $jmbg =~ /^\d{13}$/; | |
my @c = split(//, $jmbg); | |
my $S=0; |
#!/usr/bin/perl | |
# usage: | |
# ./audacity-labels.pl 6-nosql-take-3.aup | |
use warnings; | |
use strict; | |
use XML::Simple; | |
use Data::Dump qw(dump); |
#!/usr/bin/perl | |
use warnings; | |
use strict; | |
my $create_table = 0; | |
sub key { | |
my ($unique,$key,$name,$cols) = @_; | |
$name = "`$name`" if defined $name; | |
return " $unique$key $name (" . join(',', map { |
#!/usr/bin/perl | |
# http://www.regos.hr/UserDocsImages/KONTROLA%20OIB-a.pdf | |
my $oib = 69435151530; | |
my ($nr,$ck) = ( substr($oib,0,10), substr($oib,-1,1) ); | |
print "$oib -> $nr $ck\n"; |
#/bin/sh -xe | |
# Generate QR code for WIFI network | |
test -z "$1" && echo -n "ssid: " && read ssid || ssid=$1 | |
test -z "$2" && echo -n "password: " && read pass || pass=$2 | |
qrencode -o /tmp/qr-${ssid}.png "WIFI:S:$ssid;T:WPA;P:$pass;" ; qiv -m /tmp/qr-${ssid}.png |
#!/usr/bin/perl | |
use warnings; | |
use strict; | |
use Mojo::UserAgent; | |
use Mojo::DOM; | |
my $ua = Mojo::UserAgent->new; | |
my @selection = qw( H Y B K D SS ); |