Pasar sencillo programa en Python a PERL

[neodani]

Buenas,

Me he empollado un tutorial de como aprender PERL en 5 días, pero no he conseguido transformar este script programado en PYTHON, muy sencillo a PERL.

Espero que alguien me ayude, seguro que es muy fácil, pero no soy capaz!!

Al programa se le pasa un argumento (nombre del archivo de txt) el cual transforma y guarda la transformación en otro archivo de texto.

PROGRAMA EN PYTHON

Código:

import sys, os

entrada=sys.argv[1]
file = open(entrada,'r')
file_salida = open('alias_retocados.txt', 'w')

user2 =' '
correo=''

for linea in file:
            user1 = linea.split(';')[0]
            if user2 in user1:

                        correo2 = (linea.split(';')[1]).split('\n')[0]
                        print correo +';'+ correo2

             if not 'Alias de ' in user1:
                        correo = (linea.split(';')[1]).split('\n')[0]

            user2 = user1

FICHERO ENTRADA

Código:

ortopedia0;[email protected]
Alias de ortopedia0;[email protected]
Alias de ortopedia0;[email protected]
Alias de ortopedia0;[email protected]
Alias de ortopedia0;[email protected]
ortopedia3;[email protected]
Alias de ortopedia3;[email protected]
Alias de ortopedia3;[email protected]
Alias de ortopedia3;[email protected]
Alias de ortopedia3;[email protected]
Alias de ortopedia3;[email protected]
Alias de ortopedia3;[email protected]
Alias de ortopedia3;[email protected]
ortopedia450;[email protected]
Alias de ortopedia450;[email protected]
Alias de ortopedia450;[email protected]
ortopedia454;[email protected]
ortopedia455;[email protected]
Alias de ortopedia455;[email protected]
ortopedia456;[email protected]
ortopedia457;[email protected]
Alias de ortopedia457;[email protected]

Y aquí la SALIDA que consige el programa

Código:

[email protected];[email protected]
[email protected];[email protected]
[email protected];[email protected]
[email protected];[email protected]
[email protected];[email protected]
[email protected];[email protected]
[email protected];[email protected]
[email protected];[email protected]
[email protected];[email protected]
[email protected];[email protected]
[email protected];[email protected]
[email protected];[email protected]
[email protected];[email protected]
[email protected];[email protected]
[email protected];[email protected]

Alguien puede echarle un vistazo?

Gracias de antemano!!

[monoswim]

abre un archivo, lo recorre fijándose línea por línea que el e-mail no sea un alias ni esté vacío...de estar todo ok lo guardas en otro array que luego guardas en tu archivo nro 2 ?

es fácil de hacer y te recomiendo que uses algunas expresiones regulares para hcer las comprovaciones del e-mail, son muy fimples de usar...

Ecá un vistaso a los tutoriales de www.perlenespanol.com que tienes uno sobre archivos y otro sobre expresiones ;)



Saludos

[jferrero]

Esta es una de las muchas formas de hacerlo:

Código:

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;

my %direccion_real_del;

while (<>) {
    chomp;
    my($usuario,$direccion) = split ';';

    if ($usuario !~ /Alias de (.+)/) {
        $direccion_real_del{$usuario} = $direccion;
    }

    else {
        $usuario = $1;
        print "$direccion_real_del{$usuario};$direccion\n"
#           if $direccion_real_del{$usuario};
        ;
    }
}

En vez de buscar si el user2 está contenido en la cadena user1, miramos justo lo contrario: que no contenga "Alias de ". Entonces sabemos que es una línea que muestra el $usuario y su dirección, así que las guardamos en el diccionario.

En cambio, si sí es un alias, sacamos el $usuario del primer par de paréntesis de captura de la expresión regular ($1) y (suponemos que ya la conocemos y por eso) pintamos su dirección real junto con la del alias.

Tiene la ventaja de que recuerda las direcciones reales de todos los usuarios, por si las líneas del fichero de entrada aparecen mezcladas.

[neodani]

Iniciado por jferrero

Esta es una de las muchas formas de hacerlo:

Código:

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;

my %direccion_real_del;

while (<>) {
    chomp;
    my($usuario,$direccion) = split ';';

    if ($usuario !~ /Alias de (.+)/) {
        $direccion_real_del{$usuario} = $direccion;
    }

    else {
        $usuario = $1;
        print "$direccion_real_del{$usuario};$direccion\n";
#           if $direccion_real_del{$usuario};
    }
}

En vez de buscar si el user2 está contenido en la cadena user1, miramos justo lo contrario: que no contenga "Alias de ". Entonces sabemos que es una línea que muestra el $usuario y su dirección, así que las guardamos en el diccionario.

En cambio, si sí es un alias, sacamos el $usuario del primer par de paréntesis de captura de la expresión regular ($1) y (suponemos que ya la conocemos y por eso) pintamos su dirección real junto con la del alias.

Tiene la ventaja de que recuerda las direcciones reales de todos los usuarios, por si las líneas del fichero de entrada aparecen mezcladas.

Esta genial jferrero, menudo crack!

Si me puedes decir como intercambiar las posiciones de la salida, me he dado cuenta que la salida buena debería ser

A >> B
y no B >> A

Es decir

El alias no es [email protected]

Código:

[email protected];[email protected]
[email protected];[email protected]
[email protected];[email protected]
[email protected];[email protected]

Sino que es

Código:

[email protected];[email protected]
[email protected];[email protected]
[email protected];[email protected]
[email protected];[email protected]

He intentado cambiar el orden de las variables en el programa pero si lo hacia petaba :S

[jferrero]

Código:

print "$direccion;$direccion_real_del{$usuario}\n";

[neodani]

Iniciado por jferrero

Código:

print "$direccion;$direccion_real_del{$usuario}\n";

Ostia... no se porqué no lo vi