• Publicidad

Rapidez en Perl

Así que programas sin strict y las expresiones regulares son otro modo de hablar. Aquí encontrarás respuestas de nivel avanzado, no recomendable para los débiles de corazón.

Rapidez en Perl

Notapor Piperrak » 2008-08-18 12:39 @569

Hola Buenos días a todos.
Les escribo por que tengo el siguiente problema:

Tengo que leer un archivo de más de 5 GB con más de 5 millones de líneas. Cada línea es un registro con formato XML y con muchos errores de sintaxis.
Hice un script en Perl para darle el formato adecuado y corregir errores de sintaxis, que funcionó muy bien para un archivo de 50 Mb, pero para 5 GB tardaría muchísimo (¡¡DÍAS!!).

Mi pregunta es cuál sería la forma más rápida de leer un archivo y generar otro archivo con Perl.

Básicamente ahora estoy usando esto

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
open(FILE,"origen.xml");
open(FILE_NEW,">destino.xml");
while(<FILE>)
{
  $lin = $_; # <-- aumenta mucho la rapidez si saco $lin y uso $_ ?
  # Expresiones regulares y otras sentencias
  print NEW_FILE $lin;
}

close FILE;
close NEW_FILE;
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4


Desde ya muchísimas gracias a todos por su ayuda.
Piperrak
Perlero nuevo
Perlero nuevo
 
Mensajes: 6
Registrado: 2008-03-20 00:00 @041

Publicidad

Notapor creating021 » 2008-08-18 13:19 @596

Hay dos cosas que podés hacer:

Expect the worst, is it the least you can do?
Avatar de Usuario
creating021
Perlero frecuente
Perlero frecuente
 
Mensajes: 595
Registrado: 2006-02-23 16:17 @720
Ubicación: Frente al monitor

Notapor explorer » 2008-08-18 16:47 @741

Lo que estás haciendo es correcto, al menos lo que muestras. Lo de $_ es preferible a $lin (te ahorras una asignación, multiplicado por 5 millones).

Sería interesante ver lo demás para ver si se puede acelerar.

Lo que sí es cierto es que si no usas Windows, notarás un apreciable aumento de velocidad.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor Piperrak » 2008-08-19 10:32 @480

Hola,
Muchas gracias por sus respuestas. Les envío el código que utilizo para que puedan ver alguna forma de aumentar su rapidez.

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
sub deblock {
    my $file = $_[0];
    my $lin;
    my $var;

    chomp $file;

    $file =~ s/\.xml/\.de\.xml/;

    print $file;

    open(FILE,$_[0]);
    open(FILE_NEW,">".$file);

    print FILE_NEW "<?xml version=\"1.0\" encoding=\"iso-8859-1\"?>\n";
 
    while (<FILE>) {
        $lin =  $_;
        $lin =~ s/\n//g;

        my $varAnt;

        $lin =~ s/<\?xml version="1\.0" encoding="iso-8859-1"\?>//g;

        while ($lin =~ m/<([^<>]+)>(?{$var=$1;})/g) {
            $varAnt = $var;
            $varAnt =~ s/[\/\\]//g;

            $var =~ s/[^<\w->]//g;     

            $lin =~ s/<$var><\/$varAnt>/\n<$var\/>\n/g;
            $lin =~ s/<$varAnt><\/$var>/\n<$var\/>\n/g;
        }

        $lin =~ s/>\s*<([^<>])/>\n<$1/g;
        $lin =~ s/(<\/[^<>]+>)(<\/[^<>]+>)/$1\n$2/g; # Aquí repito la expresión para asegurarme que
                                                     # toma tanto los pares desde el elemento 2n como
                                                     # el elemento 2n - 1
        $lin =~ s/(<\/[^<>]+>)(<\/[^<>]+>)/$1\n$2/g;
        $lin =~ s/\/><\//\/>\n<\//;

        foreach my $str (split("\n",$lin)) {
            if (($str =~ m/(<[^<>]+>)([^<>]*)(<[^<>]+>)/) and ($str !~ /.xml version.+/)) {
                my $val1 = $1;
                my $val2 = $3;
                my $val3 = $2;

                $val1 =~ s/[^\/\w-]//g;
                $val2 =~ s/[^\/\w-]//g;

                print FILE_NEW "<$val1>".$val3."<$val2>\n";

                next;
            }
            elsif ($str !~ /.xml version.+/) {
                #$str =~ s/<[^<\\\/\w->]>//g;           # ¡¡¡ACÁ ESTA EL ERROR!!! #
                $str =~ s/[^<\/\\\w->]//g;
                print FILE_NEW $str."\n";
            }
        }
    }
 
    close FILE;
    close FILE_NEW;
 
    return $file;
}
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4



