Foro - Perl en Español

Estoy trabajando con una cadena y tengo que introducir un 0D antes de una subcadena. Lo estoy haciendo así:



pero me coloca el 0D y luego el 0A he tratado de quitarlo mediante



Pero continua dejando el 0A, por cierto estoy trabajando en DOS.

Bienvenido a los foros de Perl en español, Hector Gutierrez.

La expresión regular no hace nada más que lo que le pides. No está incluyendo un 0x0A después del 0x0D, sino que, a la hora de sacar $desc en pantalla o a fichero, Perl se da cuenta de que está en un sistema DOS, por lo que hace una traducción de los finales de línea, a ese formato. Es entonces donde agrega el 0x0A.

¿Puedes publicar un programa completo, pero pequeño, que intente reflejar lo que quieres hacer?

¿Qué versión de Perl tienes instalada?

Lo más probable es que puedas solventar el asunto con el uso de la función binmode().

Estoy utilizando ActivePerl 5.12.3 Build 1204, el sistema operativo de mi equipo es Windows Vista Home Premium



Las líneas de comentarios son para que funcione de manera local el programa, la cadena original es:



Y la idea es colocar 0x0D antes de las subcadenas EVN, PID y PV1 y al final un 0x0D y 0x0A.

Un datos más, instale el WinHex para ver la cadena de caracteres en hexadecimal y ahí me percaté que existía el 0x0A.

Con este pequeño programa, se demuestra que sale bien:

Lo ejecutamos y lo pasamos por un visor hexadecimal:y ya ves que aparecen los caracteres 0x0d y 0x0a que queríamos.

El truco está en que, como voy a necesitar un print() para sacar el texto a pantalla (o al visor hexadecimal), para evitar que Perl traduzca los caracteres 0x0d a 0x0d0x0a (porque estamos en DOS), pongo un binmode STDOUT, para que el print() saque el texto tal cual está en memoria.

Realice los cambios el código quedo así:

use strict;
use warnings;
use diagnostics;
use Net::Telnet ();
use DBI;
use Time::HiRes qw(usleep);
#-----------------Parametros para la conexion con el SAHOS---------------------------------
my $DB_NAME = "dbi:Pg:dbname=interfasehl7";
my $DB_USER = "postgres";
my $DB_PASS = "postgres";

#--------------------Parametros para conexion con el RIS-----------------------------------
my $HOST = '192.9.101.6';
my $PORT = 5003;
my $SLEEP = '500_000';

#--------------------Telnet y conexion al puerto del RIS-----------------------------------

#--------------------las 2 lineas de abajo las comente para hacer pruebas locales
#--------------------my $t = new Net::Telnet (Telnetmode => 0);
#--------------------$t->open(Host => $HOST, Port => $PORT) or die 'No se pudo conectar al puerto\n';

#---------------------------------Conexion al SAHOS----------------------------------------
my $dbh = DBI->connect( $DB_NAME, $DB_USER, $DB_PASS ) or die "No se pudo lograr conexión";


#----------------------Preparacion de la lectura del segmento creado del SAHOS-------------
my $SQL_Code = 'select descripciondatos from tbdatos where llave = ?;';
my $sth_lectura = $dbh->prepare($SQL_Code);

#------------------------Preparacion del Insert a la tabla de resultados-------------------
$SQL_Code = 'insert into resultados(descripcion) values (?);';

my $sth_ins = $dbh->prepare($SQL_Code);
my $index = 1;

#---------------- Obtenemos el numero de registros de la tabla de datos --------------------

$SQL_Code = "SELECT count(*) from tbdatos;";
my $sth = $dbh->prepare($SQL_Code) or die "No pude preparar la instrucción: $DBI::errstr";
my $rc = $sth->execute;
if ($DBI::err) {
print "No pude ejecutar la instruccion: $DBI::errstr\n";
}

#-------------- En este paso leemos los registros que nos trajo el sql----------------------

while ( my ($regs) = $sth->fetchrow_array) { # aquí hacemos el ciclo de lectura de la consulta que solicitamos
for ($index=1;$index<=$regs;$index++) {
$sth_lectura->execute($index);
while ( my ($desc) = $sth_lectura->fetchrow_array) { # aquí hacemos el ciclo de lectura de la consulta

print "TX=> $index,$desc\n";

$desc =~ s/(EVN|PID|PV1)/\015$1/g;

$desc .= "\015\012";

binmode STDOUT;

$sth_ins->execute("$desc");

usleep $SLEEP;
}
}
}

# Con esta instrucción nos desconectamos de la Base de Datos

$dbh->disconnect();
#------$t->close();

# ----------Id: interfase_hl7.pl,v 1.0 2011/03/04 12:25 htgl09 ------------------------
#-----------Id: Se agregaron los caracteres de control 0D antes de cada segmento y al final 0D y 0A
#-----------Id: La respuesta comienza con 0B 2011/04/15 htgl09

Lo ejecuto y al ver el archivo en un editor hexadecimal me sigue presentado el 0x0D y luego el 0x0A anexo la imagen editor.

¿En dónde estás guardando la salida hacia el fichero?

Si, lo guardo en una tabla de paso como si fuera un log, la base de datos es postgres 8.2 estas son las especificaciones:
-- Table: resultados

-- DROP TABLE resultados;

CREATE TABLE resultados
(
descripcion character varying(500) NOT NULL,
llave smallint,
CONSTRAINT resultados_pkey PRIMARY KEY (descripcion)
)
WITHOUT OIDS;
ALTER TABLE resultados OWNER TO postgres;

No he preguntado eso.

La pregunta es: para poder sacar la información en formato hexadecimal con el WinHex, debes, en algún momento, haber guardado la información en el fichero "prueba de hl7 en dsp-11.txt", bien desde la base de datos, o bien desde el programa.

¿Cómo lo has hecho?

Disculpa, el programa guarda la cadena en la tabla de PostgreSQL, abrí un bloc de notas, lo copié manualmente de la tabla al bloc de notas y después lo abrí con el editor hexadecimal.

Bien, pues estoy casi seguro que el responsable es el bloc de notas, pero podría ser también la operación de copiar y pegar.

Lo que sí puedes hacer, para estar seguro, es una de estas dos cosas.

• abrir el fichero .txt y guardar allí la información, desde el propio programa
  .
• veo en el código que haces un print() dentro del bucle, para sacarlo a pantalla. Puedes aprovecharlo: coloca el binmode STDOUT antes del bucle, y arranca el programa desde una ventana de MSDOS con una redirección al fichero de texto: programa > fichero.txt. Así, se grabará toda la salida en el fichero de texto.
  .

Si el programa no es interactivo (no te pide nada mientras se está ejecutando), la solución más rápida es la segunda. Si no, la primera funcionará en todas las ocasiones.