Ayuda con Script en Perl a Python
Publicado por Javier Lancharro (1 intervención) el 25/01/2016 12:22:53
Buenos días,
Mientras que en otros lenguajes de programación me defiendo bastante bien, en Perl soy totalmente nulo. Tengo un pequeño script que genera un archivo y necesitaria pasarlo a Python, pero como ya he dicho anteriormente, en Perl soy nulo.
Agradeceria la ayuda de alguien que lo pudiera convertir.
Gracias
Mientras que en otros lenguajes de programación me defiendo bastante bien, en Perl soy totalmente nulo. Tengo un pequeño script que genera un archivo y necesitaria pasarlo a Python, pero como ya he dicho anteriormente, en Perl soy nulo.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
#!/bin/bash
modid=$1 moddestdir=$2 modroot=$3perl -e '
my $data;
{ local $/; $data = <STDIN>; }
my $mapnamelen = unpack("@0 L<", $data);
my $mapname = substr($data, 4, $mapnamelen - 1);
$mapnamelen += 4;
my $mapfilelen = unpack("@" . ($mapnamelen + 4) . " L<", $data);
my $mapfile = substr($data, $mapnamelen + 8, $mapfilelen);
print pack("L< L< L< Z8 L< C L< L<", $ARGV[0], 0, 8, "ModName", 1, 0, 1, $mapfilelen);
print $mapfile;
print "\x33\xFF\x22\xFF\x02\x00\x00\x00\x01";
' $modid <"$moddestdir/mod.info" >"$modroot/$modid.mod"
if [ -f "$moddestdir/modmeta.info" ]; then
cat "$moddestdir/modmeta.info" >>"$modroot/$modid.mod"
else
echo -ne '\x01\x00\x00\x00\x08\x00\x00\x00ModType\x00\x02\x00\x00\x001\x00' >>"$modroot/$modid.mod"
fi
Agradeceria la ayuda de alguien que lo pudiera convertir.
Gracias
Valora esta pregunta
0