Desde ya muchísimas gracias pos sus ayudas y respuestas.

¡¡ Saludos !!
Piperrak
Perlero nuevo
Perlero nuevo
 
Mensajes: 6
Registrado: 2008-03-20 00:00 @041

Notapor explorer » 2008-08-19 11:08 @505

Quiero pedirte, solo si es posible, que publiques parte del XML. Si contiene información sensible, la falseas. Lo importante es ver la estructura que tiene ahora y lo que quieres obtener.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor explorer » 2008-08-19 12:18 @554

He reformateado el código un poco y quitado los '\' de una expresión regular, que no hacían falta (delante de algún '=' y '"'). Así, sale mejor colorido el código.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor Jenda » 2008-08-21 16:42 @738

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
print FILE_NEW "<?xml version=\"1.0\" encoding=\"iso-8859-1\"?>\n";
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4


mejor escrito

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
print FILE_NEW qq{<?xml version="1.0" encoding="iso-8859-1"?>\n};
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4



Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
$lin =~ s/\n//g;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4


puede ser

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
chomp($lin);
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4


si lees el archivo por lineas, el unico \n que puede estar esta al final de la cadena.

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
$lin =~ s/<\?xml version="1\.0" encoding="iso-8859-1"\?>//g;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4


mejor

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
$lin =~ s/^\s*\Q<?xml version="1.0" encoding="iso-8859-1"?>\E//;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4


