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.

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.

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.

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;

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.