shoorick

#!/usr/bin/perl -0777 -n

=head1 DESCRIPTION

Split big pseudo zip-archive from prostopleer.com into small mp3 files.

=head1 USAGE

 ./split-prostopleer.pl big-pseudo.zip

shoorick

#!/usr/bin/env perl 

=head1 USAGE

    ./panoramio-rss.pl

=head1 DESCRIPTION

Get RSS feed of my photos from panoramio.com and make HTML list of images

shoorick

#!/usr/bin/perl 

#      VERSION:  1.0
#      CREATED:  10.02.2013 23:41:17

use strict;
use warnings;

=head1 USAGE

shoorick

#!/usr/bin/perl -w
use strict;

=head1 DESCRIPTION

Marks academic buildings which belongs to SUSU relation in PostGIS:
set type='academic'. This mark-up used for map coloring.

=head1 SEE ALSO

shoorick

#!/usr/bin/perl

# $Id: receiver_manage.pl 1977 2010-10-14 09:12:15Z bfg $
# $Date: 2010-10-14 11:12:15 +0200 (Thu, 14 Oct 2010) $
# $Author: bfg $
# $Revision: 1977 $
# $LastChangedRevision: 1977 $
# $LastChangedBy: bfg $
# $LastChangedDate: 2010-10-14 11:12:15 +0200 (Thu, 14 Oct 2010) $
# $URL: https://svn.interseek.com/repositories/admin/misc/cic/receiver_manage.pl $

shoorick

#!/usr/bin/perl

# https://stackoverflow.com/questions/48529062/hash-value-overwrite-due-to-similar-keys

use Data::Dumper;

my $mapping_table = {
    'Exemplare' => 'copies',
    'Seiten' => 'pages',
    'Statushinweis' => 'status',

shoorick

%#= include 'header'; # Does not work
%# layout 'layout'; # Does not work

<%= $callee %> <%= $name %>!
Some text here.

shoorick

%= include 'header';
<%= $callee %> <%= $name %>!
Some text here

shoorick

#!/usr/bin/perl -0777 -n

=head1 NAME

p2yaml.pl - PHP to YAML reserializer.

=head1 DESCRIPTION

Reserialize PHP-serialized data to YAML

shoorick

SRC=.
DST=2b
FILES=*.png

trim $(DST)/$(FILES): $(SRC)/$(FILES)
	for file in $(SRC)/$(FILES); do \
	    [ ! -f $(DST)/$$file -o $(SRC)/$$file -nt $(DST)/$$file ] \
	    && echo $$file \
	    && convert $(SRC)/$$file -dither none -colors 2 -trim +repage $(DST)/$$file; \
	done