La declaracion XML solo puede ocurrir una vez y tiene que estar al principio.

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
while ($lin =~ m/<([^<>]+)>(?{$var=$1;})/g) {
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4


mejor

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
while (my $var = ($lin =~ m/<([^<>]+)>/g)) {
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4



No sé que debe ser

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
$var =~ s/[^<\w->]//g;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4


puede ser

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
$var =~ s/[^<\w->]+//g;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4


espero que así es más rápido.


Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  $lin =~ s/<$var><\/$varAnt>/\n<$var\/>\n/g;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4


mejor

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  $lin =~ s{<$var></$varAnt>}{\n<$var/>\n}g;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4


Por favor cambia los "..." a qq{} y los s/// a s{}{} para no tener que escapar los " y / y hace los otros cambios y mostranos el escript otra ver, con un ejemplo de este XML que tienes que coregir y el resultado que quieres obtener.

Tambien deberías añadir

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
use strict;
use warnings; no warnings 'uninitialized';
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4


al principio del escript y declarar todas las variables. Te va a ayudar a proteger contra los transbordos al menos en los nombres de los variables. Además los variables "my" son un poquito más rápidos que los globales.
-------------------------------------------------------
- Estoy aquí para practicar español. Si te ayudó mi respuesta ayudame con un mensaje privado sobre mis faltas por favor. Seguramente habrá muchas :-)
Jenda
Perlero nuevo
Perlero nuevo
 
Mensajes: 132
Registrado: 2007-10-29 06:31 @313
Ubicación: Praga, Republica Checa

Notapor Piperrak » 2008-08-22 14:01 @626

Hola a todos y muchas gracias por sus respuestas, les envío dos registros del "XML" con formato similar a lo que me llega. Disculpen si es muy pesado. Y si no se puede, por favor haganmelo saber para que no se repita.

Sintáxis: [ Descargar ] [ Ocultar ]
Using xml Syntax Highlighting
<?xml version="1.0" encoding="UTF-8"?><Root><TAG67><TAG68>20080514</TAG68><Request_time>12:57:47</Request_time><ROCKKKK  >1b</ROCKKKK  ><NumeroDe La Su>189043</NumeroDe La Su></TAG67><InputRequest><JIMENA>1000</JIMENA><Reference></Reference><Purpose>0C</Purpose><Terms></Terms><Amount></Amount><Last_CHANGO></Last_CHANGO><First_CHANGO></First_CHANGO><Middle></Middle><GenCode></GenCode><Street></Street><BARRIO></BARRIO><Province></Province><PostalCode></PostalCode><CountryCode></CountryCode><Date_of_Birth></Date_of_Birth><Telephone></Telephone><Social_Insurance_Number>119-111-167</Social_Insurance_Number><SINMatch>Y</SINMatch></InputRequest><PersonalInformation><Header><OnFileSinceDate>20080508</OnFileSinceDate><SIN>100-00X-XXX</SIN><DOB></DOB><AGE></AGE></Header></PersonalInformation><ProfileSummaryInformation><TotalPublicRecords>000</TotalPublicRecords><InstallmentBalance>-2147471535</InstallmentBalance><MortgageBalance></MortgageBalance><RevolvingBalance></RevolvingBalance><PEPE_LUI>10101010101</PEPE_LUI><MonthlyPayment>10101010101</MonthlyPayment><MortgagePayment></MortgagePayment><PartialMortgagePayment></PartialMortgagePayment><RevolvingUtilizationPercent>000</RevolvingUtilizationPercent><TotalInquiries>20</TotalInquiries><InquiriesLast6Months>20</InquiriesLast6Months><TotalTrades>073</TotalTrades><PaidAccounts>000</PaidAccounts><SatisfactoryAccounts>003</SatisfactoryAccounts><NowDelinquentDerog>000</NowDelinquentDerog><WasDelinquentDerog>000</WasDelinquentDerog><OldestTradeOpenDate>19781201</OldestTradeOpenDate><BARSA>010</BARSA><DIAD>001</DIAD><Over90Days>000</Over90Days><DerogMonthsCount>000</DerogMonthsCount><CollectionsCount>000</CollectionsCount></ProfileSummaryInformation><PublicRecordsInformation><Bankruptcy><Court></Court><District></District><JIMENA></JIMENA><FilingNumber></FilingNumber><FilingType></FilingType><EstateType></EstateType><FilingDate></FilingDate><HearingDate></HearingDate><TAG89></TAG89><StatusCode></StatusCode><DischargeType></DischargeType><AssetAmount></AssetAmount><LiabilitiesAmount></LiabilitiesAmount><DividendsAmount></DividendsAmount><ECOA></ECOA><TrusteeCHANGO></TrusteeCHANGO><TrusteeREDONDOSLine1></TrusteeREDONDOSLine1><TrusteeDIRECCIONIPP></TrusteeDIRECCIONIPP><TrusteeBARRIO></TrusteeBARRIO><TrusteeProvince></TrusteeProvince><TrusteePostalCode></TrusteePostalCode><TrusteePhone></TrusteePhone><TrusteeDischargeDate></TrusteeDischargeDate><TrusteeLicenseNumber></TrusteeLicenseNumber><TAG698></TAG698><TAH56></TAH56></Bankruptcy></PublicRecordsInformation><JUJUJUn><Trade><JIMENA>951DC46573</JIMENA><JUANPEPE>HBL LARD</JUANPEPE><JIMENAPhone></JIMENAPhone><JIMENAKOB></JIMENAKOB><TAG32>xxxxxx1341</TAG32><PICOOO></PICOOO><AccountType>18</AccountType><CONDIOCION>A1</CONDIOCION><REGLA></REGLA><PEPE14></PEPE14><TAG12>000</TAG12><FM>M</FM><ECOA>0</ECOA><OpenDate>19781201</OpenDate><TAG89>20041101</TAG89><ETIQUETA59>20041101</ETIQUETA59><TATAGOOL>20040701</TATAGOOL><TAG45>19010201</TAG45><ETIQUETA567>19010201</ETIQUETA567><TAG5556>-02147483647</TAG5556><HighSTAG6998>00000001500</HighSTAG6998><VALEN>-1147775447</VALEN><STAG6998>00000000087</STAG6998><JAJAJAJAJt>10101010101</JAJAJAJAJt><ActualPaidAmount>-1147775447</ActualPaidAmount><PEPE_LUI></PEPE_LUI><JUANTAG89>-1147775447</JUANTAG89><ENTRAR78>-1147775447</ENTRAR78><PITUFINA>25</PITUFINA><BARSA>0</BARSA><DIAD>0</DIAD><Over90Days>0</Over90Days><DerogCount>0</DerogCount><PITOYFLAUTA>2004</PITOYFLAUTA><YYYOYU>- L L L L L L L L L L</YYYOYU><STALONE>2003</STALONE><CABALLERO ROJO>L L L L L L L L L L L L</CABALLERO ROJO><ENTRAR>2002</ENTRAR><ETIQUETA56></ETIQUETA56><SILVIA></SILVIA><Wors tYAG69></TAG69><YAG90></YAG90><TELETUVI></TELETUVI><SoldIndicator>0</SoldIndicator><SoldFromOrToCHANGO></SoldFromOrToCHANGO><TAG2TAG2></TAG2TAG2><SpecialCommentCode1></SpecialCommentCode1><SpecialCommentCode2></SpecialCommentCode2><JUANA></JUANA><TAG698></TAG698><TAH56>19010201</TAH56></Trade><Trade><JIMENA>951ON24170</JIMENA><JUANPEPE>CANADIAN TIRE MASTER CARD</JUANPEPE><JIMENAPhone>(672) 673-9923</JIMENAPhone><JIMENAKOB></JIMENAKOB><TAG32>xxxxxx00530</TAG32><PICOOO></PICOOO><AccountType>18</AccountType><CONDIOCION>A1</CONDIOCION><REGLA></REGLA ><PEPE14></PEPE14><TAG12>000</TAG12><FM>M</FM><ECOA>0</ECOA><OpenDate>19941001</OpenDate><TAG89>20041101</TAG89><ETIQUETA59>20041101</ETIQUETA59><TATAGOOL>20040501</TATAGOOL><TAG45>19010201</TAG45><ETIQUETA567>19010201</ETIQUETA567><TAG5556>-02147483647</TAG5556><HighSTAG6998>00000001500</HighSTAG6998><VALEN>-1147775447</VALEN><STAG6998>-1147775447</STAG6998><JAJAJAJAJt>10101010101</JAJAJAJAJt><ActualPaidAmount>-1147775447</ActualPaidAmount><PEPE_LUI></PEPE_LUI><JUANTAG89>-1147775447</JUANTAG89><ENTRAR78>-1147775447</ENTRAR78><PITUFINA>23</PITUFINA><BARSA>0</BARSA><DIAD>0</DIAD><Over90Days>0</Over90Days><DerogCount>0</DerogCount><PITOYFLAUTA>2004</PITOYFLAUTA><YYYOYU>- - L L L L C - - - C</YYYOYU><STALONE>2003</STALONE><CABALLERO ROJO>L L - L L - - L L - - -</CABALLERO ROJO><ENTRAR>2002</ENTRAR><ETIQUETA56></ETIQUETA56><SILVIA></SILVIA><TAG69></TAG69><YAG90></YAG90><TELETUVI></TELETUVI><SoldIndicator>0</SoldIndicator><SoldFromOrToCHANGO></SoldFromOrToCHANGO><TAG2TAG2></TAG2TAG2><SpecialCommentCode1></SpecialCommentCode1><SpecialCommentCode2></SpecialCommentCode2><JUANA></JUANA><TAG698></TAG698><TAH56>19010201</TAH56></Trade><Trade><JIMENA>60105</JIMENA><JUANPEPE>AMERICAN EXPRESS  CANADA INC</JUANPEPE><JIMENAPhone></JIMENAPhone><JIMENAKOB></JIMENAKOB><TAG32>xxxxxx01769</TAG32><PICOOO></PICOOO><AccountType>18</AccountType><CONDIOCION>A3</CONDIOCION><REGLA></REGLA><PEPE14></PEPE14><TAG12>REV</TAG12><FM></FM><ECOA>0</ECOA><OpenDate>19950301</OpenDate><TAG89>20020901</TAG89><ETIQUETA59>20020901</ETIQUETA59><TATAGOOL>20020816</TATAGOOL><TAG45>19010201</TAG45><ETIQUETA567>19010201</ETIQUETA567><TAG5556>-02147483647</TAG5556><HighSTAG6998>00000000025</HighSTAG6998><VALEN>-1147775447</VALEN><STAG6998>-1147775447</STAG6998><JAJAJAJAJt>10101010101</JAJAJAJAJt><ActualPaidAmount>-1147775447</ActualPaidAmount><PEPE_LUI></PEPE_LUI><JUANTAG89>-1147775447</JUANTAG89><ENTRAR78>-1147775447</ENTRAR78><PITUFINA>1</PITUFINA><BARSA>0</BARSA><DIAD>0</DIAD><Over90Days>0</Over90Days><DerogCount>0</DerogCount><PITOYFLAUTA>2002</PITOYFLAUTA><YYYOYU>                B</YYYOYU><STALONE>2001</STALONE><Paymen tRatingCodesLine2></CABALLERO ROJO><ENTRAR>2000</ENTRAR><ETIQUETA56></ETIQUETA56><SILVIA></SILVIA><TAG69></TAG69><YAG90></YAG90><TELETUVI></TELETUVI><SoldIndicator>0</SoldIndicator><SoldFromOrToCHANGO></SoldFromOrToCHANGO><TAG2TAG2></TAG2TAG2><SpecialCommentCode1></SpecialCommentCode1><SpecialCommentCode2></SpecialCommentCode2><JUANA>XA</JUANA><TAG698></TAG698><TAH56>19010201</TAH56></Trade><Trade><JIMENA>951ON00200</JIMENA><JUANPEPE>DINERS CLUB</JUANPEPE><JIMENAPhone>(800) 363-3333</JIMENAPhone><JIMENAKOB></JIMENAKOB><TAG32>xxxxxx354</TAG32><PICOOO></PICOOO><AccountType></AccountType><CONDIOCION>A1</CONDIOCION><REGLA></REGLA><PEPE14></PEPE14><TAG12>000</TAG12><FM></FM><ECOA>0</ECOA><OpenDate>19960712</OpenDate><TAG89>20041101</TAG89><ETIQUETA59>20041101</ETIQUETA59><TATAGOOL>20040913</TATAGOOL><TAG45>19010201</TAG45><ETIQUETA567>19010201</ETIQUETA567><TAG5556>-02147483647</TAG5556><HighSTAG6998></HighSTAG6998><VALEN>-1147775447</VALEN><STAG6998>00000001825</STAG6998><JAJAJAJAJt>10101010101</JAJAJAJAJt><ActualPaidAmount>-1147775447</ActualPaidAmount><PEPE_LUI></PEPE_LUI><JUANTAG89>-1147775447</JUANTAG89><ENTRAR78>-1147775447</ENTRAR78><PITUFINA>17</PITUFINA><BARSA>0</BARSA><DIAD>0</DIAD><Over90Days>0</Over90Days><DerogCount>0</DerogCount><PITOYFLAUTA>2004</PITOYFLAUTA><YYYOYU>- 1 1 C 1 1 C 1 C 1 C</YYYOYU><STALONE>2003</STALONE><CABALLERO ROJO>  -         2 1 C 1 L L</CABALLERO ROJO><ENTRAR>2002</ENTRAR><ETIQUETA56></ETIQUETA56><SILVIA>2</SILVIA><TAG69>20030701</TAG69><YAG90></YAG90><TELETUVI></TELETUVI><SoldIndicator>0</SoldIndicator><SoldFromOrToCHANGO></SoldFromOrToCHANGO><TAG2TAG2></TAG2TAG2><SpecialCommentCode1></SpecialCommentCode1><SpecialCommentCode2></SpecialCommentCode2><JUANA></JUANA><TAG698></TAG698><TAH56>19010201</TAH56></Trade><Trade><JIMENA>21194</JIMENA><JUANPEPE>CIBL LREDIT CARDS SERVICES</JUANPEPE><JIMENAPhone></JIMENAPhone><JIMENAKOB></JIMENAKOB><TAG32>xxxxxx08942</TAG32><PICOOO></PICOOO><AccountType>18</AccountType><CONDIOCION>A1</CONDIOCION><REGLA></REGLA><PEPE14></PEPE14><TAG12>000</TAG12><FM>M</FM><ECOA>0</ECOA><OpenDate>19960901</OpenDate><TAG89>20041101</TAG89><ETIQUETA59>20041101</ETIQUETA59><TATAGOOL>20041101</TATAGOOL><TAG45>19010201</TAG45><ETIQUETA567>19010201</ETIQUETA567><TAG5556>-02147483647</TAG5556><HighSTAG6998>00000001848</HighSTAG6998><VALEN>-1147775447</VALEN><STAG6998>00000001640</STAG6998><JAJAJAJAJt>10101010101</JAJAJAJAJt><ActualPaidAmount>-1147775447</ActualPaidAmount><PEPE_LUI></PEPE_LUI><JUANTAG89>-1147775447</JUANTAG89><ENTRAR78>-1147775447</ENTRAR78><PITUFINA>23</PITUFINA><BARSA>0</BARSA><DIAD>0</DIAD><Over90Days>0</Over90Days><DerogCount>0</D erogCount><PITOYFLAUTA>2004</PITOYFLAUTA><YYYOYU>- L L L L L L L L L L</YYYOYU><STALONE>2003</STALONE><CABALLERO ROJO>L L L L L L L L L L L L</CABALLERO ROJO><ENTRAR>2002</ENTRAR><ETIQUETA56></ETIQUETA56><SILVIA></SILVIA><TAG69></TAG69><YAG90></YAG90><TELETUVI></TELETUVI><SoldIndicator>0</SoldIndicator><SoldFromOrToCHANGO></SoldFromOrToCHANGO><TAG2TAG2></TAG2TAG2><SpecialCommentCode1></SpecialCommentCode1><SpecialCommentCode2></SpecialCommentCode2><JUANA></JUANA>
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4
Piperrak
Perlero nuevo
Perlero nuevo
 
Mensajes: 6
Registrado: 2008-03-20 00:00 @041

Notapor Piperrak » 2008-08-22 14:04 @628

Aquí les envío como debería quedar el XML.

Sintáxis: [ Descargar ] [ Ocultar ]
Using xml Syntax Highlighting
<?xml version="1.0" encoding="iso-8859-1"?>
<Root>
    <TAG67>
        <TAG68>20080514</TAG68>
        <Request_time>12:57:47</Request_time>
        <ROCKKKK>1b</ROCKKKK>
        <NumeroDeLaSu>189043</NumeroDeLaSu>
    </TAG67>
    <InputRequest>
        <JIMENA>1000</JIMENA>
        <Reference/>
        <Purpose>0C</Purpose>
        <Terms/>
        <Amount/>
        <Last_CHANGO/>
        <First_CHANGO/>
        <Middle/>
        <GenCode/>
        <Street/>
        <BARRIO/>
        <Province/>
        <PostalCode/>
        <CountryCode/>
        <Date_of_Birth/>
        <Telephone/>
        <Social_Insurance_Number>119-111-167</Social_Insurance_Number>
        <SINMatch>Y</SINMatch>
    </InputRequest>
    <PersonalInformation>
        <Header>
            <OnFileSinceDate>20080508</OnFileSinceDate>
            <SIN>100-00X-XXX</SIN>
            <DOB/>
            <AGE/>
        </Header>
    </PersonalInformation>
    <ProfileSummaryInformation>
        <TotalPublicRecords>000</TotalPublicRecords>
        <InstallmentBalance>-2147471535</InstallmentBalance>
        <MortgageBalance/>
        <RevolvingBalance/>
        <PEPE_LUI>10101010101</PEPE_LUI>
        <MonthlyPayment>10101010101</MonthlyPayment>
        <MortgagePayment/>
        <PartialMortgagePayment/>
        <RevolvingUtilizationPercent>000</RevolvingUtilizationPercent>
        <TotalInquiries>20</TotalInquiries>
        <InquiriesLast6Months>20</InquiriesLast6Months>
        <TotalTrades>073</TotalTrades>
        <PaidAccounts>000</PaidAccounts>
        <SatisfactoryAccounts>003</SatisfactoryAccounts>
        <NowDelinquentDerog>000</NowDelinquentDerog>
        <WasDelinquentDerog>000</WasDelinquentDerog>
        <OldestTradeOpenDate>19781201</OldestTradeOpenDate>
        <BARSA>010</BARSA>
        <DIAD>001</DIAD>
        <Over90Days>000</Over90Days>
        <DerogMonthsCount>000</DerogMonthsCount>
        <CollectionsCount>000</CollectionsCount>
    </ProfileSummaryInformation>
    <PublicRecordsInformation>
        <Bankruptcy>
            <Court/>
            <District/>
            <JIMENA/>
            <FilingNumber/>
            <FilingType/>
            <EstateType/>
            <FilingDate/>
            <HearingDate/>
            <TAG89/>
            <StatusCode/>
            <DischargeType/>
            <AssetAmount/>
            <LiabilitiesAmount/>
            <DividendsAmount/>
            <ECOA/>
            <TrusteeCHANGO/>
            <TrusteeREDONDOSLine1/>
            <TrusteeDIRECCIONIPP/>
            <TrusteeBARRIO/>
            <TrusteeProvince/>
            <TrusteePostalCode/>
            <TrusteePhone/>
            <TrusteeDischargeDate/>
            <TrusteeLicenseNumber/>
            <TAG698/>
            <TAH56/>
        </Bankruptcy>
    </PublicRecordsInformation>
    <JUJUJUn>
    <Trade>
        <JIMENA>951DC46573</JIMENA>
        <JUANPEPE>HBL LARD</JUANPEPE>
        <JIMENAPhone/>
        <JIMENAKOB/>
        <TAG32>xxxxxx1341</TAG32>
        <PICOOO/>
        <AccountType>18</AccountType>
        <CONDIOCION>A1</CONDIOCION>
        <REGLA/>
        <PEPE14/>
        <TAG12>000</TAG12>
        <FM>M</FM>
        <ECOA>0</ECOA>
        <OpenDate>19781201</OpenDate>
        <TAG89>20041101</TAG89>
        <ETIQUETA59>20041101</ETIQUETA59>
        <TATAGOOL>20040701</TATAGOOL>
        <TAG45>19010201</TAG45>
        <ETIQUETA567>19010201</ETIQUETA567>
        <TAG5556>-02147483647</TAG5556>
        <HighSTAG6998>00000001500</HighSTAG6998>
        <VALEN>-1147775447</VALEN>
        <STAG6998>00000000087</STAG6998>
        <JAJAJAJAJt>10101010101</JAJAJAJAJt>
        <ActualPaidAmount>-1147775447</ActualPaidAmount>
        <PEPE_LUI/>
        <JUANTAG89>-1147775447</JUANTAG89>
        <ENTRAR78>-1147775447</ENTRAR78>
        <PITUFINA>25</PITUFINA>
        <BARSA>0</BARSA>
        <DIAD>0</DIAD>
        <Over90Days>0</Over90Days>
        <DerogCount>0</DerogCount>
        <PITOYFLAUTA>2004</PITOYFLAUTA>
        <YYYOYU>- L L L L L L L L L L</YYYOYU>
        <STALONE>2003</STALONE>
        <CABALLEROROJO>L L L L L L L L L L L L</CABALLEROROJO>
        <ENTRAR>2002</ENTRAR>
        <ETIQUETA56/>
        <SILVIA/>
        <WorstYAG69>
        </TAG69>
        <YAG90/>
        <TELETUVI/>
        <SoldIndicator>0</SoldIndicator>
        <SoldFromOrToCHANGO/>
        <TAG2TAG2/>
        <SpecialCommentCode1/>
        <SpecialCommentCode2/>
        <JUANA/>
        <TAG698/>
        <TAH56>19010201</TAH56>
    </Trade>
    <Trade>
        <JIMENA>951ON24170</JIMENA>
        <JUANPEPE>CANADIAN TIRE MASTER CARD</JUANPEPE>
        <JIMENAPhone>(672) 673-9923</JIMENAPhone>
        <JIMENAKOB/>
        <TAG32>xxxxxx00530</TAG32>
        <PICOOO/>
        <AccountType>18</AccountType>
        <CONDIOCION>A1</CONDIOCION>
        <REGLA/>
        <PEPE14/>
        <TAG12>000</TAG12>
        <FM>M</FM>
        <ECOA>0</ECOA>
        <OpenDate>19941001</OpenDate>
        <TAG89>20041101</TAG89>
        <ETIQUETA59>20041101</ETIQUETA59>
        <TATAGOOL>20040501</TATAGOOL>
        <TAG45>19010201</TAG45>
        <ETIQUETA567>19010201</ETIQUETA567>
        <TAG5556>-02147483647</TAG5556>
        <HighSTAG6998>00000001500</HighSTAG6998>
        <VALEN>-1147775447</VALEN>
        <STAG6998>-1147775447</STAG6998>
        <JAJAJAJAJt>10101010101</JAJAJAJAJt>
        <ActualPaidAmount>-1147775447</ActualPaidAmount>
        <PEPE_LUI/>
        <JUANTAG89>-1147775447</JUANTAG89>
        <ENTRAR78>-1147775447</ENTRAR78>
        <PITUFINA>23</PITUFINA>
        <BARSA>0</BARSA>
        <DIAD>0</DIAD>
        <Over90Days>0</Over90Days>
        <DerogCount>0</DerogCount>
        <PITOYFLAUTA>2004</PITOYFLAUTA>
        <YYYOYU>- - L L L L C - - - C</YYYOYU>
        <STALONE>2003</STALONE>
        <CABALLEROROJO>L L - L L - - L L - - -</CABALLEROROJO>
        <ENTRAR>2002</ENTRAR>
        <ETIQUETA56/>
        <SILVIA/>
        <TAG69/>
        <YAG90/>
        <TELETUVI/>
        <SoldIndicator>0</SoldIndicator>
        <SoldFromOrToCHANGO/>
        <TAG2TAG2/>
        <SpecialCommentCode1/>
        <SpecialCommentCode2/>
        <JUANA/>
        <TAG698/>
        <TAH56>19010201</TAH56>
    </Trade>
 
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
Piperrak
Perlero nuevo
Perlero nuevo
 
Mensajes: 6
Registrado: 2008-03-20 00:00 @041

Notapor Piperrak » 2008-08-22 14:07 @629

Y aquí les agradezco y pido disculpas, vi cómo quedo el foro y se han desplazado las respuestas, por el "xml" que pegué.

Nuevamente, muchas gracias a todos.
:)
Piperrak
Perlero nuevo
Perlero nuevo
 
Mensajes: 6
Registrado: 2008-03-20 00:00 @041

Siguiente

Volver a Avanzado

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 30 invitados

cron