Foro - Perl en Español

por **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.004 segundos,  usando GeSHi 1.0.8.4

Desde ya muchísimas gracias a todos por su ayuda.

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.

por **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<\//;

foreachmy$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 !!

por **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.

por **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.

por **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.002 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.

por **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.006 segundos,  usando GeSHi 1.0.8.4

por **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.005 segundos,  usando GeSHi 1.0.8.4

por **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.

Foro - Perl en Español

Rapidez en Perl

Rapidez en Perl

Publicidad

¿Quién está conectado?