justino

#!/usr/bin/env perl

use strict;
use warnings;

use Text::CSV;
use Getopt::Long;
use Data::Dumper;

GetOptions(

justino

#!/usr/bin/python

import time

def f():
        print "f(): Function 'f' has been called"
        print "f(): I can do a bunch of junk here"
        print "f(): Maybe start reading in a file line by line"
        print "f(): Going to sleep for 2 seconds\n"
        time.sleep(2)

justino

diff --git a/Safe.pm b/Safe.pm-patched
index c9ae0de..ea5770e 100644
--- a/Safe.pm
+++ b/Safe.pm-patched
@@ -18,37 +18,69 @@
 # Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston,
 # MA  02110-1301  USA.

-# wrapper around Safe to return pre-inited Safe compartments which are utf-8 friendly.
+# 2013 update by Peter Motschmann <pnm3@optonline.com>:

justino

#!/bin/env perl

use strict;
use warnings;

use DBI;
use Storable qw( thaw );
use Data::Dumper;

my $dsn = 'dbi:mysql:[DB NAME];host=[HOST NAME];';