LiosK

#!/bin/bash -x
# Install Perl modules in macOS system Perl without cluttering /usr/local

# Prerequisite
xcode-select --install

# Install modules locally
sysperl=/usr/bin/perl
FQ_LOAD_QUOTELET=-defaults curl -L https://cpanmin.us/ | \
    $sysperl - -n --local-lib=~/.sys_perl5 \

LiosK

#!/usr/bin/perl
# convert docomo vcard format to ldif

use utf8;
use strict;
use warnings;
use Unicode::Normalize;
binmode(STDOUT, ':utf8');

die 'error: no vcard file specified (*.vcf)' if (@ARGV < 1);

LiosK

ghc -W -O -threaded --make runfor

LiosK

<?xml version="1.0" encoding="utf-8"?>
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
  <!-- convert KeePass XML (2.x) format to 7-column keeper.txt format -->

  <xsl:output method="text" encoding="utf-8" />

  <xsl:template match="/">
    <xsl:apply-templates select="/KeePassFile/Root/Group" />
  </xsl:template>

LiosK

#!/usr/bin/perl
# extract pricedb from gzipped gnucash xml file

use utf8;
use strict;
use warnings;
use XML::LibXML;

die 'specify gnucash xml file as argument' unless $ARGV[0];
my $doc = XML::LibXML->load_xml(location => $ARGV[0]);

LiosK

#!/usr/bin/perl
# fetch fund quotes from yahoo finance japan

use utf8;
use strict;
use warnings;
use XML::LibXML;
use Finance::Quote;

# extract fund symbols from gnucash xml file