Skip to content

Instantly share code, notes, and snippets.

@jorol
jorol / gmk67-manual.md
Created December 4, 2023 12:52 — forked from Joao-Peterson/gmk67-manual.md
GMK67 manual (English)
@jorol
jorol / conneg test.md
Created December 8, 2021 15:37 — forked from namedgraph/conneg test.md
SBB Linked Data

Returns Turtle:

curl -L -i https://ld.zdb-services.de/data/organisations/DE-1a -H "Accept: text/turtle"

Returns HTML:

curl -L -i https://ld.zdb-services.de/data/organisations/DE-1a -H "Accept: application/rdf+xml;q=0.8,application/n-triples;q=0.9,application/trix;q=0.8,application/ld+json;q=0.8,text/shaclc;q=0.8,application/rdf+thrift,text/turtle;q=0.8,text/rdf+n3;q=0.8,application/rdf+json;q=0.8,application/sparql-results+xml,application/sparql-results+json"
@jorol
jorol / graph_paper.pl
Created January 19, 2018 15:22 — forked from jacoby/graph_paper.pl
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 ;
@jorol
jorol / Perl.sublime-build
Created November 14, 2017 08:20
Sublime text 3 - Perl build system
{
"cmd": ["perl", "-w", "$file"],
"file_regex": ".* at (.*) line ([0-9]*)",
"selector": "source.perl"
}
#
# 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;
@jorol
jorol / import_viaf.pl
Created December 14, 2015 10:24 — forked from phochste/import_viaf.pl
Match authors against VIAF using Catmandu and Linked Data Fragments
#!/usr/bin/env perl
#
# Match authors against VIAF
#
# License: http://dev.perl.org/licenses/artistic.html
#
# Author: Patrick Hochstenbach <[email protected]>
#
# Apr 2015
$|++;
@jorol
jorol / jsonb.pl
Last active August 29, 2015 14:22 — forked from mbeijen/jsonb.pl
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use DBD::Pg 3.5.0;
my $dbh = DBI->connect("dbi:Pg:", '', '',
{
AutoCommit => 1,
{
"@context":"http://api.lobid.org/context/lobid-organisations.json",
"@id":"http://lobid.org/organisation/DE-605",
"@type":"http://xmlns.com/foaf/0.1/Organization",
"contactqr":"http://lobid.org/media/DE-605_contactqr.png",
"fundertype":{
"@id":"http://purl.org/lobid/fundertype#n02",
"@type":"http://www.w3.org/2004/02/skos/core#Concept",
"prefLabel":{
"de":"Land",