carygravel / perl2python Goto Github PK

$script = <<'EOS';
for ( @{$array} ) {
    s{in}{out}g;
}
EOS

$expected = <<'EOS';
import re
for _ in  array  :
    _ = re.sub("in","out",_)
EOS

is map_document( \$script ), $expected, "regex replace magic variables";

$script = <<'EOS';
$data =~ s{\\(?:([0-7]{1,3})|(.))} {defined($1) ? chr(oct($1)) : $2}eg;
EOS

$expected = <<'EOS';
import re

def anonymous_01(m):
    return chr(oct(m[1])) if m[1] is not None else m[2]

data = re.sub(r"\\(?:([0-7]{1,3})|(.))",anonymous_01,data)
EOS

is map_document( \$script ), $expected, "substitution with expression";

$script = <<'EOS';
my $output   = do { local ( @ARGV, $/ ) = $filename; <> };
EOS

$expected = <<'EOS';
with open($filename, 'r') as fd:
   output = fd.read()
EOS

is map_document( \$script ), $expected, "slurp file";

$script = <<'EOS';
package MyObject;
use Glib::Object::Subclass MyObject::, signals => {
    'signal_with_float' => {
        param_types => ['Glib::Float'],
    },
    'signal_with_ints' => {
        param_types => [ 'Glib::Int', 'Glib::Int' ],
    },
  },
  properties => [
    Glib::ParamSpec->scalar('name1', 'Nick1', 'Blurb1', G_PARAM_READWRITE),
    Glib::ParamSpec->string('name2','Nick2','Blurb2','default',G_PARAM_READWRITE),
  ];
EOS

$expected = <<'EOS';
from gi.repository import GObject

class MyObject(GObject.GObject):
    __gsignals__ = {
        'signal_with_float': (GObject.SIGNAL_RUN_FIRST, None,
                      (float,)),
        'signal_with_ints': (GObject.SIGNAL_RUN_FIRST, None,
                      (int,int)),
    }

    foo = GObject.Property(type=str, default='bar')
    property_float = GObject.Property(type=float)
    def __init__(self):
        GObject.GObject.__init__(self)
EOS

is map_document( \$script ), $expected, "subclass GObject";