andrelaszlo

/*
 * Function that checks if a swedish personnummer is valid.
 * Author: André Laszlo <andre@laszlo.nu>
 */

function check_personnummer(pnr) {
	// Do formatting and sanity control
	pnr = pnr.replace(/[^0-9]/g, ''); // only keep digits
	if (12 == pnr.length) // year format 1985 → 85
		pnr = pnr.substr(2);

n8v

#!/usr/bin/perl

###  check_backup.pl
# By Nathan Vonnahme, Sept 2011

# An example for "Writing Custom Nagios Plugins in Perl" at the Nagios
# World Conference North America 2011.


# I. Prologue