Skip to content

Instantly share code, notes, and snippets.

@Joao-Peterson
Joao-Peterson / gmk67-manual.md
Last active July 24, 2025 04:39
GMK67 manual (English)
@jacoby
jacoby / graph_paper.pl
Created January 2, 2018 20:22
Code to generate graph paper in SVG with Perl
#!/usr/bin/env perl
use strict ;
use warnings ;
use utf8 ;
use feature qw{ postderef say signatures state } ;
no warnings qw{ experimental::postderef experimental::signatures } ;
use Carp ;
use Getopt::Long ;
#
# Usage:
# marc_marc('852a',holding.$append)
# holding(-logfile => '/mnt/scratch/lludss/holding_error.txt')
#
package Catmandu::Fix::holding;
use strict;
use Catmandu::Util qw(:io is_string);
use POSIX qw(strftime);
use Data::Dumper;
#!perl
use strict;
use warnings;
use IO::All;
use IO::All::LWP;
use Web::Query;
local $| = 1;
wq('http://podbay.fm/show/536258179')
@MagnusEnger
MagnusEnger / tab2marc.pl
Created April 2, 2014 07:11
Tab separated to MARC via Catmandu
#!/usr/bin/perl
# Copyright 2013 Magnus Enger Libriotech
=head1 NAME
tab2marc.pl - Convert some tab-delimited data to MARCXML.
=head1 SYNOPSIS