main::(procesasa_TAP.pl:3): $archivo=$ARGV[0];
DB<1> n
main::(procesasa_TAP.pl:4): $total=@ARGV;
DB<1>
main::(procesasa_TAP.pl:5): if($total != 1) {
DB<1>
main::(procesasa_TAP.pl:9): print "\nProcesando ...\n";
DB<1>
Procesando ...
main::(procesasa_TAP.pl:10): $bandera=0;
DB<1>
main::(procesasa_TAP.pl:11): if(-s "binario") {
DB<1>
main::(procesasa_TAP.pl:12): open(BIN, "binario");
DB<1>
main::(procesasa_TAP.pl:13): binmode(BIN);
DB<1>
main::(procesasa_TAP.pl:14): while(<BIN>) {
DB<1>
main::(procesasa_TAP.pl:15): $dec=hex(ord($_));
DB<1>
main::(procesasa_TAP.pl:16): if($dec eq "3") {
DB<1>
main::(procesasa_TAP.pl:17): $bandera=1;
DB<1>
main::(procesasa_TAP.pl:20): close(BIN);
DB<1>
main::(procesasa_TAP.pl:22): if($bandera == 0) {
DB<1>
main::(procesasa_TAP.pl:30): open my $BINARIO, '<', 'binario';
DB<1>
main::(procesasa_TAP.pl:31): binmode $BINARIO;
DB<1>
main::(procesasa_TAP.pl:32): read $BINARIO, my $binario, -s 'binario';
DB<1>
main::(procesasa_TAP.pl:33): close $BINARIO;
DB<1>
main::(procesasa_TAP.pl:35): my $respaldo = "$archivo.proc";
DB<1>
main::(procesasa_TAP.pl:37): qx(mv $archivo $respaldo);
DB<1>
main::(procesasa_TAP.pl:39): open my $FILE, '<', $respaldo;
DB<1>
main::(procesasa_TAP.pl:40): binmode $FILE;
DB<1>
main::(procesasa_TAP.pl:41): read $FILE, my $buffer, -s $respaldo;
DB<1>
main::(procesasa_TAP.pl:42): close $FILE;
DB<1>
main::(procesasa_TAP.pl:44): open my $SALIDA, '>>', $archivo;
DB<1>
main::(procesasa_TAP.pl:45): binmode $SALIDA;
DB<1>
main::(procesasa_TAP.pl:46): my $i = -1;
DB<1>
main::(procesasa_TAP.pl:47): my $indice;
DB<1>
main::(procesasa_TAP.pl:49): foreach my $byte (split //, $buffer) {
DB<1>
Out of memory!
Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4