Magnus Enger MagnusEnger

## gist:9183729
<!DOCTYPE HTML>
<html>
<head>
    <meta charset=UTF-8">
    <title>Title</title>
</head>
<body>

</body>
</html>

## ingest.pl
#!/usr/bin/perl

use Catmandu::Importer::Atom;
use Catmandu::Store::ElasticSearch;
use Data::Dumper;
use Modern::Perl;

my $feed = 'http://planet.code4lib.org/atom.xml';

my $importer = Catmandu::Importer::Atom->new( url => $feed );

## ingest.pl
#!/usr/bin/perl

use Catmandu::Importer::Atom;
use Catmandu::Store::ElasticSearch;
use Data::Dumper;
use Modern::Perl;

my $feed = 'http://planet.code4lib.org/atom.xml';

# Set up importer and store

## .vimrc
" .vimrc for Magnus Enger

" Show line numbers
set number

" Turn on syntax highlighting
syntax on

" Indentation
set expandtab

## linesort.pl
#!/usr/bin/perl -w

# Read through a file and pick out lines that contain one of a number of
# "trigger" strings. Print the lines grouped by the string they matched, then
# print the remaining lines.
#
# Usage: linesort.pl myfile.txt

use File::Slurp;
use Array::Each qw( rewind );

## phosort.sh
#!/bin/bash

# Read a directory of image files with names on this form:
# 20110113_001.jpg
# 20110113_002.jpg
# 20110113_003.jpg
#
# Create folders as needed and move the images into them, in this way
# 2011
# |__01

## koha-cover.sh
#!/bin/bash

cd /home/user/kohaclone
git checkout master
git pull
export PERL5LIB=/home/user/kohaclone; export KOHA_CONF=/home/user/koha-dev/etc/koha-conf.xml
export HARNESS_PERL_SWITCHES=-MDevel::Cover
prove -l
cover
archive_devel_cover.pl --from cover_db/ --to /var/www/coverage_reports/koha/

## marctt.pl
#!/usr/bin/perl

use MARC::Batch;
use Template;
use Modern::Perl;

my $batch = MARC::Batch->new('USMARC', 'test.mrc');
my $record = $batch->next();

# Set up Template Toolkit

## gist:5925789
#!/bin/bash
### BEGIN INIT INFO
# Provides:          kbzb
# Required-Start:    $mysql $all
# Required-Stop:     $mysql
# Default-Start:     2
# Default-Stop:
# Short-Description: Reboot all Backgroundrb and Zebra for  Kete instances
### END INIT INFO

## catmandu_marc2rdf.pl
#!/usr/bin/perl

use Catmandu::Importer::MARC;
use Catmandu::Exporter::RDF;
use Modern::Perl;

my $records = Catmandu::Importer::MARC->new(
    file => 'sample_records.marcxml',
    type => 'XML',
);
	<!DOCTYPE HTML>
	<html>
	<head>
	<meta charset=UTF-8">
	<title>Title</title>
	</head>
	<body>

	</body>
	</html>
	#!/usr/bin/perl

	use Catmandu::Importer::Atom;
	use Catmandu::Store::ElasticSearch;
	use Data::Dumper;
	use Modern::Perl;

	my $feed = 'http://planet.code4lib.org/atom.xml';

	my $importer = Catmandu::Importer::Atom->new( url => $feed );
	" .vimrc for Magnus Enger

	" Show line numbers
	set number

	" Turn on syntax highlighting
	syntax on

	" Indentation
	set expandtab
	#!/usr/bin/perl -w

	# Read through a file and pick out lines that contain one of a number of
	# "trigger" strings. Print the lines grouped by the string they matched, then
	# print the remaining lines.
	#
	# Usage: linesort.pl myfile.txt

	use File::Slurp;
	use Array::Each qw( rewind );
	#!/bin/bash

	# Read a directory of image files with names on this form:
	# 20110113_001.jpg
	# 20110113_002.jpg
	# 20110113_003.jpg
	#
	# Create folders as needed and move the images into them, in this way
	# 2011
	# \|__01
	#!/bin/bash

	cd /home/user/kohaclone
	git checkout master
	git pull
	export PERL5LIB=/home/user/kohaclone; export KOHA_CONF=/home/user/koha-dev/etc/koha-conf.xml
	export HARNESS_PERL_SWITCHES=-MDevel::Cover
	prove -l
	cover
	archive_devel_cover.pl --from cover_db/ --to /var/www/coverage_reports/koha/
	#!/usr/bin/perl

	use MARC::Batch;
	use Template;
	use Modern::Perl;

	my $batch = MARC::Batch->new('USMARC', 'test.mrc');
	my $record = $batch->next();

	# Set up Template Toolkit
	#!/bin/bash
	### BEGIN INIT INFO
	# Provides: kbzb
	# Required-Start: $mysql $all
	# Required-Stop: $mysql
	# Default-Start: 2
	# Default-Stop:
	# Short-Description: Reboot all Backgroundrb and Zebra for Kete instances
	### END INIT INFO
	#!/usr/bin/perl

	use Catmandu::Importer::MARC;
	use Catmandu::Exporter::RDF;
	use Modern::Perl;

	my $records = Catmandu::Importer::MARC->new(
	file => 'sample_records.marcxml',
	type => 'XML',
	);