dpavlin

Keybase proof

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:

dpavlin

ack-grep --type-add perl=.ep

dpavlin

#!/bin/sh -x

file=$1

function encoding {
        echo "# $1"
        head $file | iconv -f $1 -t utf-8
}

encoding cp850

dpavlin

use Benchmark qw(:all);

use Devel::Size;
use DevXX::Size;
use Storable;

sub _storable_freeze {
	length Storable::freeze $_[0];
}

dpavlin

#!/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;

dpavlin

#!/usr/bin/perl

# usage:
# ./audacity-labels.pl 6-nosql-take-3.aup

use warnings;
use strict;

use XML::Simple;
use Data::Dump qw(dump);

dpavlin

#!/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 {

dpavlin

#!/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";

dpavlin

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

dpavlin

#!/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 );