Perl - Ayuda con Script en Perl a Python

   
Vista:

Ayuda con Script en Perl a Python

Publicado por Javier Lancharro nirty66@hotmail.com (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.

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=$3
 
    perl -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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder