msztolcman

<?php
function p ($s) {
    echo $s . "\n";
}

$str = 'a:b:c:d:e\:f\\\\:g';
function spl ($str, $delim, $escape='\\') {
    if (strlen ($delim) != 1) {
        return;
    }

msztolcman

#!/usr/bin/env python -tt
# -*- coding: utf-8 -*-

from __future__ import print_function, unicode_literals
import os, os.path
import sys
import re
import time
from pprint import pprint

msztolcman

#!/usr/bin/env perl

use strict;
use warnings;
use 5.010;

use Data::Dumper;
$Data::Dumper::Sortkeys = 1;
$Data::Dumper::Terse = 1;
$Data::Dumper::Indent = 1;

msztolcman

#!/usr/bin/env python -tt
# -*- coding: utf-8 -*-

from __future__ import print_function, unicode_literals
import os, os.path
import sys
import re
from pprint import pprint, pformat

msztolcman

#!/usr/bin/env perl

use strict;
use warnings;
use 5.016;

# via: http://www.linuxquestions.org/questions/programming-9/perl-vs-python-which-is-easier-to-learn-857758/#post4233698

# s="a string"
# s = s[1:-1].replace("s","S")[0:-2]

msztolcman

#!/usr/bin/env python -tt
# -*- coding: utf-8 -*-

from __future__ import print_function, unicode_literals
import os, os.path
import sys
import re
from pprint import pprint, pformat

import json

msztolcman

#!/usr/bin/env python -tt
# -*- coding: utf-8 -*-

from __future__ import print_function, unicode_literals
import os, os.path
import sys
import re
from pprint import pprint, pformat

import json

msztolcman

#!/usr/bin/env perl

use strict;
use warnings;
use 5.010;

use Data::Dumper;
$Data::Dumper::Sortkeys = 1;
$Data::Dumper::Terse = 1;
$Data::Dumper::Indent = 1;

msztolcman

#!/usr/bin/env perl

use strict;
use warnings;
use 5.010;

use Data::Dumper;
$Data::Dumper::Sortkeys = 1;
$Data::Dumper::Terse = 1;
$Data::Dumper::Indent = 1;

msztolcman

package Rot13;

use 5.010;
use Filter::Simple;

FILTER {
    if ($_ =~ s/^!//mg) {
        $_ =~ tr/a-zA-Z/n-za-mN-ZA-N/;
    }
};